vb程序设计教程集004.pptVIP

4.1 顺序结构 4.1 .1 数据输出 1 Print方法 2. 与Print方法有关的函数 3. 使用位置属性 4. 清除方法CLS 5.使用“标签”控件的输出 4.1.2 数据输入  1 使用“文本框”控件进行输入 2 SetFocus 方法 3 与用户交互的函数和过程 1．InputBox函数 作用：在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框中内容，函数值的类型为 String类型。 语法格式： [变量[%]]=InputBox(提示[,标题] [,默认] [, x坐标位置] [, y坐标位置] [, helpfile, context]) 4.2 选择结构程序设计  4.2.1 If条件语句 1．单分支条件结构（If...Then语句） 4.2.3 条件函数 1．IIf 函数 4.3 循环结构 4.3.1 Do...Loop语句 4.3.4 For Each...Next 4.3.5 退出控制结构 1．Exit For 语句和 Exit Do语句 4.4 综合实例 输入m，n m存放大数,n存放小数 输出n 求m/n的余数 m←n数 n←r的余数 例4-11：求两个正整数m和n的最大公约数。 求最大公约数最常用的方法是辗转相除法。其设计思路是： （1）假设m大于n； （2）用n作除数除m，得余数r。 （3）若r≠0，则令m←n，n←r，继续相除得到新的r值，直到r=0为止。 （4）最后的n即为最大公约数。 解题步骤如下： （1）设计流程图 根据题意，设计出如图4-29所示流程图。 图4-29 求最大公约数的流程图 直到r=0 （2）设计应用程序界面 所需添加的控件的属性值参见表4-8。 求 解 Command1 空白（设计时） Text12 空白（设计时） Text11 空白（设计时） Label4 m 和 n 的最大公约数是 Label3 m n Label2 请输入两个正整数 Label1 Caption(或Text)属性值 控件 表4-8 判断素数应用程序控件属性值 （3）编写代码 Private Sub Command1_Click() Dim m As Long, n As Long, temp As Long If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) 2147483647 Or Val(Text2.Text) 2147483647 Then MsgBox 输入的数0或溢出，请重新输入！ MsgBox 输入的数0或溢出,请重新输入!, vbInformation + vbOKOnly, 数据错误 Text1.Text = Text2.Text = 图4-30 求最大公约数程序运行实例 Text1.SetFocus Else m = Val(Text1.Text) n = Val(Text2.Text) If m n Then temp = m: m = n: n = temp End If Do r = m Mod n m = n n = r Loop While r 0 Label3.Caption = m End If End Sub 4.3.2 For...Next语句 Do 循环使用于在不知道执行多少次循环体时。有时，循环的次数是已知的，这时最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下： For 循环变量 = 初值 To 终值 [Step 步长] 循环体 Next [循环变量] 例4-12：求1~1000之间所有能够被13整除的数。按每行各行10个数排满足条件的数。 （1）设计流程图 根据题意，设计如图4-34所示流程图。 图4-31求被13整除的数的流程图 （2）设计应用程序界面 应用程序所需控件属性值参见表4-9。 无此属性值 Picture1 单击此按钮求1~1000值见能被13整除的数 Command1 Caption属性值 控件 表4-9 求被13整除的数应用程序控件属性值 （3）编写代码 图4-32 程序运行情况 Dim i As Integer, j As Integer j = 0 For i = 1 To 1000 If i Mo