Microsoft Word - 第3章.doc

Save this PDF as:
 WORD  PNG  TXT  JPG

Size: px
Start display at page:

Download "Microsoft Word - 第3章.doc"

Transcription

1 CHAPTER 3 第章 Visual Basic 语言基本结构 Visual Basic 支持结构化的程序设计方法, 由结构组成程序, 通过各种算法,VB 程序可以解决不同的具体问题 3.1 基本控制结构 VB 是结构化的程序设计语言 结构化设计方法的特点是程序结构清晰, 易读性强, 也易于查错和排错 结构化程序有 3 种基本控制结构 : 顺序结构 分支结构和循环结构 这 3 种基本结构都具有单入口 单出口的特点, 各种复杂的程序就是由若干个这 3 种基本结构组成的 结构化程序可以使用流程图来表示 顺序结构 顺序结构就是整个程序按书写顺序依次自上而下执行 前面两章设计和编写的程序都是顺序结构的 顺序结构如图 3-1 所示, 先执行 A, 再执行 B, 即自上而下依次运行 图 3-1(a) 为框式流程图, 图 3-1(b) 为 N-S 流程图, 又称为盒图 (a) 框式流程图 图 3-1 顺序结构 (b)n-s 流程图 分支结构 分支结构用于判断并分支, 又称为选择结构 如图 3-2 所示, 根据判断的结果决定程序的流向 如图 3-2 所示,E 代表条件, 当 E 条件成立 (True) 时执行 A, 否则 (False) 执行 B, 两条分支汇合在一起为一个出口 分支结构有几种形式 :If Then Else 结构 Select Case 结构和 IIf 函数 1.If Then Else 结构 If Then Else 结构表示 如果 就 否则

2 42 Visual Basic 教程 ( 第 3 版 ) (a) 框式流程图 (b)n-s 流程图 图 3-2 分支结构 语法 : If 条件 Then 语句或者 If 条件 1 Then 语句块 1 [ElseIf 条件 2 Then 语句块 2] [Else 语句块 n] End If 说明 : 条件可以为各种表达式, 都要转换为 Boolean 型, 即所有非零的数值 字符等都要转换为 True, 而 0 "0" 值则转换为 False 当 If Then Else 结构只有单独的 If 语句时, 可以没有 End If 语句 ; 否则 If 语句和 End If 语句必须成对出现 首先测试条件 1, 如果为 False, 就测试条件 2, 依此类推, 直至找到一个为 True 的条件就执行 Then 后面的语句块 如果条件都不是 True, 则执行 Else 后面的语句块 当只有一个条件而且执行的是单个语句时,If Then Else 结构可以简化成 If Then 语句 例 3-1 使用 If Then 语句查询学生的成绩, 大于等于 60 分的为及格, 其余为不及格 界面设计 : 在窗体界面中创建 2 个文本框 (Text1 Text2) 2 个标签 (Label1 Label2) 和 1 个按钮 (Command1) 文本框 Text1 输入分数, 单击按钮 Command1 则在文本框 Text2 中显示成绩 运行界面如图 3-3(a) 所示, 流程图如图 3-3(b) 所示 程序代码如下 :

3 第 3 章 Visual Basic 语言基本结构 43 ' 单击按钮显示成绩 Dim x As Single Dim y As String x = Val(Text1.Text) y = " 不及格 " If x >= 60 Then y = " 及格 " Text2.Text = y x = Val(Text1.Text) y = " 不及格 " True x>=60 False y=" 及格 " Text2.Text = y (a) 运行界面 (b) 流程图 图 3-3 成绩查询 程序分析 : 使用 If Then 语句, 当满足条件 x>=60 就执行 Then 后面的语句 y = " 及格 ", 否则就执行 If Then 语句后面的语句 例 3-2 使用 If Then Else 结构查询学生的成绩, 大于等于 60 分的为及格, 其余为不及格 界面设计和功能要求与例 3-1 相同, 程序流程图如图 3-4 所示 程序代码如下 : x = Val(Text1.Text) True x>=60 False y=" 及格 " y=" 不及格 " Text2.Text = y 图 3-4 流程图 ' 单击按钮显示成绩 Dim x As Single Dim y As String x = Val(Text1.Text) If x >= 60 Then y = " 及格 " Else y = " 不及格 " End If Text2.Text = y

4 44 Visual Basic 教程 ( 第 3 版 ) 例 3-3 使用多个条件的 If Then Else 结构查询学生的成绩, 将成绩分成优 良 中 及格和不及格,90~100 为优,80~90 为良,70~80 为中,60~70 为及格,60 以下为不及格 界面设计与例 3-1 相同, 运行界面如图 3-5(a) 所示, 程序流程图如图 3-5(b) 所示 x = Val(Text1.Text) True x>=90 False y=" 优 " True x>=80 False y=" 良 " True x>=70 False y=" 中 " True x>=60 False y=" 及格 " y=" 不及格 " Text2.Text = y (a) 运行界面 (b) 流程图 图 3-5 成绩查询 程序代码如下 : ' 单击按钮显示成绩 Dim x As Single Dim y As String x = Val(Text1.Text) If x >= 90 Then y = " 优 " ElseIf x >= 80 Then y = " 良 " ElseIf x >= 70 Then y = " 中 " ElseIf x >= 60 Then y = " 及格 " Else y = " 不及格 " End If Text2.Text = y 程序分析 : 使用有多个条件的 If Then Else 结构, 判断的顺序是 x>=90 x>=80 x>=70 x>=60 剩下的就是 x<60

5 第 3 章 Visual Basic 语言基本结构 45 2.Select Case 结构 Select Case 结构与 If Then Else 结构类似, 但对多条件选择时, 有时用 Select Case 语句代码效率更高, 更易读 语法 : Select Case 变量 表达式 Case 值 1 语句块 1 [Case 值 2 语句块 2] [Case Else 语句块 n] End Select 说明 : 变量或表达式是用来测试的条件 Select Case 只计算一次变量或表达式的值, 然后与每个 Case 的值 1 值 2 等进行比较 : 如果相等就执行该 Case 后对应的语句块 ; 如果没有相匹配的, 则执行 Case Else 中的语句块 程序流程图如图 3-6 所示 变量 表达式 True 值 1 False 语句块 1 True 值 2 False 语句块 2 True 值 3 False 语句块 3 True False 语句块 n 图 3-6 流程图 值 1 值 2 可以取以下几种形式 具体常数 例如,1 2 "A" 等 连续的数据范围 例如,1 To 100 A To Z 等 满足某个条件的表达式 例如,I >0 等 也可以是几种不同形式的组合, 用逗号 (,) 将它们分隔开 例如, 10,1 To 100 Select 和 End Select 必须成对出现

6 46 Visual Basic 教程 ( 第 3 版 ) 例 3-4 使用 Select Case 结构实现学生成绩的查询, 将成绩分成优 良 中 及格和不及格,90~100 为优,80~90 为良,70~80 为中,60~70 为及格,60 以下为不及格 界面设计和功能要求与例 3-3 相同 程序代码如下 : ' 单击按钮显示成绩 Dim x As Single Dim y As String x = Int(Text1.Text) Select Case x Case 90 To 100 y = " 优 " Case 80 To 89 y = " 良 " Case 70 To 79 y = " 中 " Case 60 To 69 y = " 及格 " Case Else y = " 不及格 " End Select Text2.Text = y 程序分析 : x = Int(Text1.Text) 用来将分数取整, 因为分数可能是小数 Case 90 To 100 后面的值使用连续的范围表示 90~100 3.IIf 函数 If Then Else 结构当只有一个条件时还可以使用 IIf 函数来实现, 用 IIf 函数语句可以说是 If Then Else 结构的简写版本 语法 : IIf( 条件, 真部分, 假部分 ) 说明 : IIf 函数的步骤是先判断条件, 当条件为 True 时执行真部分, 否则就执行假部分 真部分和假部分是 IIf 函数的返回值, 它们可以是任何表达式, 但只能返回其中 一个 在例 3-2 中当分数 >=60 为及格, 否则为不及格的关系可以用 IIf 函数表示为 : y = IIf( x >= 60," 及格 "," 不及格 ") 程序分析 : IIf 函数有返回值, 返回值是 " 及格 " 与 " 不及格 " 中的一个, 当 x >= 60 就返回 " 及格 ", 否则返回 " 不及格 "

7 第 3 章 Visual Basic 语言基本结构 47 返回值赋值给变量 y 例如, 下面都是使用 IIf 函数的语句 : y=iif(x>=0,1,0) ' 当 x>=0,y=1, 否则为 0 y=iif(hour(now) > 12, "PM", "AM") ' 当小时 >12,y="PM", 否则为 "AM" 4. 嵌套 嵌套是指把一个结构嵌入另一个结构之内 例如可以在 If 结构中嵌套 If 结构或 Select Case 结构等, 在 VB 中控制结构的嵌套层数没有限制 嵌套必须是一个完整的控制结构全部嵌入另一个结构中, 即 If 和 End If Select Case 和 End Select 对都可以嵌入, 但不能有交叉, 因此在读程序时, 与 If 或 Select Case 匹配的是最近的 End If 或 End Select 如图 3-7 所示为 3 层 If 嵌套的结构,If 与最近的 End If 匹配成对, 而且, 在书写时应养成每层缩进的习惯, 便于程序的阅读 例 3-5 求 ax 2 + bx + c = 0 的方程的解 If 求方程的解公式如下 : If 2 b b 4ac x1,2 2a If 方程的根有以下几种可能 : a = 0, 一个实根 End If b 2 4ac = 0, 有两个相等的实根 End If b 2 4ac > 0, 有两个不等的实根 End If b 2 4ac < 0, 有两个复根 界面设计 : 界面由 5 个文本框 Text1~Text5 5 个图 3-7 嵌套标签 Label1~Label5 和 1 个按钮 Command1 组成, 界面控件属性如表 3-1 所示 程序流程图如图 3-8(a) 所示, 运行界面如图 3-8(b) 所示 真 a = 0 输出二次方程解 真 输出两个相等实根 : b 2a b 2 4ac = 0 真 b x 1 b x 2 输出两个实根 : 2 b 4ac 2 a 2 b 4ac 2 a b 2 4ac > 0 假 假 假 输出两个复根 (a) 流程图 (b) 运行界面 图 3-8 计算方程的根

8 48 Visual Basic 教程 ( 第 3 版 ) 表 3-1 控制属性表 对象 控件名 属性名 属性值 Form Form1 Caption 计算方程根 Label1 Caption a = Label2 Caption b = Label Label3 Caption c = Label4 Caption x1 = Label5 Caption x2 = Text1 Text 空 Text2 Text 空 TextBox Text3 Text 空 Text4 Text 空 Text5 Text 空 CommandButton Command1 Caption 计算 功能要求 : 在文本框 Text1~Text3 中输入 a b c, 单击按钮 Command1, 计算方程 根并将运行结果显示在文本框 Text4 和 Text5 中 程序代码如下 : Dim a As Single, b As Single, c As Single Dim Disc As Single, x1 As Single, x2 As Single Dim RPart As Single, IPart As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Abs(a) <= Then Text4.Text = " 无解 " Text5.Text = " 无解 " Else Disc = b * b 4 * a * c RPart = b / (2 * a) If Abs(Disc) <= Then Text4.Text = RPart Text5.Text = RPart ElseIf Disc > Then x1 = ( b + Sqr(Disc)) /(2* a) x2 = ( b Sqr(Disc)) /(2* a) Text4.Text = x1 Text5.Text = x2 Else IPart = Sqr( Disc) / (2 * a) Text4.Text = RPart & "+" & IPart & "i" Text5.Text = RPart & " " & IPart & "i" End If ' 取数据 a ' 取数据 b ' 取数据 c ' 当 a=0 时 ' 当 Disc=0 时 ' 当 Disc>0 时 ' 当 Disc<0 时

9 第 3 章 Visual Basic 语言基本结构 49 End If 程序分析 : 此程序为双重 If 结构嵌套 对于判断 b 2 4ac 是否等于 0 时, 要注意一个问题, 由于变量 Disc( 即 b 2 4ac) 是实数型, 而实数在计算和存储时会有一些微小的误差, 因此不能直接用如下语句判断 If Disc = 0 Then, 因为这样会出现本来是 0 的量由于上述误差而被判别为不等于 0, 导致结果出错 通常采用的办法是判别 Disc 的绝对值 (Abs(Disc)) 是否小于一个很小的数 ( ), 如果小于此数则认为 Disc = 0 当计算的根为两个复数时, 将实部和虚部用 & 组合成字符串显示在文本框中 循环结构 循环结构就是用于执行重复操作的结构 在程序中如果遇到需要反复多次处理的问题, 就可以使用循环来实现 Visual Basic 提供了多种不同风格的循环结构语句, 包括 Do Loop For Next While Wend 和 For Each Next 等 下面主要介绍 Do Loop 和 For Next 结构 1.Do Loop 结构 Do 循环有两种形式, 即 当型 循环 (While 结构 ) 和 直到型 (Do While 结构 ) 循环 当型 循环结构的程序流程图如图 3-9(a) 所示, 直到型 循环结构的程序流程图如图 3-9(b) 所示 (a) 当型 循环 (b) 直到型 循环 图 3-9 DO 循环流程 当型 循环的语法 : Do While Until 条件语句块 [Exit Do] [ 语句块 ] Loop

10 50 Visual Basic 教程 ( 第 3 版 ) 说明 : 条件可以是任意的条件表达式, 为循环条件 当型 循环首先测试条件, 当条件为 True 就执行语句块, 然后循环执行测试条件 ; 如果条件为 False, 则跳过所有语句到循环体外 直到型 循环的语法 : Do 语句块 [Exit Do] [ 语句块 ] Loop While Until 条件 说明 : 直到型 循环与 当型 循环所不同的是先执行语句块, 然后测试条件, 只要条件为 True 就执行循环语句块 ; 如果条件为 False, 则跳过循环体 这种 直到型 循环保证语句块至少被执行一次 注意 : 在 Do Loop 结构中 Until 和 While 不同, 判断条件正好相反 Until 结构是只要条件为 False( 而不是 True), 就执行循环的语句块, 否则跳出循环体 例 3-6 用 当型 循环计算 1~100 的和 界面设计 : 在窗体界面中放置一个文本框 Text1 一个标签和一个按钮 Command1, 单击按钮 Command1 开始计算 1~100 的和 运行界面如图 3-10(a) 所示, 程序流程图如图 3-10(b) 所示 Sum = 0 i = 1 当 i <= 100 Sum = Sum + i i = i + 1 Text1.Text = Sum (a) 运行界面 (b) 流程图 图 3-10 计算 1~100 的和 程序代码如下 : ' 单击按钮开始计算 Dim i As Integer, Sum As Integer Sum = 0: i = 1 Do While i <= 100 Sum = Sum + i

11 第 3 章 Visual Basic 语言基本结构 51 Loop i = i + 1 Text1.Text = Sum 例 3-7 用 直到型 循环 While 计算 1~100 的和 界面设计与图 3-10(a) 相同, 程序流程图如图 3-11 所示, 程序代码如下 : ' 单击按钮开始计算 Dim i As Integer, Sum As Integer Sum = 0: i = 1 Do Sum = Sum + i i = i + 1 Loop While i <= 100 Text1.Text = Sum 图 3-11 流程图如果将循环体外的设置初始值语句由 i = 1 改为 i = 101, 则两种不同的 Do Loop 结构结果就不同了 : 例 3-6 判断条件后直接跳出循环,Sum 的结果是 0 例 3-7 进入循环体一次后判断条件跳出循环,Sum 的结果是 For Next 结构 如果已经知道了循环的次数, 使用 For Next 循环比 Do Loop 循环更方便 语法 : For 计数器 = 初始值 To 终止值 [Step 步长 ] 语句块 [Exit For] Next [ 计数器 ] Sum = 0 i = 1 Sum = Sum + i i = i + 1 当 i <= 100 Text1.Text = Sum For Next 循环的步骤如下 : 1 设置计数器等于初始值 2 如果步长为正值, 则判断计数器是否大于终止值, 计数器 = 初始值如果大于则跳出循环 ; 如果步长为负数则判断计数器是否小于终止值 当计数器 <= 终值 3 执行语句块 4 计数器 = 计数器 ± 步长 语句块 5 循环执行步骤 2~5 计数器 = 计数器 + 步长 For Next 循环步长为正值的程序流程图如图 3-12 所示 说明 : 图 3-12 For Next 流程图 如果 Step 省略, 则步长默认值为 1 步长可正可负: 如果为正, 则初始值必须小于等于终止值, 否则不能执行循环内的语句 ; 如果为负,

12 52 Visual Basic 教程 ( 第 3 版 ) 则初始值必须大于等于终止值, 否则不能执行循环内的语句 For 循环需要使用一个计数器, 每循环一次, 计数器变量的值就会增加或者减少 例 3-8 用 For Next 循环结构来计算 1~100 的和, 步长为 1 ' 单击按钮开始计算 Dim i As Integer, Sum As Integer Sum = 0 For i = 1 To 100 ' 步长默认为 1 Sum = Sum + i Text1.Text = Sum 例 3-9 用 For Next 循环结构来计算 1~100 的和, 步长为 1 ' 单击按钮开始计算 Dim i As Integer, Sum As Integer Sum = 0 For i = 100 To 1 Step 1 ' 步长为 1 Sum = Sum + i Text1.Text = Sum 3. 退出循环结构 用 Exit 语句可以直接退出 For Next 循环和 Do Loop 循环 Exit For 为退出 For Next 循环,Exit Do 为退出 Do Loop 循环 程序执行时遇到 Exit 语句, 就不再执行循环结构中的任何语句, 立即跳出循环, 跳转到循环结构的下一句执行 Exit 语句几乎总是出现在循环体内嵌套的 If 语句或 Select Case 语句中 注意 : 当运行程序进入死循环时, 按 Ctrl+Break 组合键可以终止程序的运行 例 3-10 用 For Next 循环结构来计算 1~100 的和, 当和大于等于 3000 时终止循环 运行界面如图 3-13 所示 ' 单击按钮开始计算 Dim i As Integer, Sum As Integer Sum = 0 For i = 1 To 100 Sum = Sum + i If Sum >= 3000 Then Exit For Text1.Text = Sum 图 3-13 运行界面

13 第 3 章 Visual Basic 语言基本结构 嵌套各种循环结构中都可以嵌套其他任何循环结构, 也可以嵌套分支结构 各种结构在嵌套时必须是完整 成对地嵌入, 不能交叉 例 3-11 计算九九乘法表 创建一个空白的窗体, 在单击窗体时计算并显示九九乘法表 运行界面如图 3-14 所示, 程序流程图如图 3-15 所示 i=1 当 i<=9 j=1 当 j<=i 显示一行 j=j+1 i=i+1 图 3-14 运行界面 图 3-15 双重循环流程图 程序代码如下 : Private Sub Form_Click() ' 单击窗体显示乘法表 Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To i Print Tab((j 1) * ); i & " " & j & "=" & i * j; Next j 程序分析 : 由于九九乘法表有 9 行, 每行不同列, 因此必须使用双重循环来实现 外循环为九九乘法表的行循环, 内循环为每行的列循环 内循环的次数每次都不同, 为 1~i 使用 Print 语句在窗体上显示, 使用 Tab 格式每列间隔 10 个字符 3.2 数组 在编程时, 当需要大量的数据类型都相同的数据时, 就需要使用数组

14 54 Visual Basic 教程 ( 第 3 版 ) 声明数组 1. 数组的概念 (1) 数组 数组是同类变量的一个有序集合 数组名的命名规则与变量相同, 但数组名代表的是一组变量, 而不是一个变量 (2) 数组元素数组中的元素称为数组元素, 数组元素具有相同名字和数据类型, 通过下标来识别它们 数组元素的表示 : 数组名 ( 下标 1[, 下标 2, ]) 说明 : 下标表示数组元素在数组中的位置 下标 1 为一维数组下标, 下标 2 为二维数组下标 VB 规定的数组维数不超 过 60 数组的运算是对数组中的元素进行运算, 所有可以使用变量的地方都可以使用数组, 数组元素可以进行赋值 运算等操作 2. 声明数组在使用数组前必须声明数组, 是用来指明数组的数据类型和每一维的上下界 语法 : [Private Public Dim] 数组名 ( 第一维上下界, )As 数据类型 说明 : 数组元素每一维的上下界表示为 上界 To 下界, 上下界不得超过 Long 数据类型的范围, 省略下界时取值为 0, 下界 上界, 当上下界为小数时会自动进行四舍五入 数组元素的个数为 ( 第一维上界 下界 +1)*( 第二维上界 下界 +1)* 数组中所有元素具有相同的数据类型 但当数据类型为 Variant 型时, 各元素能够包含不同类型的数据, 例如数值型 字符串型等 例如, 下面都是声明数组的语句 : Dim a(14) As Integer Dim a(1 To 15) As Integer Dim a( 1 To 5) As Integer Dim a( 1.5 To 5) As Integer Dim b(2,3) As Integer Dim b(2, 1 To 3) As Integer ' 从 a(0) 到 a(14) 共 15 个元素 ' 从 a(1) 到 a(15) 共 15 个元素 ' 从 a( 1) 到 a(5) 共 7 个元素 ' 从 a( 2) 到 a(5) 共 8 个元素 ' 从 b(0,0) 到 b(2,3) 共 3*4 为 12 个元素 ' 从 b(0, 1) 到 b(2,3) 共 3*5 为 15 个元素 程序分析 : 数组 a(14) 的下界省略, 表示为从 a(0) 开始 数组的上下界可以是正数或负数, 也可以是小数

15 第 3 章 Visual Basic 语言基本结构 55 3.Option Base 语句 当声明数组时下界省略, 则表示从 0 开始, 如果用户希望数组下标从 1 开始, 就可以使用 Option Base 语句来声明数组下标的默认下界 语法 : Option Base 0 1 说明 : Option Base 语句必须在代码编辑器窗口的 通用 部分声明, 表示本模块的所有数组的默认下界 可以声明数组的默认下界为 0 或 1 例如, 在模块中使用 Option Base 语句 : Option Base 1 ' 将数组的下标默认设为 1 Dim a(5) As Integer ' 从 a(1) 到 a(5) 共 5 个元素 Dim b( 1 to 5) As Integer ' 从 b( 1) 到 b(5) 共 7 个元素 Dim c(2, 3) As Integer ' 从 c(1,1) 到 c(2,3) 共 2*3 为 6 个元素 一个模块中只能出现一次 Option Base 语句, 而且必须位于本模块的 通用 部分 数组的操作 声明数组后就可以对数组进行赋值 引用和运算, 对数组的操作就是对数组中的元素进行操作 1. 数组元素的赋值由于数组是由一组有序的元素组成, 因此赋值时有 3 种方法 : 像变量一样一个一个地赋值, 通过循环赋值和使用 Array 函数赋值 (1) 用赋值语句对每个元素赋值用赋值语句对每个元素赋值, 就是用赋值语句对数组中的每个元素分别赋值 例 3-12 对数组 a(5) 的 6 个元素赋值为 , 并用 Print 语句显示, 运行界面如图 3-16 所示 在单击按钮 Command1 时运行程序 : Dim a(5) As Integer a(0) = 1 a(1) = 2 a(2) = 3 a(3) = 4 a(4) = 5 a(5) = 6 图 3-16 运行界面

16 56 Visual Basic 教程 ( 第 3 版 ) Print a(0); a(1); a(2); a(3); a(4); a(5) (2) 通过循环赋值当数组的元素个数较多时, 单独对每个元素赋值工作量就很大, 可以使用循环结构进行赋值 由于数组的元素个数是已知的, 因此经常使用 For Next 结构赋值 例 3-13 使用循环结构对 a(5) 的 6 个元素赋值为 , 并用 Print 语句显示 Dim a(5) As Integer Dim i As Integer For i = 0 To 5 a(i) = i + 1 For i = 0 To 5 Print a(i); ' 使用循环赋值 ' 使用循环显示 (3) 使用 Array 函数赋值 使用 Array 函数可以把数据集一次赋值给一个 Variant 型一维数组变量 语法 : 变量名 =Array( 数据列表 ) 说明 : 变量名只能是 Variant 型 数据列表是用逗号分隔的一系列数据 如果不提供数据列表, 则创建一个长度为 0 的数组 数组的下界默认为 0, 使用 Option Base 语句指定下界也可以 数组的上界由数据列表的元素个数决定 例 3-14 使用 Array 函数对数组 a(5) 的 6 个元素赋值为 , 并用 Print 语句显示 Dim a a = Array(1, 2, 3, 4, 5, 6) For i = 0 To 5 Print a(i); 程序分析 : 声明变量 a 时, 不说明数组的上下界

17 第 3 章 Visual Basic 语言基本结构 57 Dim a 语句表示 a 为 Variant 型变量 数组 a 用 Array 函数赋值后, 上界为 5, 下界为 0 2. 数组函数 (1)LBound 和 UBound 函数 LBound 函数用于指定的数组某维可用的最小下标 ( 下界 ),UBound 函数则用于指定的数组某维可用的最大下标 ( 上界 ) LBound 函数与 UBound 函数一起使用, 可以确定一个数组的大小 语法 : UBound( 数组名 [, 维 ]) LBound( 数组名 [, 维 ]) 说明 : 维是指定某一维, 省略时为 1 表示第一维,2 表示第二维, 依此类推 例如, 返回数组的上下界 : Dim a(1 To 10, 5 To 15) As Integer Dim L As Integer, U As Integer L = LBound(a, 1) ' 返回 1 U = UBound(a, 2) ' 返回 15 (2)IsArray 函数 IsArray 函数用来判断是否为数组 语法 : IsArray( 变量名 ) 说明 : 变量如果是数组, 则返回 True, 否则就返回 False 例如, 使用 IsArray 函数判断变量是否为数组 : Dim a a = 1 Print IsArray(a) a = Array(1, 2, 3, 4, 5) Print IsArray(a) 程序分析 : 当变量 a=1 时,IsArray(a) 得出为 False; 用 Array 函数赋值后, IsArray(a) 得出为 True 3.For Each Next 语句 For Each Next 语句类似于循环结构 For Next, 都是重复执行语句块直到循环结束 但 For Each Next 语句是专门针对数组或对象集合而设置的 语法 : For Each 成员 In 数组 集合语句块 [Exit For] Next [ 成员 ]

18 58 Visual Basic 教程 ( 第 3 版 ) 说明 : 对于数组成员只能是 Variant 型变量, 代表数组中每个元素 对于集合, 成员可以是 Variant 变量 Object 变量或对象 成员类似于 For Next 循环中的循环控制变量, 但不需要为其提供初值和终值 循环的次数由数组的元素个数或集合的成员个数决定 也就是说, 数组中有多少个元素, 就自动重复执行多少次 语句块就是循环体 例 3-15 使用 For Each Next 语句对数组 a(5) 的 6 个元素赋值为 , 并用 Print 语句显示 Dim x Dim i As Integer Dim a(5) As Integer For i = 0 To 5 a(i) = i + 1 For Each x In a Next x Print x; ' 给数组赋值 ' 显示数组 程序分析 : x 必须是 Variant 变量 x 的值是处于不断的变化之中, 开始执行时,x 是数组第 1 个元素的值, 执行完一次循环体后,x 变为数组第 2 个元素的值 当 x 为最后一个元素的值时结束循环 静态数组和动态数组 静态数组是固定大小的数组, 维数和大小都不能改变, 前面介绍的数组都是静态数组 动态数组是在运行时大小可以改变的数组 1. 定义动态数组在编程时, 如果需要一个在运行过程中能够改变元素个数的数组, 使用静态数组只能定义一个足够大的数组, 当元素个数较少时就使用较少的元素, 而元素个数较多时, 就使用较多的元素, 这种方法会导致占用大量内存, 使操作速度变慢 使用动态数组可以在运行时根据需要改变数组的大小, 使用动态数组灵活 方便, 并有助于有效管理内存 定义动态数组的语法 : Dim 数组名 ( ) [As 数据类型 ] ReDim 数组名 ( 第一维上下界, )

19 第 3 章 Visual Basic 语言基本结构 59 说明 : 先定义一个不指明大小的数组, 然后用 ReDim 语句来动态地定义数组的大小和维数, 重新分配存储空间 如果事先没有用 Dim 语句定义数组, 则用 ReDim 语句会创建一个数组并分配内存空间 与 Dim 语句不同,ReDim 语句是一个可执行语句, 应用程序在运行时执行该语句, ReDim 语句只能出现在过程中 ReDim 语句是可执行语句, 可以反复执行, 从而反复地改变数组的大小和维数 可以使用 ReDim 语句反复改变数组大小, 但是不能改变数组的数据类型 每次执行 ReDim 语句, 当前数组中的值会全部丢失 VB 重新将数组元素的值初始化, 对 Variant 型数据初值置为 Empty, 数值型初值置为 0,String 型初值置为零长度字符串,Object 型初值置为 Nothing 例如, 下面为声明动态数组的语句 : Dim a () As Integer ReDim a ( 5,9) ' 分配 6 10 个元素 例如, 直接用 ReDim 语句创建动态数组 : ReDim a ( 5,9) ' 创建数组并分配 6 10 个元素 例如, 使用变量定义动态数组 : Dim a () As Integer Dim x As Integer,y As Integer x = 5 : y = 9 ReDim a (x, y) x=10 ReDim a (x) 例 3-16 求 Fibonacci 数列 :1,1,2,3,5,8 Fibonacci 数列满足以下关系 : F 1 =1 F 2 =1 F n = F n 1 + F n 2 功能要求 : 单击窗体 Form 时, 用 InputBox 输入框输入要计算 Fibonacci 数列的个数, 并用 Print 语句在窗体上显示 输入框界面如图 3-17(a) 所示, 运行界面如图 3-17(b) 所示 (a) 输入框 (b) 运行界面 图 3-17 计算 Fibonacci 数列

20 60 Visual Basic 教程 ( 第 3 版 ) 程序代码如下 : Private Sub Form_Click() ' 单击窗体计算 Fibonacci 数列 Dim i As Integer, f() As Integer Dim n As Integer n = Val(InputBox(" 请输入数组元素个数 ", " 输入 ")) If n <> 0 Then End If ReDim f(n) f(0) = 1: f(1) = 1 For i = 2 To n 1 Next f(i) = f(i 2) + f(i 1) For i = 0 To n 1 Print If i Mod 5 = 0 And i <> 0 Then Print ElseIf i Mod 5 <> 0 Then Print Tab(8 * (i Mod 5)); End If Print f(i); ' 置 F1,F2 初值 ' 计算 Fn ' 打印 5 个数换一行 ' 在每隔 8 字符的位置打印一个数 程序分析 : 数组元素个数由 InputBox 输入, 由于不知道数组的大小, 必须采用动态数组, 在数组元素个数输入后用 ReDim 语句重新确定数组的大小 当从 InputBox 输入数据时返回值为字符型, 必须用 Val 函数将字符串转换为数值 2. 保留数组元素值 在使用 ReDim 语句定义动态数组时, 当前数组的元素值会全部丢失 使用具有 Preserve 关键字的 ReDim 语句既可以改变数组大小, 又不丢失数组中的数据 语法 : ReDim Preserve 数组名 ( 第一维上下界, ) 说明 : 当改变原有数组最末维的大小时, 使用 Preserve 关键字可以保留数组中原来的数据 如果改变数组的维数或其他维界则会产生错误 当重新定义的数组大小比原来小, 则释放多余的存储单元, 如果重新定义的数组大小比原来大, 则将新增的元素单元赋予数据类型对应的初始值 例如, 使用 ReDim 语句定义动态数组并保留元素值 :

21 第 3 章 Visual Basic 语言基本结构 61 Dim a() As Integer, i As Integer ReDim a(5) For i = 0 To 5 a(i) = i ReDim Preserve a(6) a(6) = 6 For i = 0 To 6 Print a(i); ' 重新定义数组并保留元素值 程序分析 : 在窗体上用 Print 语句显示出 如果改变数组的维数, 就不能使用 Preserve 关键字 : Dim a() As Integer, i As Integer ReDim a(5) For i = 0 To 5 a(i) = i ReDim Preserve a(1, 2) 程序分析 : 当将一维数组重新定义为二维数组时, 加了 Preserve 关键字就会出错, 出现如图 3-18 所示的出错提示 图 3-18 出错提示对话框 3. Erase 语句 Erase 语句用于重新初始化静态数组的元素, 或者释放动态数组的存储空间 语法 : Erase 数组 1, 数组 2, 说明 : 数组 1, 数组 2 可以是静态数组名或动态数组名 Erase 语句对静态数组设置初始值, 对动态数组则释放存储空间, 使其成为没有存

22 62 Visual Basic 教程 ( 第 3 版 ) 储单元的空数组 例如, 使用 Erase 语句释放动态数组的内存空间 : Dim a() As Integer, i As Integer ReDim a(5) For i = 0 To 5 a(i) = i Erase a ' 释放动态数组的内存空间 程序分析 :Erase 语句将数组 a 的 6 个元素的存储单元都释放, 成为一个没有存储单元的空数组 多维数组 在编程过程中往往会遇到需要行和列来表示的数据, 例如屏幕的像素需要 (x,y) 两个坐标, 因此需要二维数组 ; 或者需要行 列 页来表示的数据就需要三维数组, 二维 三维数组都称为多维数组, 多维数组要用多个下标表示 1. 二维数组二维数组要用两个下标表示, 例如,a(2,3) 中的第一个下标表示行, 第二个下标表示列, 表示为三行四列的数组 二维数组中元素的存储顺序是按行存储的, 即下标先变列后变行 例如,a(2,3) 的存储顺序如图 3-19 所示 图 3-19 二维数组存储数据 可以使用 For 循环嵌套来处理二维数组, 外循环对应于行的变化, 内循环对应于列的变化 例如, 二维数组 a(2,3), 可以使用两个变量 i 和 j 来循环计数, 程序代码如下 : Dim i, j As Integer For i = 0 To 2 For j = 0 To 3 a(i,j)= Next j

23 第 3 章 Visual Basic 语言基本结构 63 例 3-17 根据 4 名学生的语文 数学和英语成绩, 计算并显示每人的平均成绩和每 门课程的平均成绩 学生的信息如表 3-2 所示 表 3-2 学生信息表 姓名 语文 数学 英语 平均成绩 李小明 王强 赵雷 陈敏 平均成绩 功能要求 : 单击窗体, 输入学生分数并计算每人平均成绩和每门课程的平均成绩, 并用 Print 语句显示在窗体上 运行界面如图 3-20 所示 图 3-20 运行界面 程序代码如下 : Option Base 1 Private Sub Form_Click() ' 单击窗体计算并显示学生成绩 Dim student Dim score(5, 4) As Single Dim i As Integer, j As Integer student = Array(" 李小明 ", " 王强 ", " 赵雷 ", " 陈敏 ") ' 输入分数 score(1, 1) = 98: score(1, 2) = 84: score(1, 3) = 89 score(2, 1) = 82: score(2, 2) = 86: score(2, 3) = 79 score(3, 1) = 76: score(3, 2) = 79: score(3, 3) = 72 score(4, 1) = 66: score(4, 2) = 72: score(4, 3) = 69 ' 计算每人的平均成绩 For i = 1 To 4 For j = 1 To 3 Next j score(i, 4) = score(i, j) + score(i, 4) score(i, 4) = score(i, 4) / 3 ' 计算每门课程的平均成绩 For i = 1 To 3 ' 输入学生姓名

24 64 Visual Basic 教程 ( 第 3 版 ) For j = 1 To 4 Next j score(5, i) = score(j, i) + score(5, i) score(5, i) = score(5, i) / 4 ' 显示每人成绩 Print " 姓名 ", For i = 1 To 4 Print student(i), Print Print " 平均成绩 ", For i = 1 To 4 Print Print Format(score(i, 4), "##.#"), Print ' 显示每门成绩 Print " 课程 ", " 语文 ", " 数学 ", " 英语 " Print " 平均成绩 ", For i = 1 To 3 程序分析 : Print Format(score(5, i), "##.#"), Option Base 1 语句将数组的下界定义为 1 学生姓名 Student 数组使用 Array 函数赋值, 变量 Student 定义为 Variant 型 成绩数组 Score 的元素个数为 5*4 个, 每行为各学生的成绩, 最后一行为每门课平均成绩 ; 每列为各门课程的成绩, 最后一列为每人的平均成绩 计算平均成绩使用双重循环, 计算每人的平均成绩的内循环按列循环, 计算每门课的平均成绩的内循环按行循环 2. 三维数组三维数组要用 3 个下标表示 例如,a(2,3,4) 中的第一个下标表示行, 第二个下标表示列, 第三个下标表示页, 元素总数为 3 个维数的乘积 为 60 个 3.3 用户定义类型 数组提供了处理大量数据的途径, 但数组元素的数据类型都是相同的, 如果需要处理不同数据类型的大量数据, 则需要使用用户定义类型 用户定义类型将不同的数据类型按需要组合起来, 创建自定义的数据类型, 也称为记录类型 例如, 在例 3-17 中学生的姓名为字符型, 而成绩则为数值型, 必须使用 Student 和 Score

25 第 3 章 Visual Basic 语言基本结构 65 两个数组来表示, 如果再增加学号和性别, 就又必须增加数组 但是, 可以使用用户定义类型根据需要创建用户自定义类型 创建用户定义类型的格式 : [Private Public] Type 用户定义类型名用户定义类型元素 As 数据类型 [ 用户定义类型元素 As 数据类型 ] End Type 说明 : 必须在 代码编辑器 窗口的 通用 部分创建用户定义类型 用户定义类型名是用户定义的数据类型名, 其命名规则与变量名的命名规则相同, 但不是变量 用户类型元素可以是任何数据类型, 也可以是用户定义数据类型 如果为字符型, 则必须是定长字符型 用户定义类型也可以作为数组元素的数据类型 用户定义类型被创建后, 可以用 Dim 和 ReDim 建立一个具有这种数据类型的变量或数组 创建的变量包含多个元素, 每个元素都可以分别赋值 运算和引用 元素的表示形式为 : 用户类型变量名. 用户类型元素 例 3-18 建立一个学生成绩处理程序, 每个学生的记录由姓名 语文成绩 数学成绩 英语成绩和平均成绩组成 学生的信息如表 3-3 所示 表 3-3 学生信息表 姓名语文数学英语平均成绩 李小明 王强 赵雷 陈敏 功能要求 : 单击窗体时运算并显示每个学生的平均成绩 运行界面如图 3-21 所示 图 3-21 运行界面程序代码如下 : ' 定义用户类型 Private Type Student

26 66 Visual Basic 教程 ( 第 3 版 ) End Type Name As String * 8 Score(1 To 3) As Single Average As Single Private Sub Form_Click() ' 单击窗体计算并显示学生成绩 Dim Stu(3) As Student ' 声明用户定义类型数组 Dim i As Integer, j As Integer ' 输入学生姓名 Stu(0).Name = " 李小明 " Stu(1).Name = " 王强 " Stu(2).Name = " 赵雷 " Stu(3).Name = " 陈敏 " ' 输入分数 Stu(0).Score(1) = 98: Stu(0).Score(2) = 84: Stu(0).Score(3) = 89 Stu(1).Score(1) = 82: Stu(1).Score(2) = 86: Stu(1).Score(3) = 79 Stu(2).Score(1) = 76: Stu(2).Score(2) = 79: Stu(2).Score(3) = 72 Stu(3).Score(1) = 66: Stu(3).Score(2) = 72: Stu(3).Score(3) = 69 ' 计算每人的平均分 For i = 0 To 3 For j = 1 To 3 Next j Stu(i).Average = Stu(i).Average + Stu(i).Score(j) Stu(i).Average = Stu(i).Average / 3 ' 显示每人成绩 Print " 姓名 ", For i = 0 To 3 Print Stu(i).Name, Print Print " 平均成绩 ", For i = 0 To 3 程序分析 : Print Format(Stu(i).Average, "##.#"), Student 是指用户定义类型名,Stu 是指用户定义类型的数组名,Stu(0) 是指用户定义类型的数组的第一个元素, 即第一个学生的记录,Stu(0).Name 是指第一个学生记录的姓名元素,Stu(0).Score(1) 是指第一个学生记录的成绩元素数组的第一个成绩, 即学生名 李小明 的 语文 成绩 在模块的最前面, 即 通用 部分, 创建用户定义类型 用户定义类型中,Name 为字符型, 必须是定长字符型

27 第 3 章 Visual Basic 语言基本结构 67 用户定义类型中,Score(1 To 3) As Single 为数组 Dim Stu(3) As Student 语句为声明数组 Stu, 为用户定义类型 3.4 基本算法及举例 VB 的应用程序是由界面和程序代码组成的, 在前面的一些例题中可以看到, 解决一个实际问题就是合理地安排界面与程序的关系, 以及使用合理的算法编程和进行算法的设计 算法设计就是要解决特定的问题, 保证程序的正确性和可行性 算法分析 算法就是解决某个特定问题的方法和步骤 计算机解决问题必须按照一定的算法 循序渐进, 对于求解同一问题, 往往可以设计出多种不同的算法, 它们的运行效率 占用内存量可能有较大的差异 因此如何将复杂的运算简单化是算法分析需要研究的问题 一般而言, 评价一个算法的好坏是看运算结果的正确性 运行效率的高效性和占用系统资源的多少等 合理的算法可以使编程更高效 更简洁 1. 算法的特点作为算法应具有以下特点 (1) 确定性算法的确定性是指每个步骤都应准确无误, 没有歧义性 (2) 可行性算法的可行性是指算法都是计算机能够有效执行的 可以实现的, 并能够得到确定的结果的 针对 VB 的算法应是 VB 的语言功能可以实现的算法 (3) 有穷性一个算法的步骤必须是有限的, 是计算机能够在合理的时间内完成的 程序的循环不会进入死循环, 有循环的结束条件 (4) 输入性算法可以有多个输入, 也可以没有输入, 算法的输入必须是计算机可以执行的 如果由计算机自己产生数据输入则表示没有输入 (5) 输出性算法必须有一个或多个输出, 因为算法是计算机用于解题的方法, 必须将结果输出, 否则没有意义, 因此算法必须具有输出的功能 VB 是结构化设计的程序设计语言,VB 的 3 种基本结构 : 顺序结构 分支结构和循环结构都支持算法的这些特点, 为实现算法提供语言基础 2. 算法的分类 计算机算法可以分为数值算法和非数值算法两大类

28 68 Visual Basic 教程 ( 第 3 版 ) (1) 数值算法数值算法主要用于解决一般数学解析方法难以处理的一些数学问题, 如解方程的根 求定积分 解微分方程等 (2) 非数值算法非数值算法解决某些非数值问题的特定方法, 如对数据的排序 查找等 算法举例 1. 用牛顿迭代法解方程 算法说明 : 牛顿迭代法是求解一元超越方程根的常用算法, 已知精确解在初始解 x 0 附近, 则根据牛顿迭代公式 : f ( xn ) x n 1 x n n = 0, 1, 2, 3, f ( x ) 当 x n + 1 x n 时, 得出精确解 x n + 1 其中: f ( x n ) 为 f ( x n ) 的导数 循环结束条件 : x n + 1 x n 输入 : 初始解 x 0 输出 : 精确解 x n + 1 n 例 3-19 用牛顿迭代法求方程 2x 3 4x 2 + 3x 6 = 0 在 x 0 = 3 的准确解 x, 误差 小于等于 计算步骤 : 1 先计算 f (x 0 ) = 2x 3 4x 2 + 3x 6 和 f (x 0 ) = 6x 2 8x 再根据迭代公式计算出 x 1 3 当 x n + 1 x n 时,x n + 1 为所求的方程根 ; 否则继续计算 x 2, x 3,, x n 方程曲线如图 3-22 所示 功能要求 : 单击窗体时, 用牛顿迭代法计算方程的根, 并用 Print 方法显示 图 x 3 4x 2 + 3x 6 的曲线程序流程图如图 3-23(a), 运行结果如图 3-23(b) 所示, 计算出方程的根为 2 x0=3 计算 f(x0) 和 f1(x0) x=x0 f(x0)/f1(x0) 直到 x x0 =0 输出 x (a) 流程图 图 3-23 用牛顿迭代法解方程 (b) 运行界面

29 第 3 章 Visual Basic 语言基本结构 69 程序代码如下 : Private Sub Form_Click() ' 用牛顿迭代法解方程 Dim x As Single, x0 As Single, f As Single, f1 As Single x0 = 3 Do x0 = x f = ((2 * x0 4) * x0 + 3) * x0 6 f1 = (6 * x0 8) * x0 + 3 x = x0 f / f1 Loop While Abs(x x0) >= Print Print Tab(8); " 解方程 2x^3-4x^2+3x-6 = 0" Print Tab(8); " 方程的解 = " & x 程序分析 : 采用 Do 循环, 当 Abs(x x0) >= 为 True 时执行循环 2. 矩阵相乘 算法说明 : 矩阵 A(m,k) 为 m 行 k 列的矩阵, 矩阵 B(k,n) 为 k 行 n 列的矩阵才能相乘, 得出乘积 C(m,n) 为 m 行 n 列的矩阵 则矩阵 C 的元素为 : 输入 : 矩阵 A 和 B 输出 : 矩阵 C C ij = A i1 B 1j + A i2 B 2j + + A ik B kj 循环结束条件 : 循环次数为矩阵的行列数 例 3-20 计算矩阵 a 和矩阵 b 的乘积 a 1 4 b 功能要求 : 单击窗体计算矩阵的乘积, 并用 Print 语句将矩阵 a 矩阵 b 和矩阵 c 显示出来 运行结果如图 3-24(a) 所示 计算过程采用三重循环, 程序流程图如图 3-24(b) 所示 程序代码如下 : Option Base 1 Private Sub Form_Click() Const M = 3, N = 2, K = 2 Dim a(m, K) As Integer, b(k, N) As Integer, c(m, N) As Integer Dim i As Integer, j As Integer, h As Integer, Sum As Integer ' 数组置初值 a(1, 1) = 0: a(2, 1) = 1: a(3, 1) = 2: a(1, 2) = 3: a(2, 2) = 4: a(3, 2) = 5 b(1, 1) = 6: b(2, 1) = 7: b(1, 2) = 8: b(2, 2) = 9

30 70 Visual Basic 教程 ( 第 3 版 ) ' 显示矩阵 a Print Tab(3); " 数组 a=" For i = 1 To M For j = 1 To K Print Tab(8 * j); a(i, j); Next j Print Print ' 显示矩阵 b Print Tab(3); " 数组 b=" For i = 1 To K For j = 1 To N Print Tab(8 * j); b(i, j); Next j Print Print ' 计算矩阵相乘 For i = 1 To M For j = 1 To N Next j ' 显示矩阵 c Sum = 0 For h = 1 To K Sum = Sum + a(i, h) * b(h, j) Next h Print Tab(3); " 数组 c=" For i = 1 To M c(i, j) = Sum For j = 1 To N Print Tab(8 * j); c(i, j); Next j Print 程序分析 : 使用 Option Base 1 语句, 将数组的下界设置为 1 使用符号常数定义矩阵的上下界 M N K 矩阵有行和列, 必须使用双重循环显示 计算 a 和 b 的乘积必须用三重循环嵌套来实现 : 最内层循环是计算 a 矩阵的列与 b 矩阵的行乘积的和, 第二层循环按 b 矩阵的列数计算, 最外层循环是按 a 矩阵的行数计算

31 第 3 章 Visual Basic 语言基本结构 71 输入数组 a 和 b 显示矩阵 a 显示矩阵 b 当 i<=m 当 j<=n Sum = 0 当 h<=k Sum = Sum + a(i, h) * b(h, j) c(i, j) = Sum 显示矩阵 c (a) 运行界面 (b) 流程图 图 3-24 矩阵相乘 3. 折半查找法算法说明 : 折半查找法是在已经排序的数组中查找一个数 例如, 数组已经从小到大排序, 每次将需要查找的数与中间值比较, 如果中间值小则放弃前一半, 再与后一半的中间值比较, 直到找到为止, 如果中间值大则相反 每一步缩小一半查找范围, 一步一步缩小范围直至查到为止, 这是一种效率较高的查找方法 查找数用 Num 表示, 排序数组用 a 表示, 最小值位置用 Min 表示, 最大值位置用 Max 表示, 中间值位置用 Mid 表示 查找步骤如下 : 1 判断 Num 是否在要查找的数组范围内 2 计算得出 Mid=(Min+Max)/2 3 判断 a(mid) 与 Num 的大小 ; 如果相等, 则找到 ; 如果 a(mid)<num, 则 Min=Mid+1; 如果 a(mid)>num, 则 Max=Mid 1 4 循环执行 2~3 步骤 5 当 Min>Max, 则没有该数 输入 : 查找数据 Num 和排序数组 a 输出 : 数据 Num 在数组 a 的位置 循环结束条件 : 找到数据或 Min>Max 例如, 查找 3 的过程如图 3-25 所示, 阴影部分为折半后数组 例 3-21 已经排序的数组为 10 个数 : , 输入要查找的数据, 显示其在数组中的位置

32 72 Visual Basic 教程 ( 第 3 版 ) 下标 数值 第一次 Min Mid Max 第二次 Min Mid Max = Mid 1 找到 图 3-25 查找 3 界面设计 : 在窗体中放置 2 个文本框 Text1 和 Text2 2 个标签 Label1 和 Label2 和 1 个按钮 Command1 在标签 Label1 中显示数组元素, 在文本框 Text1 中输入要查找的数据, 在文本框 Text2 中显示查找的结果 属性设置如表 3-4 所示, 运行界面如图 3-26 所示 表 3-4 例 3-21 的属性设置表 对象控件名属性名属性值 Form Form1 Caption 折半查找 Label Label1 Caption 数组 : Label2 Caption 输入要找的数 : Text Text1 Text 空 Text2 Text 空 Command Command1 Caption 查找 图 3-26 运行界面 功能要求 : 单击按钮 Command1 开始折半查找, 如果不在则输出 查无此数, 如果在数组中则显示该数在数组中的位置 折半查找程序流程图如图 3-27 所示 程序代码如下 : Option Base 1 ' 单击按钮折半查找

33 第 3 章 Visual Basic 语言基本结构 73 Dim a Dim Num As Integer, Mid As Integer, Min As Integer, Max As Integer Dim i, j As Integer, Loca As Integer ' 数组赋值 a = Array(0, 3, 15, 28, 32, 53, 74, 84, 145, 268) Num = Val(Text1.Text) Min = 1: Max = 10 If Num < a(min) Or Num > a(max) Then ' 不在数组范围内 Text2.Text = " 查无此数 " Else Do While Min <= Max Mid = Int((Min + Max) / 2) ' 置中间数值 If a(mid) = Num Then Loca = Mid Text2.Text = Num &" 在第 " & Loca & " 个位置 " Exit Do ElseIf a(mid) > Num Then Max = Mid 1 Else Min = Mid + 1 End If Text2.Text = " 查无此数 " Loop End If 输入数组 a Min = 1: Max = 10 True Num<a(Min)OrNum>a(Max) False " 查当 Min <= Max " 查无此数 " Mid = Int((Min + Max) / 2) a(mid)=num True False Loca=Mid a(mid)>num True False 找到 Max=Mid 1 Min=Mid + 1 图 3-27 流程图

34 74 Visual Basic 教程 ( 第 3 版 ) 程序分析 : 使用 Option Base 1 语句, 将数组的下界设置为 1 数组 a 用 Array 函数赋值, 必须是 Variant 型 4. 起泡法排序 算法说明 : 起泡法排序就是每次将两两相邻的数进行比较, 如果从小到大排列, 就将小的调换到前面, 大的放在后面, 就像气泡重的沉在下面 数组用 a 表示, 起泡法排序的步骤如下 : 1 第一轮将数据两两比较, 将较大的调换到后面,a(1) 与 a(2) 比较后调换,a(2) 与 a(3) 比较后调换,, 直到最后一个数 a(n), 这样就将最大的调换到最后面 2 第二轮再将数据两两比较, 将较大的调换到后面,a(1) 与 a(2) 比较后调换,a(2) 与 a(3) 比较后调换,, 直到倒数第二个数 a(n 1), 这样就将第二个大的调换到倒数第二位置 第 N 1 轮比较并调换, 只剩下 a(1) 与 a(2) 两个数需要比较后调换 输入 : 未排序的数组 输出 : 排好序的数组 循环结束条件 : 外循环为 N 1 次 例如, 有 4 个数的顺序是 :5, 4, 2, 0, 排序的过程如图 3-28(a) 所示 可以看到需要使用双重循环实现排序, 外循环为 N 1 次, 内循环的次数每次在减少 例 3-22 用起泡法对 10 个数进行从小到大排序 功能要求 : 单击窗体时产生 10 个随机的整数, 进行排序并在窗体上用 Print 语句显示出来 程序流程图如图 3-28(b) 所示 输入 N 个随机数给数组 a j = 1 开始 第一次 第二次 第三次 当 j <= N 1 i = 1 当 i <=N j a(i)>a( i+1) True a(i) 与 a(i+1) 交换输出 a(1)~ a(n) False (a) 排序过程 (b) 流程图 图 3-28 起泡法排序

35 第 3 章 Visual Basic 语言基本结构 75 程序代码如下 : Option Base 1 Private Sub Form_Click() ' 起泡法排序 Const N = 10 Dim a(n) As Integer Dim i As Integer, j As Integer, t As Integer Randomize Print Print " 显示排序前的 A 元素 :" ' 产生 1~100 间的随机整数 For i = 1 To N a(i) = Int(Rnd * 100) + 1 Print a(i); For j = 1 To N 1 Next j Print For i = 1 To N j If a(i) > a(i + 1) Then End If t = a(i) a(i) = a(i + 1) a(i + 1) = t Print " 显示排序后的 A 元素 :" For i = 1 To N Print a(i); ' 相邻的数比较并调换顺序 't 为中间变量 ' 在窗口显示排序后的 A 元素 程序分析 : Int(Rnd*100)+1 产生 1~100 之间的整数 用 Rnd 函数来产生 0~1 之间的随机数列作为需要排序的数据 在产生随机数之前, 可以用 Randomize 语句来初始化随机数生成器, 使每次产生的随机数都不同 对 a(i) 和 a(i+1) 进行数据交换, 需要通过第 3 个变量 t 才能实现 将 a(i) t,a(i+1) a(i), t a(i+1) 使用双重循环实现排序, 外循环的次数为 N 1, 内循环的次数每次都在减少, 循环次数为 N j 次 排序结果如图 3-29 所示 图 3-29 运行界面

36 76 Visual Basic 教程 ( 第 3 版 ) 3.5 典型考题解析 1. 下列循环重复次 Dim a() As Integer For i = 1 To 2 ReDim a(3 To 7) For j = 1 To UBound(a) Print "*" Next j A.6 B.8 C.12 D.14 解析 : 本题主要考 For 循环嵌套和数组元素的个数 a(3 To 7) 的上限是 7, 因此内循环次数从 j=1 到 7, 外循环 2 次 所以打印 14 行 * 正确答案是 D 2. 运行下面的程序, 在窗体上输出的第一行是, 第二行是, 第三行是 Private Sub Form_Click() Dim s As String, t As String, k As Integer, m As Integer s = "ASDFGHJY" k = 1: m = k Do Until Mid(s, m, 1) = "Y" Loop t = t & Chr(Asc(Mid(s, m, 1)) + k) k = k + 2 If k > 3 Then k = 1 m = m + k Print t 解析 : 本题主要考循环 Do Until 循环和字符串函数 Do Until 循环是当满足条件时, 循环结束 ; 当 Mid(s, m, 1)= "Y" 时跳出循环 各次循环中变量依次为 k=1 k=3 k=1, 变量 m=1,m=m+k m=4 m=5 m=8;chr(asc(mid(s, m, 1)) + k) 是将 Mid(s, m, 1) 所取字符的 ASC 码加 k 再转换成字符, 当 m=1 时由 "A" 字符转换成 "B", 当 m=4 时, 由 "F" 转换为 "I", 当 m=5 时, 由 "G" 字符转换为 "H", 当 m=8 时循环结束 正确答案是在窗体上输出的第一行是 B, 第二行是 BI, 第三行是 BIH 3. 下面程序运行结果显示为 Dim X As Integer

37 第 3 章 Visual Basic 语言基本结构 77 X = -6 X = X * X * X * X / 2.34 Select Case X Case Is > 0: Print "X>0" Case Is < 0: Print "X<0" Case Else: End Select Print "X=0" A.X>0 B.X<0 C.X=0 D.X<>0 解析 : 本题主要考 Select Case 结构 Case Is > 0 判断条件是 X 大于 0 则执行 Print "X>0" 当 X= 6 时,X = X * X * X * X / 2.34 大于 0 正确答案是 A 4. 运行下面程序, 单击窗体后在窗体上显示的第一行结果是 ; 第三行结果是 Private Sub Form_Click() Dim mst As String, mst1 As String, mst2 As String Dim i As Integer mst1 = "CeBbAa" For i = Len(mst1) To 1 Step -2 mst2 = Mid(mst1, i - 1, 2) mst = mst & mst2 Print mst 解析 : 本题主要考 For 循环和字符串函数 语句 For i = Len(mst1) To 1 Step -2 的循环次数为从 6 到 1 每次减 2, 因此是 3 次 ;Mid 函数是取字符, 每次取两个字符 ;"&" 表示字符串连接 正确答案是第一行结果是 Aa, 第三行结果是 AaBbCc 5. 设为 A 数组顺序赋值为 :1,2,3,3,2,1,2,1,3; 写出程序的执行结果 : Private Sub Form_Click() Dim a(3, 3) As Integer For i = 1 To 3 Next For j = 1 To 3 Next For i = 1 To 3 a(i, j) = InputBox("aij=") For j = 1 To 3 Next a(i, j) = a((a(i, j) + 1) Mod 3 + 1, ((a(j, i) + 2) Mod 3 + 1))

38 78 Visual Basic 教程 ( 第 3 版 ) Next Print a(1, 1); a(2, 2); a(3, 3) 解析 : 本题主要考循环嵌套 第一个循环嵌套内循环为 j 次数为从 1 到 3, 因此下标从 a(1,1) 到 a(1,3), 则数组 a= ; 第二个循环嵌套中也是内循环也从 j 开始 ; 数组元素 a((a(i, j) + 1) Mod 3 + 1, ((a(j, i) + 2) Mod 3 + 1)) 的下标需要运算, 则 a 数组变成 a= 因为只要显示 3 个数, 则 a(1,1) 变成 a(3,3),a(2,2) 变成 a(1,2),a(3,3) 变成 a(2,3) 正确答案是程序运行结果是 习 题 一 选择题 1. 下面程序的数学模型为 N A. 1 B. 1 K 1! 2! 3! N K 1 N C. 1 D. 1 K! N K 1 Private Sub Form_Click() Dim n As Double, a As Double, k As Integer, sum As Double t = 1 : n = InputBox("n=") For k = 1 To n t = t / k : sum = sum + t Next k Print "sum="; sum 2. 在窗体上画一个名称为 Command1 的命令按钮, 然后编写如下事件过程 : Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a

39 第 3 章 Visual Basic 语言基本结构 79 程序运行后, 单击命令按钮, 则窗体上显示的内容是 A.7 9 B.34 0 C. 9 7 D. 死循环 3. 设有如下程序 : Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 Next Print sum x = n / i n = n + 1 sum = sum + x 该程序通过 For 循环计算一个表达式的值, 这个表达式是 A.1+1/2+ 2/3+3/4+4/5 B.1+1/2+2/3+3/4 C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5 4. 执行下面的程序, 单击窗体后在窗体上最后一行显示结果是 Private Sub Form_Click() Dim str1 As String, str2 As String, I As Integer str1 = "ab" For I = Len(str1) To 1 Step -1 Next I Print str1 str1 = str1 & Chr(Asc(Mid(str1, I, 1)) + I) Print str1 A.abce B.abcd C.abfd D.abdb 5. 下列数组说明语句中, 正确的是 A.DIM A(N) B.DIM A() N=3 REDIM A(N) C.REDIM A() D.N=3 N=3 DIM A(N) DIM A(N) 6. 在窗体放置一个命令按钮 Command1, 并编写如下程序 : For i=1 To 20 Print x x=x+i

40 80 Visual Basic 教程 ( 第 3 版 ) 单击按钮后, 窗体显示的结果是 A.34 B.50 C.150 D 在窗体放置一个命令按钮 Command1 和一个文本框 Text1, 并编写如下程序 : x="a" : y="b" : z="c" For i=1 To 2 x = y : y = z :z = x Text1.Text =x+y+z 单击按钮后, 文本框显示的结果是 A.CBA B.BCA C.BCB D.CBC 8. 以下叙述正确的是 A.Select Case 语句中的测试表达式可以是任何形式的表达式 B.Select Case 语句中的测试表达式只能是数值表达式或字符表达式 C. 在执行 Select Case 语句时, 所有的 Case 子句都按出现的次序被顺序执行 D.Select Case 的测试表达式会多次计算 9. 在窗体放置一个命令按钮 Command1 和一个文本框 Text1, 并编写如下程序 : Dim i As Integer,n As Integer For i=0 To 50 i =i+3 n=n+1 If i>10 Then Exit For Text1.Text =Str(n) 单击按钮后, 文本框显示的结果是 A.2 B.3 C.4 D 要创建一个用户自定义类型, 由学生的学号 姓名和三门课程的成绩组成, 则下面定义正确的 是 A. B. Type Student Type Student No As Integer No As Integer Name As String Name As String *10 Score(1 To 3) As Single Score() As Single End Type End Type C. D. Type Student Type Student No As Integer No As Integer Name As String *10 Name As String Score(1 To 3) As Single Score() As Single End Type End Type

41 第 3 章 Visual Basic 语言基本结构 81 二 填空题 1. 当程序进入循环结构时, 出现死循环按 键可以终止程序运行 2. 下面程序执行结果的第一行是, 第二行是, 若将 C 的值改为 2.5, 则结果分别是 Private Sub Form_Click() Dim a As Integer, b As Single b = 10.5: c = 2.6 For a = 1.5 To b Step c Next Print Print a Print a; 3. 写出程序的执行结果 Private Sub Form_Click() Dim b%, k% b = 1 For k = 1 To 5 b = b * k Next Print k, b If b >= 15 Then Exit For Else k = k 执行下面的程序, 单击窗体后在窗体上显示的第一行结果是 ; 第三行结果是 Private Sub Form_Click( ) Dim Mystr As String,Mystr1 As String,Mystr2 As String Mystr1="B" For I=1 To 3 Next I Mystr2=Lcase(Mystr1) Mystr1=Mystr1+Mystr2 Mystr=Mystr+Mystr1 Print Mystr Mystr1=Chr(Asc(Mystr1)+I) 5. 下列程序运行的结果为, 执行完程序循环了 次 Dim i As Integer,j As Integer Dim Sum As Integer For i=1 To 17 Step 2 For j=1 To 3 Step 2

42 82 Visual Basic 教程 ( 第 3 版 ) Next I Next j Print Sum Sum=Sum+j 6. 窗体输出第一行是, 窗体输出第二行是, 窗体输出第三行是 Private Sub Form_click() Dim a As String, b As String, t As Integer t = Int(Sqr(2 + 2 * Rnd(2))) Print t t = Sin(t) ^ 2 + Cos(t) ^ 2 : a = Chr(Asc("G") + t) Print a t = Log(Exp(t)) : b = Hex(10 + t) Select Case b End Select Case 11 : Print 11 Case "B" : Print b Case Else Print "Nothing" 7. 窗体输出第一行是, 窗体输出第二行是, 窗体输出第三行 Private Sub Form_click() Dim x() As Integer, y(10, 10) As Integer,i As Integer, j As Integer, k As Integer i = 6: j = 1: k = 1 Do While i > 2 Loop Print ReDim Preserve x(j) As Integer x(k) = I : y(i, j) = x(k) : i = i 1 : j = j + 1 Print x(k), k = k + 1 For i = 4 To 6 Step 2 For j = 1 To 3 Next j Print Print y(i, j), 8. 以下程序为找出 50 以内所有能构成直角三角形的整数数组 For a=1 To 50 For b=a To 50 c = Sqr(a^2+b^2)

43 第 3 章 Visual Basic 语言基本结构 83 Next a Next b If Then Print a;b;c 9. 下面的程序运行的结果为 x=1 For k=1 To 3 If k <=1 Then a = x * x Next k If k <=2 Then a = x * x + 1 If k >=3 Then a = x * x + 2 Print a; 10. 运行下面的程序, 单击窗体后在窗体上显示的内容是 ; 若将程序中的 A 语句与 B 语句的位置互换, 再次执行程序, 单击窗体后在窗体上显示的内容是 Private Sub Form_Click( ) Dim x As Integer,y As Integer x=1:y=0 Do while x<3 y=y+x Loop Print x,y x=x+1 'A 语句 'B 语句 11. 窗体输出第一行是, 窗体输出第二行是, 窗体输出第三行是 Private Sub Form_click() Dim a As String, b As String, t As Integer b = "GHSTDW" For t = 1 To Len(b) Step 2 a = a & Chr(Asc(Mid(b, t, 1)) - 2) Next t Print a Print Asc(Mid(a, 1, 1)) - Asc("A") Print LCase(Mid(a, 2, 2)) 12. 下面程序运行结果是 Private Sub Form_Click() Dim b As String, a As String, i As Integer b = "GgFfXxNnHh"

44 84 Visual Basic 教程 ( 第 3 版 ) For i = 1 To Len(b) Step 2 a = a & Chr(Asc(Mid(b, i, 1)) - 5) Print a 13. 执行下面程序, 单击命令按钮 Command1, 则在窗体上显示的第一行是, 第二行是, 第三行是 Dim s As Integer, d As String, k As Integer, p As String s = 29 Do Until s <= 5 p = s Mod 5 : d = d & p : s = s \ 5 Loop d = d & s : Print s : Print d p = "" For k = Len(d) To 1 Step -1 p = p & Mid(d, k, 1) Next k Print p 三 上机题 1. 使用 For 循环, 实现以下算式 : S = 使用 InputBox 输入需要计算的次数 2. 机票优惠, 某航空公司规定在 7~9 月份, 如果订票数超过 20 张, 则票价优惠 15%; 如果超过 10 张, 则票价优惠 5%; 在 1~5 月份 10 月份和 11 月份, 如果订票数超过 20 张, 则票价优惠 25%; 如果超过 10 张, 则票价优惠 15% 从窗体文本框中输入票价 月份以及订票数, 并显示出所需金额 3. 单击窗体产生 10 个 2 位的随机正整数, 计算并显示出最大 1 的数据和其在数组中的位置 求出所有的水仙花数 水仙花数是指 3 位的正整数, 其各位 数字的立方和等于该正整数本身 例如,407=4*4*4+0*0* *7* 计算并在窗体中显示出如图 3-30 所示的杨辉三角形, 要求 显示出 8 行 杨辉三角形的第一列和对角线元素为 1, 其他元素为上一行相邻两元素的和 图 3-30 杨辉三角形 6. 从窗体界面的文本框输入三角形的 3 条边的长, 计算三角形的面积

PowerPoint Presentation

PowerPoint Presentation Visual Basic 2005 學 習 範 本 第 7 章 陣 列 的 活 用 7-1 陣 列 當 我 們 需 要 處 理 資 料 時, 都 使 用 變 數 來 存 放 資 料 因 為 一 個 變 數 只 能 代 表 一 個 資 料, 若 需 要 處 理 100 位 同 學 的 成 績 時, 便 要 使 用 100 個 不 同 的 變 數 名 稱, 這 不 但 會 增 加 變 數 名 稱 命 名

More information

2009年3月二级VB语言笔试真题

2009年3月二级VB语言笔试真题 2008 年 9 月 计 算 机 二 级 VB 语 言 真 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 一 个 栈 的 初 始 状 态 为 空 现 将 元 素 1 2 3 4 5 A B C D E 依 次 入 栈, 然 后 再 依 次 出 栈, 则 元 素 出 栈 的 顺 序 是 A)12345ABCDE B)EDCBA54321 C)ABCDE12345 D)54321EDCBA

More information

2010年3月计算机等级考试四级网络工程师笔试

2010年3月计算机等级考试四级网络工程师笔试 计 算 机 二 级 VB 经 典 预 测 题 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 下 列 叙 述 中 正 确 的 是 ( ) A) 循 环 队 列 是 队 列 的 一 种 链 式 存 储 结 构 B) 循 环 队 列 是 队

More information

四川省普通高等学校

四川省普通高等学校 四 川 省 普 通 高 等 学 校 计 算 机 应 用 知 识 和 能 力 等 级 考 试 考 试 大 纲 (2013 年 试 行 版 ) 四 川 省 教 育 厅 计 算 机 等 级 考 试 中 心 2013 年 1 月 目 录 一 级 考 试 大 纲 1 二 级 考 试 大 纲 6 程 序 设 计 公 共 基 础 知 识 6 BASIC 语 言 程 序 设 计 (Visual Basic) 9

More information

<4D F736F F D D342DA57CA7DEA447B14D2DA475B57BBB50BADEB27AC3FEB14DA447B8D5C344>

<4D F736F F D D342DA57CA7DEA447B14D2DA475B57BBB50BADEB27AC3FEB14DA447B8D5C344> 1. 請 問 誰 提 出 積 體 電 路 (IC) 上 可 容 納 的 電 晶 體 數 目, 約 每 隔 24 個 月 (1975 年 更 改 為 18 個 月 ) 便 會 增 加 一 倍, 效 能 也 將 提 升 一 倍, 也 揭 示 了 資 訊 科 技 進 步 的 速 度? (A) 英 特 爾 (Intel) 公 司 創 始 人 戈 登. 摩 爾 (Gordon Moore) (B) 微 軟 (Microsoft)

More information

Microsoft Word - VB全文.doc

Microsoft Word - VB全文.doc 实验 5 顺序结构 一 实验目的 1. 熟悉常用的输入和输出的方法 2. 掌握 InputBox 函数和 MsgBox 函数的用法 3. 掌握编写顺序结构程序的一般步骤 二 实验内容 1. 设计一个计算圆面积的程序 要求 : 利用 InputBox 函数输入圆的半径, 利用 MsgBox 显示最后的计算结果 2. 设计一个简单的水果商店结算程序 要求 : 利用文本框输入香蕉 梨子 苹果三类水果的单价和重量,

More information

穨文件1

穨文件1 2-1 Access 2000 Visual Basic Access 2000 97 Office Visual Basic Visual Basic Visual Basic VBA Visual Basic Visual Basic 2-1-1 Visual Basic Access Visual Basic ( ) 2-1 2-1 Visual Basic 2-1 Microsoft Access

More information

Microsoft Word - 小心翼翼的二十一點N.doc

Microsoft Word - 小心翼翼的二十一點N.doc 投 稿 類 別 : 資 訊 類 篇 名 : 小 心 翼 翼 的 二 十 一 點 作 者 : 陳 鈺 文 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 李 伯 謙 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 胡 家 媛 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 指 導 老 師 : 周 曉 玲 老 師 陳 思 亮 主 任 壹 前 言 一 研 究 動 機 平

More information

Microsoft PowerPoint - OPVB1基本VB.ppt

Microsoft PowerPoint - OPVB1基本VB.ppt 大 綱 0.VB 能 做 什 麼? CH1 VB 基 本 認 識 1.VB 歷 史 與 版 本 2.VB 環 境 簡 介 3. 即 時 運 算 視 窗 1 0.VB 能 做 什 麼? Visual Basic =>VB=> 程 式 設 計 語 言 => 設 計 程 式 設 計 你 想 要 的 功 能 的 程 式 自 動 化 資 料 庫 計 算 模 擬 遊 戲 網 路 監 控 實 驗 輔 助 自 動

More information

2009年3月二级VB语言笔试真题

2009年3月二级VB语言笔试真题 2008 年 4 月 计 算 机 二 级 考 试 VB 笔 试 试 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 程 序 流 程 图 中 带 有 箭 头 的 线 段 表 示 的 是 A) 图 元 关 系 B) 数 据 流 C) 控 制 流 D) 调 用 关 系 2. 结 构 化 程 序 设 计 的 基 本 原 则 不 包 括 A) 多 态 性 B) 自 顶 向 下 C) 模

More information

VB程序设计教程

VB程序设计教程 高 等 学 校 教 材 Visual Basic 程 序 设 计 教 程 魏 东 平 郑 立 垠 梁 玉 环 石 油 大 学 出 版 社 内 容 提 要 本 书 是 按 高 等 学 校 计 算 机 程 序 设 计 课 程 教 学 大 纲 编 写 的 大 学 教 材, 主 要 包 括 VB 基 础 知 识 常 用 程 序 结 构 和 算 法 Windows 用 户 界 面 设 计 基 础 文 件 处

More information

Excel VBA Excel Visual Basic for Application

Excel VBA  Excel Visual Basic for Application Excel VBA Jun5,00 Sub 分頁 () Dim i As Integer Dim Cname As String Dim Code As Variant Set score=thisworkbook.sheets("sheet") Code=Array(" 專北一 "," 專北二 "," 專北三 "," 專桃園 "," 專桃竹 "," 專中苗 ", " 專台中 "," 專台南 ","

More information

第5章修改稿

第5章修改稿 (Programming Language), ok,, if then else,(), ()() 5.0 5.0.0, (Variable Declaration) var x : T x, T, x,,,, var x : T P = x, x' : T P P, () var x:t P,,, yz, var x : int x:=2. y := x+z = x, x' : int x' =2

More information

chap07.key

chap07.key #include void two(); void three(); int main() printf("i'm in main.\n"); two(); return 0; void two() printf("i'm in two.\n"); three(); void three() printf("i'm in three.\n"); void, int 标识符逗号分隔,

More information

Microsoft Word Visual_Basic程序设计上机实践教程正文.doc

Microsoft Word Visual_Basic程序设计上机实践教程正文.doc 实验 3 顺序和分支结构程序设计 实验目的 1. 掌握顺序结构的程序设计思想 2. 掌握命令按钮 (CommandButton) 标签 (Label) 文本框 (TextBox) 编辑框 (EditBox) 等常用控件的使用方法 3. 了解并掌握对话框函数 MessageBox() 的含义与用法 4. 了解和熟悉线条控件 形状控件的画法以及主要属性的用法 实验内容 1. 顺序结构 实训 3-1 编写一应用程序,

More information

吉林大学学报 工学版 244 第 4 卷 复杂 鉴于本文篇幅所限 具体公式可详见参考文 献 7 每帧的动力学方程建立及其解算方法如图 3 所示 图4 滚转角速度与输入量 η 随时间的变化波形 Fig 4 Waveform of roll rate and input η with time changing 图5 Fig 5 滚转角随时间的变化波形 Waveform of roll angle with

More information

1 32 a + b a + b 2 2 a b a b 2 2 2 4a 12a + 9 a 6 2 4 a 12a + 9 a 6 ( 2a 3) 2 a 6 3 1 2 4 + 2 4 8 + 3 6 12 + 1 3 9 + 2 6 18+ 3 9 27 + 1 10 1 10 ax + by = 2 cx 7y = 8 1 2 1 4 1 8 1

More information

2015年计算机二级(C语言)模拟试题及答案(三)

2015年计算机二级(C语言)模拟试题及答案(三) 2016 年计算机二级 (C 语言 ) 模拟试题及答案 (3) 1.( A ) 是构成 C 语言程序的基本单位 A 函数 B 过程 C 子程序 D 子例程 2.C 语言程序从 ( C ) 开始执行 A 程序中第一条可执行语句 B 程序中第一个函数 C 程序中的 main 函数 D 包含文件中的第一个函数 3 以下说法中正确的是( C ) A C 语言程序总是从第一个定义的函数开始执行 B 在 C 语言程序中,

More information

Microsoft Word - 專題製作研究報告書.doc

Microsoft Word - 專題製作研究報告書.doc 大 富 翁 之 我 要 畢 業 指 導 老 師 : 王 啟 修 參 賽 學 生 : 吳 皇 逸 林 晉 逸 黃 亭 瑋 賴 建 豫 嘉 義 高 商 資 料 處 理 科 摘 要 本 專 題 以 大 富 翁 遊 戲 為 基 本 題 材, 並 參 考 任 天 堂 遊 戲 公 司 製 作 的 Mario Party 電 視 遊 戲 和 各 代 的 大 富 翁, 將 不 同 風 格 的 小 遊 戲 與 傳 統

More information

2007年4月全国计算机二级考试VB语言笔试真题

2007年4月全国计算机二级考试VB语言笔试真题 2007 年 4 月 全 国 计 算 机 二 级 考 试 VB 语 言 笔 试 真 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1) 下 列 叙 述 中 正 确 的 是 () A) 算 法 的 效 率 只 与 问 题 的 规 模 有 关, 而 与 数 据 的 存 储 结 构 无 关 B) 算 法 的 时 间 复 杂 度 是 指 执 行 算 法 所 需 要 的 计 算 工 作 量

More information

untitled

untitled 例 立 劉 1 1991 來 Schollmeyer,1996; Volet & Lund, 1994 邏 力 林 2004 歷年 路 類 列 若 邏 力 來 路 力 益 例 數 列 類 論 數 識 數 數 沈 練 念 不 1991 狀 狀 理歷 Mayer, 1992 不 力 不 力 立 1994 了 更 參 力 力 力 靈 力 力 來 識 立 練 識 力 2000 來 1995 切 識 異 勵

More information

( CIP).:,3.7 ISBN TB CIP (3) ( ) ISBN O78 : 3.

( CIP).:,3.7 ISBN TB CIP (3) ( ) ISBN O78 : 3. ( CIP).:,3.7 ISBN 7 568 383 3.......... TB CIP (3) 334 3 37 ( ) 64536 www.hdlgpress.com.c 7879 6 9.75 479 3 7 3 7 45 ISBN 7 568 383 3O78 : 3. 995,.,.,.,. :,,,,.. :,,,,,,.,,,,.,,. ,,.,,,.,,,.,,,,.,.,,,

More information

OOP with Java 通知 Project 4: 4 月 18 日晚 9 点 关于抄袭 没有分数

OOP with Java 通知 Project 4: 4 月 18 日晚 9 点 关于抄袭 没有分数 OOP with Java Yuanbin Wu cs@ecnu OOP with Java 通知 Project 4: 4 月 18 日晚 9 点 关于抄袭 没有分数 复习 类的复用 组合 (composition): has-a 关系 class MyType { public int i; public double d; public char c; public void set(double

More information

投稿類別:電子工程類

投稿類別:電子工程類 投 稿 類 別 : 工 程 技 術 類 篇 名 : 井 字 生 死 戰 攻 略 作 者 : 陳 威 宇 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 邱 富 群 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 指 導 老 師 : 林 育 助 老 師 王 彥 盛 老 師 壹 前 言 家 喻 戶 曉 的 井 字 遊 戲 (Tic-Tac-Toe)

More information

星星排列 _for loop Protected Sub Page_Load(ByVal sender As Object, ByVal e As Dim h As Integer = 7 'h 為變數 ' Dim i, j As Integer For i = 1 To h

星星排列 _for loop Protected Sub Page_Load(ByVal sender As Object, ByVal e As Dim h As Integer = 7 'h 為變數 ' Dim i, j As Integer For i = 1 To h 資訊系統與實習 製作 : 林郁君 一 2009.09.28 9X9 'button 被按下後 ' Dim i, j As Integer For i = 1 To 9 'i 從 1 到 9' For j = 1 To 9 'j 從 1 到 9' If j * i < 10 Then ' 如果 j 乘上 i 是為個位數 ' Response.Write(i & "*" & j & " =" & i *

More information

上海市本科教学质量年度报告

上海市本科教学质量年度报告 上 海 市 本 科 教 学 质 量 年 度 报 告 数 据 内 涵 说 明 V2.0 版 上 海 市 教 委 高 教 处 上 海 喆 思 (2015.07.02) 目 录 一 基 本 统 计 挃 标 说 明... 4 二 挃 标 解 释... 4 1. 全 日 制 在 校 本 科 生 数 及 占 在 校 生 总 数 的 比 例 ( 学 年 )... 4 2. 当 年 本 科 招 生 与 业 总 数

More information

长 安 大 学 硕 士 学 位 论 文 基 于 数 据 仓 库 和 数 据 挖 掘 的 行 为 分 析 研 究 姓 名 : 杨 雅 薇 申 请 学 位 级 别 : 硕 士 专 业 : 计 算 机 软 件 与 理 论 指 导 教 师 : 张 卫 钢 20100530 长安大学硕士学位论文 3 1 3系统架构设计 行为分析数据仓库的应用模型由四部分组成 如图3 3所示

More information

99 cjt h 7. 0 (8 ) 0 () abc a b c abc0 aaa 0 a () bca abc0 aa0 a0 0 a0 abc a789 a b c (8 ) 9!

99 cjt h 7. 0 (8 ) 0 () abc a b c abc0 aaa 0 a () bca abc0 aa0 a0 0 a0 abc a789 a b c (8 ) 9! 99 cjt h. 4 (79 ) 4 88 88. 0 0 7 7 7 ( ) (80 ). ( ) (8 ) 4! ( ) 0 4 0 4. n (x)(x) (x) n x an bn cnd abcd (8 ) () adbc () acbd () ac (4) db0 () abcd (x)(x) (x) n n ( x)[ ( x) ] ( x) ( x) ( x) x) ( x) n

More information

. v dx v d () () l s dl s d (_) d () v s v s () a dv a d (_) ( ) ( ) x- = v- = = v 0 = m/s a = = m/s 2 a- = ( ) x- v- a- Page 2 of 20

. v dx v d () () l s dl s d (_) d () v s v s () a dv a d (_) ( ) ( ) x- = v- = = v 0 = m/s a = = m/s 2 a- = ( ) x- v- a- Page 2 of 20 Page 1 of 20 . v dx v d () () l s dl s d (_) d () v s v s () a dv a d (_) ( ) ( ) x- = v- = = v 0 = m/s a = = m/s 2 a- = ( ) x- v- a- Page 2 of 20 (1) x v a (2) x v a x v (3) x v a x v a x v Page 3 of

More information

6CO2 6H 2O C6H 2O6 6O2 = = n i= P X i n H X - P X logp X i= i n X X X P i P 0 i l n i n n P i= i H X = - p log P n i= i i i + H X - P X logp X dx - 2 2 2 2 3 2 4 2 d( Q) d( Q) > 0 = 0 di di d(

More information

2

2 1 2 1-1 Visual Basic 3 1-2 3/8-3/21 3/22-4/4 4/5-4/18 4/19-5/2 5/3-5/16 5/17-5/30 5/31-6/13 6/14-6/27 6/28-7/11 7/12-7/25 7/26-8/8 8/9-8/22 8/25-9/5 9/6-9/19 9/20-10/3 10/4-10/17 10/18-10/31 11/15-11/28

More information

Microsoft PowerPoint - VB14.ppt

Microsoft PowerPoint - VB14.ppt VB 列表盒 LISTBOX 應用 資科系 林偉川 執行畫面 1 2 1 重要屬性 LISTBOX 物件 (VB6) 新增至 LISTBOX 物件中 ADDITEM 自 LISTBOX 物件中刪除選取物件 REMOVEITEM 自 LISTBOX 物件中取出選取物件 ListIndex 顯示 LISTBOX 物件中紀錄個數 Listcount 3 LISTBOX 物件 (VB.NET) 重要屬性 新增至

More information

提示 : (1) 程序运行时单击两次鼠标, 观察输出结果 ; (2) 将输出内容修改为 我的第一个 VB 程序 ; (3) 尝试改变输出文本的颜色 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ;

提示 : (1) 程序运行时单击两次鼠标, 观察输出结果 ; (2) 将输出内容修改为 我的第一个 VB 程序 ; (3) 尝试改变输出文本的颜色 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; 第 13 章 VB 上机练习题程序最终是要在计算机上运行的, 学习程序设计过程中很重要的一个环节是上机练习, 只有将一个程序在计算机上编写 调试 运行并得到正确的结果, 才算完成了程序设计与实现 本章根据前面章节的学习内容, 将上机练习题目分类, 分别编写了 12 类上机题目, 供老师教学和上机参考 13.1 上机练习一 目的 : (1) 熟悉 Visual Basic6.0 开发环境 (2) 模仿简单的

More information

80000 400 200 X i X1 + X 2 + X 3 + + X n i= 1 x = n n x n x 17 + 15 + 18 + 16 + 17 + 16 + 14 + 17 + 16 + 15 + 18 + 16 = 12 195 = = 1625. ( ) 12 X X n i = = 1 n i= 1 X f i f Xf = f n i= 1 X f ( Xf). i i

More information

B4C2

B4C2 - ( )( ) B=A A A k A A A k (B)=(A )+(A )+ +(A k ) (B) B A A A k B (Patitios) Ex. 6 4 As. ()(A )=(U) (A) ()(A B )=((A B) )=(U) (A B) (DeMoga). (A-B)=(A) (A B) Ex. A={x x N x 0 6 } B={x x=0k k Z} (A B)=

More information

科学计算的语言-FORTRAN95

科学计算的语言-FORTRAN95 科 学 计 算 的 语 言 -FORTRAN95 目 录 第 一 篇 闲 话 第 1 章 目 的 是 计 算 第 2 章 FORTRAN95 如 何 描 述 计 算 第 3 章 FORTRAN 的 编 译 系 统 第 二 篇 计 算 的 叙 述 第 4 章 FORTRAN95 语 言 的 形 貌 第 5 章 准 备 数 据 第 6 章 构 造 数 据 第 7 章 声 明 数 据 第 8 章 构 造

More information

OOP with Java 通知 Project 4: 4 月 19 日晚 9 点

OOP with Java 通知 Project 4: 4 月 19 日晚 9 点 OOP with Java Yuanbin Wu cs@ecnu OOP with Java 通知 Project 4: 4 月 19 日晚 9 点 复习 类的复用 组合 (composition): has-a 关系 class MyType { public int i; public double d; public char c; public void set(double x) { d

More information

6. 4 5 6 7 8 9 10 11 ...1... 1...1...1...2... 3...3...5...9... 11...11...11...12...12... 13...13...14... 16...16...19...20 I 1 ---------------------------------------------------3 2 ------------------------------------------------6

More information

Microsoft Word - 2008年4月ACCESS真卷.doc

Microsoft Word - 2008年4月ACCESS真卷.doc 机 密 启 用 前 2008 年 4 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 Access 数 据 库 程 序 设 计 29 注 意 事 项 一 考 生 应 严 格 遵 守 考 场 规 则, 得 到 监 考 人 员 指 令 后 方 可 作 答 二 考 生 拿 到 试 卷 后 应 首 先 将 自 己 的 姓 名 准 考 证 号 等 内 容 涂 写 在 答 题 卡 的 相 应 位

More information

untitled

untitled 1 Outline 數 料 數 數 列 亂數 練 數 數 數 來 數 數 來 數 料 利 料 來 數 A-Z a-z _ () 不 數 0-9 數 不 數 SCHOOL School school 數 讀 school_name schoolname 易 不 C# my name 7_eleven B&Q new C# (1) public protected private params override

More information

多層次傳銷與獎金系統

多層次傳銷與獎金系統 醒 吾 技 術 學 院 資 訊 管 理 系 ( 五 專 部 ) 九 十 六 學 年 度 畢 業 專 題 多 層 次 傳 銷 與 獎 金 系 統 組 員 : 921506122 游 濬 瑋 921506126 陳 彥 宇 921506139 林 龍 華 921506144 陳 昶 志 921506149 楊 璧 如 指 導 老 師 : 汪 淵 老 師 中 華 民 國 九 十 七 年 一 月 十 一 醒

More information

3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4

3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4 IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC 1.1 2 1.2 3 Driver do Microsoft Access (*.mdb) 1.3 4 hisdata IFIX 1.4 1.4 5 Access 1.5 6 ODBC ifix3.5 1.6 1.6

More information

32 91320301136426860D 江 苏 汉 邦 建 设 集 团 有 限 公 司 201601 41.50 45.00 0.00 86.50 33 05021063-9 江 苏 邦 实 建 设 工 程 有 限 公 司 201601 37.00 49.50 0.00 86.50 34 703

32 91320301136426860D 江 苏 汉 邦 建 设 集 团 有 限 公 司 201601 41.50 45.00 0.00 86.50 33 05021063-9 江 苏 邦 实 建 设 工 程 有 限 公 司 201601 37.00 49.50 0.00 86.50 34 703 2016 年 徐 州 市 建 筑 业 施 工 企 业 上 半 年 综 合 信 用 评 价 得 分 表 日 期 :2016-06-14 序 号 组 织 机 构 代 码 单 位 名 称 批 次 基 本 信 用 分 综 合 考 核 得 分 日 常 扣 分 信 用 考 核 总 分 1 13641102-8 徐 州 市 政 建 设 集 团 有 限 责 任 公 司 201601 50.00 49.33 0.00

More information

IsPostBack 2

IsPostBack 2 5 IsPostBack 2 TextBox 3 TextBox TextBox 4 TextBox TextBox 1 2 5 TextBox Columns MaxLength ReadOnly Rows Text TextMode TextMode MultiLine TextMode MultiLine True False TextMode MultiLine Password MulitLine

More information

untitled

untitled 1 Outline 流 ( ) 流 ( ) 流 ( ) 流 ( ) 流 ( ) 狀 流 ( ) 利 來 行流 if () 立 行 ; else 不 立 行 ; 例 sample2-a1 (1) 列 // 料 Console.Write(""); string name = Console.ReadLine(); Console.WriteLine(" " + name + "!!"); 例 sample2-a1

More information

Microsoft Word - ch05.doc

Microsoft Word - ch05.doc 第 5 章循环结构程序设计 教学提示 : 结构化程序设计有 3 种基本结构 : 顺序结构 选择结构和循环结构 循环结构程序设计的特点是 : 在满足条件 ( 称为循环条件 ) 的情况下反复执行某段代码 ( 称为循环体 ), 直到不满足条件时结束循环 在进行循环结构程序设计时, 关键是要正确选取循环条件和循环体 循环条件设置不当, 可能导致循环的次数偏多或偏少, 甚至死循环 ; 循环体设置不好, 可能导致多做或少做部分工作,

More information

<4D6963726F736F667420576F7264202D2032303135C4EAC8EBD1A74D4241C1AABFBCD7DBBACFB2CEBFBCB4F0B0B8BCB0CFEABDE22E646F6378>

<4D6963726F736F667420576F7264202D2032303135C4EAC8EBD1A74D4241C1AABFBCD7DBBACFB2CEBFBCB4F0B0B8BCB0CFEABDE22E646F6378> 05 年 入 学 MBA 联 考 综 合 试 卷 参 考 答 案 及 详 解 说 明 : 由 于 05 年 入 学 MBA 联 考 试 题 为 一 题 多 卷, 因 此 现 场 试 卷 中 的 选 择 题 顺 序 及 每 道 题 的 选 项 顺 序, 不 同 考 生 有 所 不 同 请 在 核 对 答 案 时 注 意 题 目 和 选 项 的 具 体 内 容 所 有 解 析 来 自 网 络, 仅 供

More information

Microsoft Word - 烘焙食品乙級第二部份 doc

Microsoft Word - 烘焙食品乙級第二部份 doc 烘 焙 食 品 乙 級 技 術 士 技 能 檢 定 術 科 參 考 資 料 試 題 編 號 :077-900201-3 審 定 日 期 : 年 月 日 修 訂 日 期 :96 年 7 月 1 日 97 年 1 月 30 日 97 年 10 月 27 日 98 年 6 月 20 日 98 年 12 月 17 日 99 年 08 月 20 日 烘 焙 食 品 乙 級 技 術 士 技 能 檢 定 術 科

More information

Ps22Pdf

Ps22Pdf 2001 ( ) 063,, ( CIP ) : : : (100054, 8 ) : : (021) 73094, ( 010 )63223094 : : : 850 1168 1/ 32 : : : : 2001 2001 : : ISBN 7-113 - 04319-4/ U 1192 : 24 00,, : ( 021 ) 73169, ( 010) 63545969 : : : : : :

More information

Ps22Pdf

Ps22Pdf si equation equation geome triageo metria geometria geo lin xin zng chu m x y y x h b ng sh kn x y z x y z x y z x y z x y z u c xin sho jin bio A B C zh f i q an an an an n n lim n an an gng chng

More information

2014年全国计算机二级Access预测试卷 2

2014年全国计算机二级Access预测试卷 2 2015 年 计 算 机 二 级 ACCESS 模 拟 试 题 及 答 案 (6) 一 选 择 题 ( 每 小 题 1 分, 共 40 小 题, 共 40 分 ) 1 要 在 查 找 表 达 式 中 使 用 通 配 符 通 配 一 个 数 字 字 符, 应 选 用 的 通 配 符 是 A.* B.? C.! D.# 2 在 下 列 关 于 宏 和 模 块 的 叙 述 中, 正 确 的 是 A. 模

More information

2008年全国初中数学联合竞赛

2008年全国初中数学联合竞赛 州奥林教育 05 年全国初中数学联合竞赛试题参考答案及评分标准 说明 : 评阅试卷时, 请依据本评分标准 第一试, 选择题和填空题只设 7 分和 0 分两档 ; 第二试各题, 请按照本评分标准规定的评分档次给分 如果考生的解答方法和本解答不同, 只要思路合理, 步骤正确, 在评卷时请参照本评分标准划分的档次, 给予相应的分数 一 选择题 :( 本题满分 4 分, 每小题 7 分 ) 第一试 () b

More information

SMM667.mps

SMM667.mps 第 章 设 计 简 单 程 序 本 章 是 学 习 VB 程 序 设 计 的 入 门 篇, 其 中 涉 及 的 几 个 常 用 控 件 和 基 本 语 句 是 后 续 章 节 中 反 复 使 用 的 基 础 内 容 学 习 目 标 瞯 了 解 顺 序 程 序 结 构 瞯 熟 悉 用 户 界 面 的 设 计 和 简 单 代 码 设 计 瞯 掌 握 赋 值 语 句 和 InputBox MsgBox Print

More information

全国计算机等级考试无纸化真考题库试卷(3)

全国计算机等级考试无纸化真考题库试卷(3) 全 国 计 算 机 等 级 考 试 无 纸 化 真 考 题 库 试 卷 (3) 二 级 Visual Basic ( 考 试 时 间 l20 分 钟, 满 分 100 分 ) 1 选 择 题 ( 每 小 题 1 分 共 40 分 ) (1) 下 列 叙 述 中 正 确 的 是 ( ) A. 栈 是 先 进 先 出 的 线 性 表 B. 队 列 是 先 进 后 出 的 线 性 表 C. 循 环 队 列

More information

3. 給 定 一 整 數 陣 列 a[0] a[1] a[99] 且 a[k]=3k+1, 以 value=100 呼 叫 以 下 兩 函 式, 假 設 函 式 f1 及 f2 之 while 迴 圈 主 體 分 別 執 行 n1 與 n2 次 (i.e, 計 算 if 敘 述 執 行 次 數, 不

3. 給 定 一 整 數 陣 列 a[0] a[1] a[99] 且 a[k]=3k+1, 以 value=100 呼 叫 以 下 兩 函 式, 假 設 函 式 f1 及 f2 之 while 迴 圈 主 體 分 別 執 行 n1 與 n2 次 (i.e, 計 算 if 敘 述 執 行 次 數, 不 1. 右 側 程 式 正 確 的 輸 出 應 該 如 下 : * *** ***** ******* ********* 在 不 修 改 右 側 程 式 之 第 4 行 及 第 7 行 程 式 碼 的 前 提 下, 最 少 需 修 改 幾 行 程 式 碼 以 得 到 正 確 輸 出? (A) 1 (B) 2 (C) 3 (D) 4 1 int k = 4; 2 int m = 1; 3 for (int

More information

Microsoft Word - 2006年9月二级VF真卷.doc

Microsoft Word - 2006年9月二级VF真卷.doc 机 密 启 用 前 2006 年 9 月 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 Visual FoxPro 数 据 库 程 序 设 计 27 注 意 事 项 一 考 生 应 严 格 遵 守 考 场 规 则, 得 到 监 考 人 员 指 令 后 方 可 作 答 二 考 生 拿 到 试 卷 后 应 首 先 将 自 己 的 姓 名 准 考 证 号 等 内 容 涂 写 在 答 题 卡

More information

untitled

untitled Double Angel 1.,,,, [] (1),,,,,,,,,,,,,,,,() (),,( ), (2),,,,,1978 ( 53 )2 (M6.2) 6 (M7.4) 1997 ( 9 )3 1 (M6.2)5(M6.3),,,, (3),,1990,,, (4),,,,,,,,,,,,, 2.,,,,,, [] (1) 2 ,,,,, (2),,,,, (),,,,,,,,,, 10,,,,,,,,,,,,,,,,,,,,

More information

2015 44010078609858X 广 州 澳 希 亚 实 业 有 限 公 司 广 州 市 荔 湾 区 国 家 税 务 局 第 二 税 务 分 局 2015 914401011904301233 广 州 市 运 输 有 限 公 司 广 州 市 荔 湾 区 国 家 税 务 局 第 二 税 务 分

2015 44010078609858X 广 州 澳 希 亚 实 业 有 限 公 司 广 州 市 荔 湾 区 国 家 税 务 局 第 二 税 务 分 局 2015 914401011904301233 广 州 市 运 输 有 限 公 司 广 州 市 荔 湾 区 国 家 税 务 局 第 二 税 务 分 根 据 国 家 税 务 总 局 公 告 2016 年 第 7 号, 我 市 信 用 等 级 为 A 级 的 一 般 纳 税 人 取 得 销 售 方 使 用 增 值 税 发 票 系 统 升 级 版 开 具 的 增 值 税 专 用 发 票, 自 2016 年 3 月 1 日 起, 可 以 不 再 进 行 扫 描 认 证, 通 过 增 值 税 发 票 税 控 开 票 软 件 登 录 增 值 税 发 票 查

More information

Ps22Pdf

Ps22Pdf A B C D A B C D A B C D a a b c x x x x x x x x x x x x x x x x x a b c x a x x x x x x x x x x a b a b a b x x x x x x x x x x x x A B C A B C A B A B A x B C x D A B C a b c a b x x x x x x x A B A

More information

第 期 曹 源 等 形式化方法在列车运行控制系统中的应用

第 期 曹 源 等 形式化方法在列车运行控制系统中的应用 第 卷 第 期 年 月 交通运输工程学报 曹 源 唐 涛 徐田华 穆建成 为了确保列车运行控制系统设计和开发的正确性 比较了仿真 测试和形式化 种能够验证 系统设计正确性的方式 根据列车运行控制系统对安全的苛求性 提出了 个与系统安全相关的重要特性 即实时性 混成性 分布 并发 性 反应性 并分析了与这些特性相关的具体形式化方法 通 过对每种形式化方法的数学基础和应用范围的分析和归类 给出了各种方法的优势和不足

More information

工程项目进度管理 西北工业大学管理学院 黄柯鑫博士 甘特图 A B C D E F G 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 甘特图的优点 : 直观明了 ( 图形化概要 ); 简单易懂 ( 易于理解 ); 应用广泛 ( 技术通用 ) 甘特图的缺点 : 不能清晰表示活动间的逻辑关系 WBS 责任分配矩阵 ( 负责〇审批

More information

( ) ( )

( ) ( ) ( ) ( ) ,,,,,,,,, :010-62782989 13501256678 13801310933,,,, ;,, (CIP) /. 3. :, 2005. 6 ISBN 7-302-10214-7... - -. O22 CIP ( 2004) 139321 : : http: / / www.tup.com.cn : 100084 : 010-62770175 : 010-62776969

More information

a( a 0) a a( a 0) a = a ( a) = a a( a 0 ) a = a( a ) 0 a = a 4 f x 1 = x a ai a R sinx + a b ab sin x sinx = sinx sin x = 4 y = sinx + sinx - ysinx 4 = 0 sinx sinx x - 3 3= x x- 3 - x- 3 = 0

More information

<4D6963726F736F667420576F7264202D20D6D0B3CFD0C5B9FABCCAD3D0B9D8B8BAD4F0C8CBBECDA1B032303035C4EAD6D0B9FAD2F8D0D0D2B5B9ABBFAAC6C0BCB6A1B1B4F0BCC7D5DFCECA2E646F63>

<4D6963726F736F667420576F7264202D20D6D0B3CFD0C5B9FABCCAD3D0B9D8B8BAD4F0C8CBBECDA1B032303035C4EAD6D0B9FAD2F8D0D0D2B5B9ABBFAAC6C0BCB6A1B1B4F0BCC7D5DFCECA2E646F63> 中 诚 信 国 际 有 关 负 责 人 就 2005 年 中 国 银 行 业 公 开 评 级 答 记 者 问 2005 年 9 月 1 日, 中 诚 信 国 际 信 用 评 级 有 限 公 司 在 北 京 召 开 新 闻 发 布 会, 发 布 了 2005 年 中 国 银 行 业 展 望 与 评 级 报 告, 并 公 布 了 18 家 国 内 银 行 的 综 合 财 务 实 力 评 级 个 体 财

More information

FY.DOC

FY.DOC 高 职 高 专 21 世 纪 规 划 教 材 C++ 程 序 设 计 邓 振 杰 主 编 贾 振 华 孟 庆 敏 副 主 编 人 民 邮 电 出 版 社 内 容 提 要 本 书 系 统 地 介 绍 C++ 语 言 的 基 本 概 念 基 本 语 法 和 编 程 方 法, 深 入 浅 出 地 讲 述 C++ 语 言 面 向 对 象 的 重 要 特 征 : 类 和 对 象 抽 象 封 装 继 承 等 主

More information

Microsoft PowerPoint - C语言课件-9-结构体.pptx

Microsoft PowerPoint - C语言课件-9-结构体.pptx 第九章结构体 郎大鹏 第九章结构体 9.1 结构体类型的声明方法 9.2 结构体类型变量的定义与使用 9.3 结构体数组 9.4 编程举例 9.5 习题 9.1 结构体类型的声明方法 结构体声明的语法形式如下 : struct 结构体标识符 成员变量列表 ; }; 例如, 为了描述班级 ( 假设仅仅包括班级编号 专业 人数等信息 ), 可以声明如下的结构体类型 struct Class char Code[10];

More information

Visual C# 2005程式設計

Visual C# 2005程式設計 Visual Basic 2005 程式設 計 第 5 章流程控制 5-1 認識流程控制 判斷結構 (decision structures) If...Then Else Select Case Try Catch Finally 迴圈結構 (loop structures) For...Next For Each...Next Do...Loop While End While 5-2 If Then

More information

Chapter12 Derived Classes

Chapter12   Derived Classes 继 承 -- 派 生 类 复 习 1. 有 下 面 类 的 说 明, 有 错 误 的 语 句 是 : class X { A) const int a; B) X(); C) X(int val) {a=2 D) ~X(); 答 案 :C 不 正 确, 应 改 成 X(int val) : a(2) { 2. 下 列 静 态 数 据 成 员 的 特 性 中, 错 误 的 是 A) 说 明 静 态 数

More information

, 7, Windows,,,, : ,,,, ;,, ( CIP) /,,. : ;, ( 21 ) ISBN : -. TP CIP ( 2005) 1

, 7, Windows,,,, : ,,,, ;,, ( CIP) /,,. : ;, ( 21 ) ISBN : -. TP CIP ( 2005) 1 21 , 7, Windows,,,, : 010-62782989 13501256678 13801310933,,,, ;,, ( CIP) /,,. : ;, 2005. 11 ( 21 ) ISBN 7-81082 - 634-4... - : -. TP316-44 CIP ( 2005) 123583 : : : : 100084 : 010-62776969 : 100044 : 010-51686414

More information

Microsoft Word - 095_2015.09.26 什麼最快樂 (白話與經文加註)-ok .doc

Microsoft Word - 095_2015.09.26  什麼最快樂 (白話與經文加註)-ok .doc 釋 厚 觀 ( 福 嚴 推 廣 教 育 班,2015.9.26) 各 位 法 師 各 位 居 士, 大 家 好! 今 天 跟 大 家 分 享 一 則 佛 典 故 事, 這 故 事 出 自 法 句 譬 喻 經, 在 大 正 藏 第 4 冊 595 頁 中 欄 到 596 頁 上 欄 過 去, 佛 在 舍 衛 國 祇 園 精 舍 時, 有 四 位 新 學 比 丘 一 起 來 到 㮈 樹 下 坐 禪 修

More information

Microsoft Word - 序.DOC

Microsoft Word - 序.DOC 了 解 副 程 式 意 義 及 使 用 時 機, 變 數 的 存 取 範 圍 及 多 表 單 的 程 式 設 計 7-1 函 式 7-2 副 程 式 7-3 變 數 的 範 圍 7-4 傳 值 呼 叫 及 傳 址 呼 叫 7-5 多 表 單 程 式 設 計 (MDI) 7-6 習 題 在 程 式 設 計 過 程 中, 程 式 會 因 為 不 斷 成 長, 程 式 碼 會 愈 來 愈 長, 有 一 部

More information

悖论

悖论 年 月总第 8 期 数学方法与数学思想 编辑点评 数学与哲学都是研究最普遍的事物的 但是研究的角度 目的 方法 过 程和成果并不一样 所以两者之间有联系也有区别 该文通过对像 先有鸡 还是先有蛋 这样一些通俗又典型的例子 说明数学家与哲学家对于同一 个问题思维和处理的方式如何不同 便于读者形象地理解文中的论点 文 章的论述比较恰当 准确 深刻 写作也通顺流利 是一篇可读性较强的 文章 值得读者体会和学习

More information

教学输入与学习者的语言输出 温晓虹 本文从三个方面探讨了语言的输入与输出的关系 首先从理论研究的角度讨 论了从语言输入到语言输出的习得过程 实验研究表明 输入的语言素材必须被学习者所接收 即使接收了的内容也并不会自动进入中介语的体系 而是需要进一步对输入语言进行 分解 归类等分析性与综合性的处理 在语言 内化 的基础上 学习者的中介语系统才能 够不断地得到重新组合 趋于目的语 另外 学习者在语言输出前和输出时需要调节

More information

本 土 天 蝗 傳 奇 - 台 灣 大 蝗 生 活 史 及 生 態 習 性 的 研 究 摘 要 台 灣 大 蝗 在 交 配 時 警 覺 性 降 低, 蝗 會 背 著 蝗 跳 到 遠 處, 但 不 會 飛, 肚 子 餓 時 會 進 食, 但 蝗 不 會 交 配 後 蝗 會 選 擇 土 質 堅 實 植

本 土 天 蝗 傳 奇 - 台 灣 大 蝗 生 活 史 及 生 態 習 性 的 研 究 摘 要 台 灣 大 蝗 在 交 配 時 警 覺 性 降 低, 蝗 會 背 著 蝗 跳 到 遠 處, 但 不 會 飛, 肚 子 餓 時 會 進 食, 但 蝗 不 會 交 配 後 蝗 會 選 擇 土 質 堅 實 植 中 華 民 國 第 四 十 八 屆 中 小 學 科 學 展 覽 會 作 品 說 明 書 國 中 組 生 物 及 地 球 科 學 科 第 三 名 031708 本 土 天 蝗 傳 奇 ~ 台 灣 大 蝗 蟲 生 活 史 及 生 態 習 性 的 研 究 學 校 名 稱 : 臺 北 市 立 麗 山 國 民 中 學 作 者 : 指 導 老 師 : 國 一 陳 夢 晴 竇 俊 明 國 一 林 宜 潔 國 一

More information

2

2 Visual Basic 程序设计实验与实训指导 1 2 3 淮阴工学院 Visual Basic 程序设计实验与实训指导 信息技术教学部 2010 年 7 月 1 日 4 前 言 VB 程序设计语言具有功能强大 易学易用等特点, 因此大多数高校把 VB 作为非计算机专业学生首选的计算机程序设计语言课程 通过该课程的学习, 不仅要求学生掌握计算机程序设计语言的基本知识 编程技术和基本算法, 更重要的是要求学生掌握程序设计的思想和方法,

More information

2016 年 全 国 硕 士 研 究 生 招 生 考 试 管 理 类 专 业 学 位 联 考 综 合 能 力 冲 刺 密 押 试 卷 ( 一 ) 一 问 题 求 解 : 第 1~15 小 题, 每 小 题 3 分, 共 45 分 下 列 每 题 给 出 的 A B C D E 五 个 选 项 中,

2016 年 全 国 硕 士 研 究 生 招 生 考 试 管 理 类 专 业 学 位 联 考 综 合 能 力 冲 刺 密 押 试 卷 ( 一 ) 一 问 题 求 解 : 第 1~15 小 题, 每 小 题 3 分, 共 45 分 下 列 每 题 给 出 的 A B C D E 五 个 选 项 中, 绝 密 启 用 前 考 生 姓 名 考 生 编 号 2016 年 全 国 硕 士 研 究 生 招 生 考 试 管 理 类 专 业 学 位 联 考 综 合 能 力 冲 刺 密 押 试 卷 ( 科 目 代 码 :199) 1. 考 生 必 须 严 格 遵 守 各 项 考 场 规 则 (1) 考 生 在 考 试 开 考 15 分 钟 后 不 得 入 场 (2) 交 卷 出 场 时 间 不 得 早 于 考

More information

<4D6963726F736F667420576F7264202D2032303036C4EAB9FABCD2B9ABCEF1D4B1D0D0D5FEC4DCC1A6B2E2D1E9A3A841C0E0A3A92E646F63>

<4D6963726F736F667420576F7264202D2032303036C4EAB9FABCD2B9ABCEF1D4B1D0D0D5FEC4DCC1A6B2E2D1E9A3A841C0E0A3A92E646F63> 2006 年 中 央 国 家 公 务 员 考 试 行 政 职 业 能 力 测 验 一 第 一 部 分 言 语 理 解 与 表 达 1. 在 公 路 发 展 的 早 期, 它 们 的 走 势 还 能 顺 从 地 貌, 即 沿 河 流 或 森 林 的 边 缘 发 展 可 如 今, 公 路 已 无 所 不 在, 狼. 熊 等 原 本 可 以 自 由 游 荡 的 动 物 种 群 被 分 割 得 七 零 八

More information

䥄 ‱‰⁝‍਀㙁㡂㕄㡃䉂㔾w)

䥄 ‱‰⁝‍਀㙁㡂㕄㡃䉂㔾w) II I E T... 1...58...58...59...61...63...68...69...71...75...79...81...84...87...91...96...99...99...101...102...104...107...108... 110... 112... 116 II...121...124...127...131...132...134...136...139...141...143...144

More information

2010年江西公务员考试行测真题

2010年江西公务员考试行测真题 2010 年 江 西 省 公 务 员 录 用 考 试 行 政 职 业 能 力 测 验 真 题 说 明 这 项 测 验 共 有 五 个 部 分,135 道 题, 总 时 限 120 分 钟 各 部 分 不 分 别 计 时, 但 都 给 出 了 参 考 时 限, 供 以 参 考 以 分 配 时 间 请 在 机 读 答 题 卡 上 严 格 按 照 要 求 填 写 好 自 己 的 姓 名 报 考 部 门,

More information

2006年国家公务员招录考试行测真题(A)

2006年国家公务员招录考试行测真题(A) 2006 年 中 央 国 家 机 关 公 务 员 录 用 考 试 行 政 职 业 能 力 测 验 (A) 真 题 说 明 这 项 测 验 共 有 五 个 部 分,135 道 题, 总 时 限 为 120 分 钟 各 部 分 不 分 别 计 时, 但 都 给 出 了 参 考 时 限, 供 你 参 考 以 分 配 时 间 请 在 机 读 答 题 卡 上 严 格 按 照 要 求 填 写 好 自 己 的 姓

More information

(Microsoft Word - \253\312\255\261)

(Microsoft Word - \253\312\255\261) 修 平 技 術 學 院 電 機 工 程 系 DEPARTMENT OF ELECTRICAL ENGINEERING HSIU-PING INSTITUTE OF TECHNOLOGY 實 務 專 題 報 告 書 電 玩 軟 體 設 計 指 導 老 師 : 陳 文 豪 專 題 製 作 學 生 : 四 技 電 四 甲 柯 冠 廷 BD96010 四 技 電 四 甲 王 明 正 BD96044 中 華

More information

避孕篇

避孕篇 避 孕 篇 生 育 后 时 期 的 避 孕 方 法 : 适 用 的 方 法 : 1) 宫 内 节 育 器 类 : 金 属 环 可 放 置 15 年 左 右 ;V 型 环 可 放 置 5-7 年 ;T 型 环 可 放 置 10-15 年 2) 避 孕 药 ( 针 ) 类 : 各 种 短 效 口 服 避 孕 药, 如 妈 富 隆 敏 定 偶 三 相 片 及 达 英 -35 等, 按 规 定 方 法 服

More information

全 國 教 育 實 習 資 訊 平 臺 師 資 培 育 之 大 學 操 作 手 冊 目 錄 壹 在 校 師 資 生 使 用 全 國 教 育 實 習 資 訊 平 臺 之 前 置 作 業... 1 貳 使 用 者 註 冊 登 入 說 明... 4 一 加 入 會 員... 4 二 使 用 者 登 錄... 7 參 承 辦 人 員 資 料 管 理... 8 肆 校 內 公 布 欄... 9 伍 各 項 資

More information

Microsoft Word - 财务d08z.doc

Microsoft Word - 财务d08z.doc 版 权 所 有 侵 权 必 究 图 书 在 版 编 目 (CIP) 数 据 用 好 Excel(2007 版 ): 财 务 篇 / 王 维, 云 大 勇 编 著. 北 京 : 中 国 宇 航 出 版 社,2007.5 ( 时 尚 IT 生 活 秀 ) ISBN 978-7-80218-208-0 Ⅰ. 用 Ⅱ.1 王 2 云 Ⅲ. 电 子 表 格 系 统,Excel Ⅳ.TP391.13 中 国 版

More information

zyk00168ZW.PDF

zyk00168ZW.PDF () 0 4 5 (km).5 4 5.5 7 8.5 () 0 4 5 (km) 4 4.5 5 5.5 6 6.5 y5x. y0. 5x4 x y 9 5x y x y 9 5x y x x 6 x y. 55 y5x. y0. 5x4 x 0 x x y y y 5 x x x 4 y y y 5 () x y () y x x 4y 0 4x y x 0 0.4 y 0.5 0 5x y

More information

! %! &!! % &

! %! &!! % & 张海峰 姚先国 张俊森 借鉴 的有效教育概念 本文利用 年间的中国省级面板数据估计了平均教育年限 教育数量 和平均师生比率 教育质量 对地区 劳动生产率的影响 本文的实证分析结果表明 以师生比率衡量的教育质量对劳动生产 率有显著且稳健的正效应 在均值处师生比率每上升一个标准差 有助于提高地区劳动生产率约 教育数量对劳动生产率的影响大小部分取决于教育质量的高低 教育质量越高教育数量对劳动生产率的促进效应越大

More information

数 学 高 分 的 展 望 一 管 理 类 联 考 分 析 第 一 篇 大 纲 解 析 篇 编 写 : 孙 华 明 1 综 合 能 力 考 试 时 间 :014 年 1 月 4 日 上 午 8:30~11:30 分 值 分 配 : 数 学 :75 分 逻 辑 :60 分 作 文 :65 分 ; 总

数 学 高 分 的 展 望 一 管 理 类 联 考 分 析 第 一 篇 大 纲 解 析 篇 编 写 : 孙 华 明 1 综 合 能 力 考 试 时 间 :014 年 1 月 4 日 上 午 8:30~11:30 分 值 分 配 : 数 学 :75 分 逻 辑 :60 分 作 文 :65 分 ; 总 目 录 数 学 高 分 的 展 望... 1 第 一 篇 大 纲 解 析 篇... 1 一 管 理 类 联 考 分 析... 1 二 最 新 大 纲 解 析... 1 三 考 前 复 习 资 料 及 方 法... 第 二 篇 总 结 篇... 4 1 应 用 题 考 点 总 结 与 技 巧 归 纳... 4 代 数 模 块 题 型 归 纳 及 考 点 总 结... 9 3 数 列 模 块 题 型 归

More information

4.3.3 while 语 句 用 于 无 限 循 环 当 while 语 句 的 表 达 式 永 远 不 会 为 布 尔 假 时, 循 环 将 永 远 不 会 结 束, 形 成 无 限 循 环, 也 称 死 循 环 使 用 while 语 句 构 成 无 限 循 环 的 格 式 通 常

4.3.3 while 语 句 用 于 无 限 循 环 当 while 语 句 的 表 达 式 永 远 不 会 为 布 尔 假 时, 循 环 将 永 远 不 会 结 束, 形 成 无 限 循 环, 也 称 死 循 环 使 用 while 语 句 构 成 无 限 循 环 的 格 式 通 常 第 4 章 循 环 结 构 程 序 设 计 2 本 章 主 讲 赵 家 刚 4.3.3 while 语 句 用 于 无 限 循 环 4.3.3 当 while 语 句 的 表 达 式 永 远 不 会 为 布 尔 假 时, 循 环 将 永 远 不 会 结 束, 形 成 无 限 循 环, 也 称 死 循 环 使 用 while 语 句 构 成 无 限 循 环 的 格 式 通 常 为 : while True:

More information

什么是函数式编程?

什么是函数式编程? 函数式编程 FUNCTIONAL PROGRAMMING byvoid@byvoid.com 什么是函数式编程? 真相是 从停机问题开始 Bug 假设有停机判定算法 function halting(func, input) { } return if_func_will_halt_on_input; 充分利用停机判定 function ni_ma(func) { if (halting(func,

More information

nooog

nooog C : : : , C C,,, C, C,, C ( ), ( ) C,,, ;,, ; C,,, ;, ;, ;, ;,,,, ;,,, ; : 1 9, 2 3, 4, 5, 6 10 11, 7 8, 12 13,,,,, 2008 1 1 (1 ) 1.1 (1 ) 1.1.1 ( ) 1.1.2 ( ) 1.1.3 ( ) 1.1.4 ( ) 1.1.5 ( ) 1.2 ( ) 1.2.1

More information

PowerPoint Presentation

PowerPoint Presentation 数据结构与数据库 课号 21050301 2012 秋 第五章数组 5.1 数组的定义 5.2 数组的顺序表示和实现 5.3 矩阵的压缩存储 5.3.1 特殊矩阵 5.3.2 稀疏矩阵 2 同理, 一个 n 维数组类型可以定义为其数据元素为 n-1 维数组类型的一维数组类型 数组一旦被定义, 它的维数和维界就不再改变 因此, 除了结构的初始化和销毁之外, 数组只有存取元素和修改元素值的操作 抽象数据类型数组的定义参见教材

More information

重 要 声 明 长 城 证 券 股 份 有 限 公 司 编 制 本 报 告 的 内 容 及 信 息 来 源 于 陕 西 东 岭 工 贸 集 团 股 份 有 限 公 司 提 供 的 证 明 文 件 以 及 第 三 方 中 介 机 构 出 具 的 专 业 意 见 长 城 证 券 对 报 告 中 所 包

重 要 声 明 长 城 证 券 股 份 有 限 公 司 编 制 本 报 告 的 内 容 及 信 息 来 源 于 陕 西 东 岭 工 贸 集 团 股 份 有 限 公 司 提 供 的 证 明 文 件 以 及 第 三 方 中 介 机 构 出 具 的 专 业 意 见 长 城 证 券 对 报 告 中 所 包 2015 年 陕 西 东 岭 工 贸 集 团 股 份 有 限 公 司 ( 宝 鸡 市 马 营 路 东 段 ) 公 司 债 券 受 托 管 理 事 务 报 告 (2015 年 度 ) 债 券 代 理 人 长 城 证 券 股 份 有 限 公 司 ( 深 圳 市 福 田 区 深 南 大 道 6008 号 特 区 报 业 大 厦 16-17 层 ) 2016 年 4 月 12 日 1 重 要 声 明 长 城

More information

<4D6963726F736F667420576F7264202D20B8DF2DB4A8BDCCBAAF373530BAC5A3A8BAECCDB7A3A92E646F63>

<4D6963726F736F667420576F7264202D20B8DF2DB4A8BDCCBAAF373530BAC5A3A8BAECCDB7A3A92E646F63> 四 川 省 普 通 高 等 学 校 计 算 机 应 用 知 识 和 能 力 等 级 考 试 考 试 大 纲 (2008 年 修 订 ) 四 川 省 教 育 厅 计 算 机 等 级 考 试 中 心 2008 年 10 月 前 言 我 省 从 1993 年 开 始 的 普 通 高 校 计 算 机 等 级 考 试 已 进 行 了 28 次 为 推 动 全 省 计 算 机 基 础 教 学 改 革, 提 高

More information

(Microsoft Word - \246D\252k\267\247\255n_\275\306\277\357_.docx)

(Microsoft Word - \246D\252k\267\247\255n_\275\306\277\357_.docx) 二 多 重 選 擇 題 : 1. 下 列 何 種 情 形, 有 我 國 刑 法 之 適 用? (A) 菲 律 賓 人 甲 在 航 行 於 釣 魚 台 海 域 之 我 國 國 籍 的 漁 船 上 打 傷 印 尼 人 乙 (B) 台 灣 人 甲 與 大 陸 人 乙 在 日 本 通 姦 (C) 韓 國 人 甲 在 美 國 殺 死 台 灣 人 乙 (D) 越 南 人 甲 在 越 南 販 賣 海 洛 因 給

More information

( CIP) /. :, ( ) ISBN TP CIP ( 2005) : : : : * : : 174 ( A ) : : ( 023) : ( 023)

( CIP) /. :, ( ) ISBN TP CIP ( 2005) : : : : * : : 174 ( A ) : : ( 023) : ( 023) ( CIP) /. :, 2005. 2 ( ) ISBN 7-5624-3339-9.......... TP311. 1 CIP ( 2005) 011794 : : : : * : : 174 ( A ) :400030 : ( 023) 65102378 65105781 : ( 023) 65103686 65105565 : http: / /www. cqup. com. cn : fxk@cqup.

More information

消防论文(二)

消防论文(二) ( 20 010010) 787 1092 32 227.50 2004 12 1 2004 12 1 1 1 000 396.00 ( 19.80 ) ...1...19...21...23...37...39...45...48...53...57...61...72...80...82...85 CX...99... 112 I ... 117... 124... 129... 136...

More information

996,,,,,,, 997 7, 40 ; 998 4,,, 6, 8, 3, 5, ( ),, 3,,, ;, ;,,,,,,,,,

996,,,,,,, 997 7, 40 ; 998 4,,, 6, 8, 3, 5, ( ),, 3,,, ;, ;,,,,,,,,, ,, AB,, ( CIP) /, 000 ( /, ) ISBN 704009448 F47 CIP ( 000) 86786 55 00009 0064054588 ht tp www hep edu cn ht tp www hep com cn 006404048 787960/ 6 05 370 000 730,, 996,,,,,,, 997 7, 40 ; 998 4,,, 6, 8,

More information

一 登录 crm Mobile 系统 : 输入 ShijiCare 用户名和密码, 登录系统, 如图所示 : 第 2 页共 32 页

一 登录 crm Mobile 系统 : 输入 ShijiCare 用户名和密码, 登录系统, 如图所示 : 第 2 页共 32 页 第 1 页共 32 页 crm Mobile V1.0 for IOS 用户手册 一 登录 crm Mobile 系统 : 输入 ShijiCare 用户名和密码, 登录系统, 如图所示 : 第 2 页共 32 页 二 crm Mobile 界面介绍 : 第 3 页共 32 页 三 新建 (New) 功能使用说明 1 选择产品 第 4 页共 32 页 2 填写问题的简要描述和详细描述 第 5 页共

More information

Ps22Pdf

Ps22Pdf CIP ) / :,2006.2 ISBN 7-80702 - 113-6..........G.206 CIP (2006)080133 :8501168mm 1/ 32 : 120 :2000 2006 3 1 : 5000 ISBN 7-80702 - 113-6/ G206 : 348.00 (16 ) ,?, :,,,,,,,,,!,?,,,,,,?,, ,,,,,,,,,,,,,,,!,!,!

More information