vb程序设计教程第三版第三章.ppt

1. Print方法 2. 与Print方法有关的函数 3. 使用位置属性 4. 清除方法CLS 5. 使用“标签”控件的输出 3.1.2 数据输入 2. SetFocus 方法 3. 与用户交互的函数和过程 1．InputBox函数 作用：在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框中内容，函数值的类型为 String类型。 语法格式： [变量$]=InputBox(提示[,标题] [,默认]) 3.2 选择结构程序设计 3.2.1 If条件语句 1．单分支条件结构（If...Then语句） 使用select case 语句重做上面的例子 3.2.3 条件函数 IIf 函数 3.2.4 计时器控件 3.2.4 选择控件 3.2.5 复选框控件 3.3 循环结构 4.3.1 Do...Loop语句 4.3.4 For Each...Next 3.3.5 退出控制结构 1．Exit For 语句和 Exit Do语句 3.3.6 列表框与组合框 1 列表框 例：程序界面如图所示 本章结束 3.3.2 For...Next语句 Do 循环使用于在不知道执行多少次循环体时。有时，循环的次数是已知的，这时最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下： For 循环变量 = 初值 To 终值 [Step 步长] 循环体 Next [循环变量] 例：求1~1000之间所有能够被13整除的数。按每行各行10个数排满足条件的数。 （1）设计流程图 根据题意，设计如图所示流程图。 求被13整除的数的流程图 （2）设计应用程序界面 应用程序所需控件属性值参见表。 无此属性值 Picture1 单击此按钮求1~1000值见能被13整除的数 Command1 Caption属性值 控件 求被13整除的数应用程序控件属性值 （3）编写代码 程序运行情况 Dim i As Integer, j As Integer j = 0 For i = 1 To 1000 If i Mod 13 = 0 Then j = j + 1 Picture1.Print i; If j Mod 10 = 0 Then Picture1.Print End If Next i Picture1.Print Picture1.Print 一共有 j 个数可以被13整除 End Sub 其中，语句If j Mod 10 = 0 Then Picture1.Print控制每行打印满足条件的数的个数（10个），注意语句 Picture1.Print i;后的分号不能省略。 程序运行情况参见图。 Private Sub Command1_Click() 3.3.3 循环嵌套 在一个循环体内又出现另外的循环语句称为循环嵌套。 例：指出下面程序的运行结果： Private Sub Form_Click() Dim a As Integer, i As Integer, j As Integer a = 0 For i = 1 To 5 For j = -2 To 2 a = a + i + j 程序运行结果 Next j Print a; Next i Print Print i, j, a End Sub 例：编程求图所示乘法九九表。 执行分析图可知：如果将每一个等式作为一个方阵的节点，则每一个等式出现的位置上行列的数字是相同的。因此，可以用如下嵌套的循环作为对一个节点的描述： For i=1 to 9 For j=1 to i 循环体 Next j Next i 这里，循环体为乘法等式：expss = i × j = i * j。 现在，主要的问题是控制每个表达是出现的位置，可以用Tab函数来实现，假设给每个等式的宽度为10，第一个等式出现在第4行，则Tab函数可以这样表示：Tab((j - 1) * 10 + 3); 乘法九九表（1） 在窗体上添加一个命令按钮和一个Pictrue控件，编写command1_click事件的代码如下： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim ex