Microsoft Word - 第3章.doc

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 条边的长, 计算三角形的面积

<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1ADBBB7>

<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1ADBBB7> 能源与动力工程学院 结构化编程 结构化程序设计 循环 循环结构 确定性循环 非确定性循环 I=1 sum=sum+i I = I +1 陈 斌 I>100 Yes No 目录 求和 :1+2+3++100 第四节循环的应用 PROGRAM GAUSS INTEGER I, SUM 计数器 SUM = 0 DO I = 1, 100, 1 SUM = SUM + I print*, I, SUM DO

More information

untitled

untitled 說 參 例 邏 邏 1. 說 2. 數 數 3. 8 4. 理念 李 龍老 立 1. 理 料 2. 理 料 3. 數 料 4. 流 邏 念 5. 良 6. 讀 行 行 7. 行 例 來 邏 1. 說 說 識 量 2. 說 理 類 3. 數 數 念 4. 令 5. 良 6. 流 邏 念 7. 說 邏 理 力 1. 2. 3. 4. 5. 列 念 1 參 1. ( Visual Basic 例 ) (1)

More information

PowerPoint Presentation

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

More information

Microsoft Word - 第3章.doc

Microsoft Word - 第3章.doc 第 3 章流程控制和数组 3.1 实验目的 (1) 熟练掌握控制台应用程序的代码编写和调试, 以及运行方法 (2) 掌握选择结构的一般语法格式和应用 (3) 掌握 switch 语句的用法 (4) 掌握选择结构的嵌套的用法, 能灵活使用选择结构解决实际问题 (5) 掌握 while 循环语句的一般语法格式 (6) 掌握 for 循环语句的一般语法格式 (7) 掌握循环嵌套的语法格式 (8) 掌握一维数组的定义

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

第一章三角函数 1.3 三角函数的诱导公式 A 组 ( ) 一 选择题 : 共 6 小题 1 ( 易诱导公式 ) 若 A B C 分别为 ABC 的内角, 则下列关系中正确的是 A. sin( A B) sin C C. tan( A B) tan C 2 ( 中诱导公式 ) ( ) B. cos(

第一章三角函数 1.3 三角函数的诱导公式 A 组 ( ) 一 选择题 : 共 6 小题 1 ( 易诱导公式 ) 若 A B C 分别为 ABC 的内角, 则下列关系中正确的是 A. sin( A B) sin C C. tan( A B) tan C 2 ( 中诱导公式 ) ( ) B. cos( 第一章三角函数 1. 三角函数的诱导公式 A 组 一 选择题 : 共 6 小题 1 ( 易诱导公式 ) 若 A B C 分别为 ABC 的内角 则下列关系中正确的是 A. sin( A B) sin C C. tan( A B) tan C ( 中诱导公式 ) B. cos( B C) cos A D. sin( B C) sin A sin60 cos( ) sin( 0 )cos( 70 ) 的值等于

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

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1

More information

Microsoft Word - 正文.doc

Microsoft Word - 正文.doc 第 5 章循环结构程序设计 一 实验目的 (1) 掌握 For 语句的使用 (2) 掌握 Do While/Until Loop 与 Do Loop While/Until 两种循环语句的使用 (3) 加深理解循环的概念, 掌握循环的规则及其执行过程 (4) 掌握多重循环的规则和程序设计方法 (5) 学会如何控制循环条件, 防止死循环或不循环 二 相关知识在指定条件下多次重复执行一组相同的语句可以通过循环来实现

More information

Microsoft PowerPoint - 07 派生数据类型

Microsoft PowerPoint - 07 派生数据类型 能源与动力工程学院 目录 派生类型 陈 斌 固有数据类型 数值型 (numerical) 整型 INTEGER 实型 REAL 复数型 COMPLEX 非数值型 字符型 CHARACTER 逻辑型 ( 布尔型 )LOGICAL 自定义数据类型 ( 派生类型, derived type) 派生类型是指用户利用 Fortran 系统内部类型, 如整型 实型 复数型 逻辑型 字符型等的组合自行创建出一个新的数据类型,

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

chp3

chp3 Java 软件设计基础 3. 流程控制 3.1 语句控制结构 语句类型 变量声明语句 用来声明变量, 格式为 : 表达式语句 在一个表达式的最后加上一个分号构成的语句, 分号是语句不可缺少的部分, 格式为 : 变量 = 表达式 ; 复合语句 [ 修饰符 ] 类型名变量名 1[, 变量名 2][, ]; [ 修饰符 ] 类型名变量名 1[= 初值 1][, 变量名 2][= 初值 2][, ]; 将相关语句组合在一起就构成复合语句,

More information

试卷代号 : 座位号 OJ 中央广播电视大学 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 题号 一 二 三 四 五 总分 分数 I I I I I I I 2011 年 1 月 得分 评卷人 I I I 题 { 每小题

试卷代号 : 座位号 OJ 中央广播电视大学 学年度第一学期  开放专科  期末考试 Visual Basic 程序设计试题 题号 一 二 三 四 五 总分 分数 I I I I I I I 2011 年 1 月 得分 评卷人 I I I 题 { 每小题 试卷代号 : 2 2 3 1 座位号 OJ 中央广播电视大学 2 0 1 0-2011 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 题号 一 二 三 四 五 总分 分数 I 2011 年 1 月 题 { 每小题 2 分, 共 3 0 分 } 1. 对于定时器 ( Tim 盯 控件, 设置其定时是否开启的属性是 ( ) A. Index B. Tag c. Enabled

More information

求出所有的正整数 n 使得 20n + 2 能整除 2003n n 20n n n 20n n 求所有的正整数对 (x, y), 满足 x y = y x y (x, y) x y = y x y. (x, y) x y =

求出所有的正整数 n 使得 20n + 2 能整除 2003n n 20n n n 20n n 求所有的正整数对 (x, y), 满足 x y = y x y (x, y) x y = y x y. (x, y) x y = 求出所有的正整数 n 使得 20n + 2 能整除 2003n + 2002 n 20n + 2 2003n + 2002 n 20n + 2 2003n + 2002 求所有的正整数对 (x, y), 满足 x y = y x y (x, y) x y = y x y. (x, y) x y = y x y 对于任意正整数 n, 记 n 的所有正约数组成的集合为 S n 证明 : S n 中至多有一半元素的个位数为

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

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

27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f

27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f 27 1 Vol.27 No.1 CEMENTED CARBIDE 2010 2 Feb.2010!"!!!!"!!!!"!" doi:10.3969/j.issn.1003-7292.2010.01.011 OPC 1 1 2 1 (1., 412008; 2., 518052), OPC, WinCC VB,,, OPC ; ;VB ;WinCC Application of OPC Technology

More information

《C语言程序设计》教材习题参考答案

《C语言程序设计》教材习题参考答案 教材名称 : C 语言程序设计 ( 第 1 版 ) 黄保和 江弋编著清华大学出版社 ISBN:978-7-302-13599-9, 红色封面 答案制作时间 :2011 年 2 月 -5 月 一 选择题 1. 设已定义 int a, * p, 下列赋值表达式中正确的是 :C)p=&a 2. 设已定义 int x,*p=&x;, 则下列表达式中错误的是 :B)&*x 3. 若已定义 int a=1,*b=&a;,

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

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

OOP with Java 通知 Project 2 提交时间 : 3 月 14 日晚 9 点 另一名助教 : 王桢 学习使用文本编辑器 学习使用 cmd: Power shell 阅读参考资料

OOP with Java 通知 Project 2 提交时间 : 3 月 14 日晚 9 点 另一名助教 : 王桢   学习使用文本编辑器 学习使用 cmd: Power shell 阅读参考资料 OOP with Java Yuanbin Wu cs@ecnu OOP with Java 通知 Project 2 提交时间 : 3 月 14 日晚 9 点 另一名助教 : 王桢 Email: 51141201063@ecnu.cn 学习使用文本编辑器 学习使用 cmd: Power shell 阅读参考资料 OOP with Java Java 类型 引用 不可变类型 对象存储位置 作用域 OOP

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

TC35短信发送程序设计

TC35短信发送程序设计 http://www.dragonsoft.net.cn/down/project/tc35_sms.rar TC35 AT /down/book/tc35_at.pdf TC35/TC35i GSM Modem TC35 GSM POS COM SIM DOWN COM E, vbcr AT VB6.0 1)C# http://www.yesky.com/softchannel/72342380468109312/20040523/1800310.shtml,

More information

Microsoft Word - Vcj05.doc

Microsoft Word - Vcj05.doc 第 5 章选择结构程序设计 在日常生活和工作中, 经常会遇到各种各样的选择, 根据选择的不同, 会得到不同的结果 在程序设计中, 也经常会根据不同的情况执行不同的操作, 这与现实生活中的选择非常类似 但程序设计中的选择结构根据条件只能选择一个分支执行, 即无论分支多寡, 必择其一 ; 纵然分支众多, 仅选其一 本章主要介绍实现选择结构程序设计方面的知识, 包括 If 语句 Select Case 语句

More information

Microsoft Word - 实验3.doc

Microsoft Word - 实验3.doc 实验 3 C# 和 ASP.NET 4.5 一 实验目的 (1) 了解 C# 语言规范 (2) 掌握 C# 基础语法 流程控制和异常处理等 (3) 掌握创建 C# 类并应用于 ASP.NET 4.5 页面中的方法 (4) 掌握 ASP.NET 4.5 页面的调试方法 二 实验内容及要求 1. 转换输入的成绩到相应的等级要求如下 : (1) 页面浏览效果如图 3-1 所示 (2) 成绩输入使用 TextBox

More information

《C语言程序设计》第2版教材习题参考答案

《C语言程序设计》第2版教材习题参考答案 教材 C 语言程序设计 ( 第 2 版 ) 清华大学出版社, 黄保和, 江弋编著 2011 年 10 月第二版 ISBN:978-7-302-26972-4 售价 :35 元 答案版本 本习题答案为 2012 年 2 月修订版本 一 选择题 1. 设已定义 int a, * p, 下列赋值表达式中正确的是 :C)p = &a A. *p = *a B. p = *a C.p = &a D. *p =

More information

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

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

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

<4D F736F F D B0D3B77EC3FEA7DEC3C0C476C1C9A5BFA6A1B8D5C3442DB57BA6A1B35DAD702DBEC7ACEC2E646F6378>

<4D F736F F D B0D3B77EC3FEA7DEC3C0C476C1C9A5BFA6A1B8D5C3442DB57BA6A1B35DAD702DBEC7ACEC2E646F6378> 全國國高級中中等學校 105 學年度商商業類學學生技藝藝競賽 程式式設計 職職種 學學科 試試卷 崗位位編號 : 姓名 : 注意事項 : 請將答案案劃記於答案案卡, 未依依規定劃記者者不予計分分 試題說明 :( 選擇題每每題 4 分, 共 100 分 ) ( )1. 執行以下 Visual Basic 程式片段, 其結果為何?(A) 15 Dim i As Byte i = &HFC Console.WriteLine(Not

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

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

( 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

Microsoft PowerPoint - 4. 数组和字符串Arrays and Strings.ppt [兼容模式]

Microsoft PowerPoint - 4. 数组和字符串Arrays and Strings.ppt [兼容模式] Arrays and Strings 存储同类型的多个元素 Store multi elements of the same type 数组 (array) 存储固定数目的同类型元素 如整型数组存储的是一组整数, 字符数组存储的是一组字符 数组的大小称为数组的尺度 (dimension). 定义格式 : type arrayname[dimension]; 如声明 4 个元素的整型数组 :intarr[4];

More information

untitled

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

More information

( ) Wuhan University

( ) Wuhan University Email: huangzh@whueducn, 47 Wuhan Univesity i L A TEX,, : http://affwhueducn/huangzh/ 8 4 49 7 ii : : 4 ; 8 a b c ; a b c 4 4 8 a b c b c a ; c a b x y x + y y x + y x x + y x y 4 + + 8 8 4 4 + 8 + 6 4

More information

Generated by Unregistered Batch DOC TO PDF Converter , please register! 浙江大学 C 程序设计及实验 试题卷 学年春季学期考试时间 : 2003 年 6 月 20 日上午 8:3

Generated by Unregistered Batch DOC TO PDF Converter , please register! 浙江大学 C 程序设计及实验 试题卷 学年春季学期考试时间 : 2003 年 6 月 20 日上午 8:3 浙江大学 C 程序设计及实验 试题卷 2002-2003 学年春季学期考试时间 : 2003 年 6 月 20 日上午 8:30-10:30 注意 : 答题内容必须写在答题卷上, 写在本试题卷上无效 一. 单项选择题 ( 每题 1 分, 共 10 分 ) 1. 下列运算符中, 优先级最低的是 A.

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

吉林大学学报 工学版 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

4.C ( 详细解析见视频课程 绝对值 01 约 21 分 15 秒处 ) 5.E ( 详细解析见视频课程 绝对值 01 约 32 分 05 秒处 ) 6.D ( 详细解析见视频课程 绝对值 02 约 4 分 28 秒处 ) 7.C ( 详细解析见视频课程 绝对值 02 约 14 分 05 秒处 )

4.C ( 详细解析见视频课程 绝对值 01 约 21 分 15 秒处 ) 5.E ( 详细解析见视频课程 绝对值 01 约 32 分 05 秒处 ) 6.D ( 详细解析见视频课程 绝对值 02 约 4 分 28 秒处 ) 7.C ( 详细解析见视频课程 绝对值 02 约 14 分 05 秒处 ) [ 说明 ] 1. 以下所指教材是指朱杰老师的 管理类联考综合能力数学套路化攻略 2. 该文档中所标答案和参见的教材答案, 与视频有冲突的, 以视频答案为准! 基础篇 第 1 章 数 1.2.1 整数例题答案 : 1. A ( 详细解析见教材 P7 例 2) 2. D ( 详细解析见视频课程 数的性质 约 10 分 53 秒处 ) 3. C ( 详细解析见教材 P7 例 3) 4.E ( 详细解析见视频课程

More information

帝国CMS下在PHP文件中调用数据库类执行SQL语句实例

帝国CMS下在PHP文件中调用数据库类执行SQL语句实例 帝国 CMS 下在 PHP 文件中调用数据库类执行 SQL 语句实例 这篇文章主要介绍了帝国 CMS 下在 PHP 文件中调用数据库类执行 SQL 语句实例, 本文还详细介绍了帝国 CMS 数据库类中的一些常用方法, 需要的朋友可以参考下 例 1: 连接 MYSQL 数据库例子 (a.php)

More information

untitled

untitled VB 來 立 李 龍老 年 參 車 令 度 綠 車 不 不 靈 了 來 令來 了老 利 來 練 念 邏 念 數 度 念 狀 不 度 令 數 更 參 VB VB VB 理 VB 類 數 (x,y) (0,0) x y x,y 數 (0,0) (x, 0) (0, y) (x, y) VB 裡 來 VB 來 1 Graphics VB Graphics Private Sub Button1_Click(

More information

C++ 程序设计 OJ4 - 参考答案 MASTER 2019 年 5 月 30 日 1

C++ 程序设计 OJ4 - 参考答案 MASTER 2019 年 5 月 30 日 1 C++ 程序设计 OJ4 - 参考答案 MASTER 2019 年 月 30 日 1 1 STRINGSORT 1 StringSort 题目描述 编写程序, 利用 string 类完成一个字符串中字符的排序 ( 降序 ) 并输出 输入描述 输入仅一行, 是一个仅由大小写字母和数字组成的字符串 输出描述 输出排序后的字符串 样例输入 abcde 样例输出 edcba 提示 使用 std::sort

More information

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

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

More information

Microsoft Word - CX1000-HMI_程序开发_PLC通讯

Microsoft Word - CX1000-HMI_程序开发_PLC通讯 用 VB.Net 开发 CX1000 的 HMI 第二部分和 TwinCAT PLC 通讯 一 TwinCAT 动态库 TwinCAT.Ads.dll The TwinCAT.Ads.dll 是一个.NET 类库, 它提供和 ADS 设备通讯的类 如果 TwinCAT PLC 运行在 IPC 上, 则需要添加的类库是路径 \TwinCAT\ADS Api\.NET\v1.1.4322 下的 TwinCAT.Ads.dll

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

第 3 章选择结构 q q q Python 中表示条件的方法 if 语句 选择结构程序设计方法

第 3 章选择结构 q q q Python 中表示条件的方法 if 语句 选择结构程序设计方法 第 3 章选择结构 q q q Python 中表示条件的方法 if 语句 选择结构程序设计方法 3.1 条件的描述 3.1.1 关系运算 Python 的关系运算符有 : =( 大于等于 ) ==( 等于 )!=( 不等于 ) 关系运算符用于两个量的比较判断 由关系运算符将两个表达式连接起来的式子就称为关系表达式, 它用来表示条件, 其一般格式为

More information

Microsoft PowerPoint - VB3

Microsoft PowerPoint - VB3 Visual Basic 6.0 & VB.NET 丙檢設計第一站 資科系林偉川 VB 之 for 指令 for 變數 = 初值 to 終值 step 增值多個指令 Next 中途離開用 if 指令判斷條件成立後 exit for Ex: Q=2, w=100, e=2, s=0 For i = q To w Step e s = s + i Next i 2 1 VB6 提供之內建函數 End 執行結束

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

第 3 章补充案例 案例 3-1 统计成绩最大值和最小值 一 案例描述 1 考核知识点数组的创建 2 练习目标 掌握创建数组的方式 了解 Array.length 求数组长度 3 需求分析输入小明的 5 门成绩, 计算出总分, 平均分 最高分, 最低分 4 案例分析 1) 效果如图 3-1 所示 图

第 3 章补充案例 案例 3-1 统计成绩最大值和最小值 一 案例描述 1 考核知识点数组的创建 2 练习目标 掌握创建数组的方式 了解 Array.length 求数组长度 3 需求分析输入小明的 5 门成绩, 计算出总分, 平均分 最高分, 最低分 4 案例分析 1) 效果如图 3-1 所示 图 第 3 章补充案例 案例 3-1 统计成绩最大值和最小值 1 考核知识点数组的创建 掌握创建数组的方式 了解 Array.length 求数组长度 3 需求分析输入小明的 5 门成绩, 计算出总分, 平均分 最高分, 最低分 1) 效果如图 3-1 所示 图 3-1 计算结果展示 a) 定义一个数组 arr, 存放 5 门成绩 b) 定义总分变量 sum=0 c) 定义最高分变量 max=0 d)

More information

ThreeDtunnel.doc

ThreeDtunnel.doc (12) 1 1. Visual Basic Private Sub LoadDatabase() Dim strip As String Dim straccount As String Dim strpassword As String Dim strdatabase As String Dim strtable As String Dim strsql As String Dim strtemp1

More information

《计算概论》课程 第十九讲 C 程序设计语言应用

《计算概论》课程 第十九讲  C 程序设计语言应用 计算概论 A 程序设计部分 字符数组与字符串 李戈 北京大学信息科学技术学院软件研究所 lige@sei.pku.edu.cn 字符数组的定义 #include int main() char a[10] = 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j' ; for (int i = 0; i < 10; i++) cout

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

数学软件 Matlab 编程基础 ( 脚本 ) 1

数学软件 Matlab 编程基础 ( 脚本 ) 1 数学软件 Matlab 编程基础 ( 脚本 ) 1 本讲主要内容 M 文件 基本运算 : 算术 关系 逻辑 简单的输入输出 控制结构 : 顺序 选择 循环 2 M 文件 M 文件介绍 用 Matlab 语言编写的程序称为 M 文件 M 文件以.m 为扩展名 M 文件是由若干 Matlab 命令组合在一起构成的, 它可以完成某些操作, 也可以实现某种算法 两类重要的 M 文件 ( 调用方式不同 ) Script:

More information

TwinCAT 1. TwinCAT TwinCAT PLC PLC IEC TwinCAT TwinCAT Masc

TwinCAT 1. TwinCAT TwinCAT PLC PLC IEC TwinCAT TwinCAT Masc TwinCAT 2001.12.11 TwinCAT 1. TwinCAT... 3 2.... 4... 4...11 3. TwinCAT PLC... 13... 13 PLC IEC 61131-3... 14 4. TwinCAT... 17... 17 5. TwinCAT... 18... 18 6.... 19 Maschine.pro... 19... 27 7.... 31...

More information

Microsoft PowerPoint - 03_CtrlFlow.ppt

Microsoft PowerPoint - 03_CtrlFlow.ppt 三种基本结构 C 程序设计语言 第 3 章章控制流 孙志岗 sun@hit.edu.cn http://sunner.cn 顺序结构 选择结构 循环结构 已经证明, 任何程序均可只用这三种结构实现 BÖhm, Corrado,, and Jacopini Guiseppe. "Flow diagrams, Turing machines and languages with only two formation

More information

6-1 Table Column Data Type Row Record 1. DBMS 2. DBMS MySQL Microsoft Access SQL Server Oracle 3. ODBC SQL 1. Structured Query Language 2. IBM

6-1 Table Column Data Type Row Record 1. DBMS 2. DBMS MySQL Microsoft Access SQL Server Oracle 3. ODBC SQL 1. Structured Query Language 2. IBM CHAPTER 6 SQL SQL SQL 6-1 Table Column Data Type Row Record 1. DBMS 2. DBMS MySQL Microsoft Access SQL Server Oracle 3. ODBC SQL 1. Structured Query Language 2. IBM 3. 1986 10 ANSI SQL ANSI X3. 135-1986

More information

网C试题(08上).doc

网C试题(08上).doc 学习中心 姓名 学号 西安电子科技大学网络与继续教育学院 高级语言程序设计 (C) 全真试题 ( 闭卷 90 分钟 ) 题号一二三总分 题分 60 20 20 得分 一 单项选择题 ( 每小题 3 分, 共 60 分 ) 1.C 语言程序的基本单位是 A) 程序行 B) 语句 C) 函数 D) 字符 2. 下列四组选项中, 均是不合法的用户标识符的选项是 A)A B)getc C)include D)while

More information

期中考试试题讲解

期中考试试题讲解 一 选择题 ( 一 ) 1. 结构化程序设计所规定的三种基本结构是 C A 主程序 子程序 函数 B 树形 网形 环形 C 顺序 选择 循环 D 输入 处理 输出 2. 下列关于 C 语言的叙述错误的是 A A 对大小写不敏感 B 不同类型的变量可以在一个表达式中 C main 函数可以写在程序文件的任何位置 D 同一个运算符号在不同的场合可以有不同的含义 3. 以下合法的实型常数是 C A.E4

More information

4. 有程序代码如下 : Text!' Text= "Visual Basic" 则 Te xtl ~ Te xt, 和 " V i s ua l Basi c " 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要

4. 有程序代码如下 : Text!' Text= Visual Basic 则 Te xtl ~ Te xt, 和  V i s ua l Basi c  分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要 试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 3-20 1 4 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计 试题 2014 年 1 月 注意事项 一 将你的学号 姓名及分校 { 工作站 } 名称填写在答题纸的规定栏内 考试结束后, 把试卷和答题纸放在桌上 试卷和答题纸均不得带出考场 监考人收完考卷和答题纸后才可离开考场 二 仔细读懂题目的说明, 并按题目要求答题

More information

( ) : ( ) (CIP) /.. :,003. () ISBN O4 44 CIP (00) : : 7 : 7007 : (09 ) : : :850 mm 68 mm / 3 :0.5 :60 :00 0

( ) : ( ) (CIP) /.. :,003. () ISBN O4 44 CIP (00) : : 7 : 7007 : (09 ) :   : :850 mm 68 mm / 3 :0.5 :60 :00 0 ( ) ( ) : ( ) (CIP) /.. :,003. () ISBN 7 56 448 0.... O4 44 CIP (00) 007344 : : 7 : 7007 : (09 )8493844 : www.nwpup.com : :850 mm 68 mm / 3 :0.5 :60 :00 003 3 :0 006 000 :3: 00 00, ( ),,,,,,,, 003 8 (

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

<4D6963726F736F667420576F7264202D2032303135C4EAC8EBD1A74D4241C1AABFBCD7DBBACFB2CEBFBCB4F0B0B8BCB0CFEABDE22E646F6378>

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

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

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

目次 CONTENTS 2 1 乘法公式與多項式 二次方根與畢氏定理 因式分解 一元二次方程式

目次 CONTENTS 2 1 乘法公式與多項式 二次方根與畢氏定理 因式分解 一元二次方程式 給同學的話 1 2 3 4 目次 CONTENTS 2 1 乘法公式與多項式 1-1 3 1-2 7 1-3 11 1 16 2 二次方根與畢氏定理 2-1 20 2-2 24 2-3 29 2 33 3 因式分解 3-1 37 3-2 41 3-3 45 3 49 4 一元二次方程式 4-1 53 4-2 57 4-3 61 4 65 3 1-1 乘法公式 本節性質與公式摘要 1 分配律 : ddd

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

Microsoft PowerPoint - 03.Fortran程序设计基础1

Microsoft PowerPoint - 03.Fortran程序设计基础1 简单 Fortran 90 程序的构造形式 : 第二讲 Fortran 程序设计基础 (2) [PROGRAM 程序名 ] [ 声明语句 ] [ 执行语句 ] END [PROGRAM [ 程序名 ]] 程序的书写 (P5) PROGRAM MONEY!calculate balance after interest compounded! 根据利息计算余额 REAL BALANCE, INTEREST,

More information

《Visual Basic程序设计》实验课

《Visual Basic程序设计》实验课 Visual Basic Visual Basic dstang2000@263.net 0 Visual Basic 1 0...1 1 Visual Basic...2 2...3 3...6 4...9 5...13 6...16 7...18 8...22 9...24 10...27 11...29 12 API...31 13...34 14...35 15...38 1 1 Visual

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

1. 要退出 Do---Loop 循环, 可使用的语句是 ( ) 语句 A. Exit B. Exit For C. Exit Do D. End Do 5. 有程序代码如下 : Text1. Text=" 欢迎学习 VB!" 则 T e x t 1, Text, 和 " 欢迎学习 VB!" 分别代

1. 要退出 Do---Loop 循环, 可使用的语句是 ( ) 语句 A. Exit B. Exit For C. Exit Do D. End Do 5. 有程序代码如下 : Text1. Text= 欢迎学习 VB! 则 T e x t 1, Text, 和  欢迎学习 VB! 分别代 试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 2-2 0 1 3 学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2013 年 7 月 注意事项 一 将你的学号 姓名及分校 { 工作站 ) 名称填写在答题纸的规定栏内 考试结束后, 把试卷和答题纸放在桌上 试卷和答题纸均不得带出考场 监考人收完考卷和答题纸后才可离开考场 二 仔细读懂题目的说明, 并按题目要求答题

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

VB控件教程大全

VB控件教程大全 Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width

More information

多層次傳銷與獎金系統

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

More information

CC213

CC213 : (Ken-Yi Lee), E-mail: feis.tw@gmail.com 49 [P.51] C/C++ [P.52] [P.53] [P.55] (int) [P.57] (float/double) [P.58] printf scanf [P.59] [P.61] ( / ) [P.62] (char) [P.65] : +-*/% [P.67] : = [P.68] : ,

More information

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

More information

C++ 程序设计 OJ9 - 参考答案 MASTER 2019 年 6 月 7 日 1

C++ 程序设计 OJ9 - 参考答案 MASTER 2019 年 6 月 7 日 1 C++ 程序设计 OJ9 - 参考答案 MASTER 2019 年 6 月 7 日 1 1 CARDGAME 1 CardGame 题目描述 桌上有一叠牌, 从第一张牌 ( 即位于顶面的牌 ) 开始从上往下依次编号为 1~n 当至少还剩两张牌时进行以下操作 : 把第一张牌扔掉, 然后把新的第一张放到整叠牌的最后 请模拟这个过程, 依次输出每次扔掉的牌以及最后剩下的牌的编号 输入 输入正整数 n(n

More information

// HDevelopTemplateWPF projects located under %HALCONEXAMPLES%\c# using System; using HalconDotNet; public partial class HDevelopExport public HTuple

// HDevelopTemplateWPF projects located under %HALCONEXAMPLES%\c# using System; using HalconDotNet; public partial class HDevelopExport public HTuple halcon 与 C# 混合编程之 Halcon 代码调用 写在前面 完成 halcon 与 C# 混合编程的环境配置后, 进行界面布局设计构思每一个按钮所需要实现 的功能, 将 Halcon 导出的代码复制至相应的 C# 模块下即可 halcon 源程序 : dev_open_window(0, 0, 512, 512, 'black', WindowHandle) read_image (Image,

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

MVB-1001.DOC

MVB-1001.DOC 20 1.5 10 15 20 25 80 100 CSF 1. 2. 0105 3. 4. 5. 30% 1.5 0.75 1. Visual Basic Visual Basic (A) Visual Basic Enterprise Edition (B) Visual Basic Script Edition (C) Visual Basic Learning Edition (D) Visual

More information

Guava学习之Resources

Guava学习之Resources Resources 提供提供操作 classpath 路径下所有资源的方法 除非另有说明, 否则类中所有方法的参数都不能为 null 虽然有些方法的参数是 URL 类型的, 但是这些方法实现通常不是以 HTTP 完成的 ; 同时这些资源也非 classpath 路径下的 下面两个函数都是根据资源的名称得到其绝对路径, 从函数里面可以看出,Resources 类中的 getresource 函数都是基于

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

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

内容简介 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套实训教材, 由两部分组成 第一部分是实训指导, 共 15 个实训项目, 每个实训项目均指出了本部分需掌握的重点内容, 并给出了理论知识要点 实训步骤及程序代码, 使学生能逐步了解 Visual

内容简介 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套实训教材, 由两部分组成 第一部分是实训指导, 共 15 个实训项目, 每个实训项目均指出了本部分需掌握的重点内容, 并给出了理论知识要点 实训步骤及程序代码, 使学生能逐步了解 Visual 普通高等教育 十二五 重点规划教材计算机系列中国科学院教材建设专家委员会 十二五 规划教材 Visual Basic 程序设计实训教程 王学军主编 赵涓涓副主编 杨艳主审 北京 内容简介 本书是 Visual Basic 程序设计 ( 科学出版社出版, 范通让 王学军主编 ) 的配套实训教材, 由两部分组成 第一部分是实训指导, 共 15 个实训项目, 每个实训项目均指出了本部分需掌握的重点内容,

More information

! " # " " $ % " " # # " $ " # " #! " $ "!" # "# # #! &$! ( % "!!! )$ % " (!!!! *$ ( % " (!!!! +$ % " #! $!, $ $ $ $ $ $ $, $ $ "--. %/ % $ %% " $ "--/

!  #   $ %   # #  $  #  #!  $ ! # # # #! &$! ( % !!! )$ %  (!!!! *$ ( %  (!!!! +$ %  #! $!, $ $ $ $ $ $ $, $ $ --. %/ % $ %%  $ --/ "##$ "% "##& " "##( )$ "##%! ) "##$ * "##( "##$ "##(!!!!!!!!! ! " # " " $ % " " # # " $ " # " #! " $ "!" # "# # #! &$! ( % "!!! )$ % " (!!!! *$ ( % " (!!!! +$ % " #! $!, $ $ $ $ $ $ $, $ $ "--. %/ % $

More information

untitled

untitled Visual Basic 2005 (VB.net 2.0) hana@arbor.ee.ntu.edu.tw 立 六 數 串 數數 數 數 串 數 串 數 Len( 串 ) 串 度 Len( 123 )=3 LCase( 串 ) 串 LCase( AnB123 ) anb123 UCase( 串 ) 串 UCase( AnB123 ) ANB123 串 數 InStr([ ], 串 1, 串 2[,

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 - 2006年9月二级VF真卷.doc

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

More information

SDK 概要 使用 Maven 的用户可以从 Maven 库中搜索 "odps-sdk" 获取不同版本的 Java SDK: 包名 odps-sdk-core odps-sdk-commons odps-sdk-udf odps-sdk-mapred odps-sdk-graph 描述 ODPS 基

SDK 概要 使用 Maven 的用户可以从 Maven 库中搜索 odps-sdk 获取不同版本的 Java SDK: 包名 odps-sdk-core odps-sdk-commons odps-sdk-udf odps-sdk-mapred odps-sdk-graph 描述 ODPS 基 开放数据处理服务 ODPS SDK SDK 概要 使用 Maven 的用户可以从 Maven 库中搜索 "odps-sdk" 获取不同版本的 Java SDK: 包名 odps-sdk-core odps-sdk-commons odps-sdk-udf odps-sdk-mapred odps-sdk-graph 描述 ODPS 基础功能的主体接口, 搜索关键词 "odpssdk-core" 一些

More information

Python 开发向导.1 Python 条件判断 条件语句是指根据条件表达式的不同计算结果, 使程序流转到不同的代码块 Python 中的条件语句是 if 语句和 if-else 语句.1.1 if 条件语句 if 语句用于判断某个条件是否成立, 如果成立, 则执行语句内的程序, 否则跳过 if

Python 开发向导.1 Python 条件判断 条件语句是指根据条件表达式的不同计算结果, 使程序流转到不同的代码块 Python 中的条件语句是 if 语句和 if-else 语句.1.1 if 条件语句 if 语句用于判断某个条件是否成立, 如果成立, 则执行语句内的程序, 否则跳过 if 第 章 Python 条件与循环 技能目标 掌握条件语句 if 掌握循环语句 while 掌握循环语句 for 掌握循环控制语句 break 和 continue 本章导读在程序的执行过程中, 经常要使用条件判断语句决定程序的执行流程, 还要使用循环语句进行相同代码的重复执行 它们在任何语言中都是非常重要的组成部分, 熟练掌握才能更好地控制程序 知识服务 Python 开发向导.1 Python 条件判断

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