vb 构成算法的基本控制结构.docxVIP

vb 构成算法的基本控制结构 vb 构成算法的基本控制结构 (1) 赋值语句 Dim a As long Let a = 69879 “=”在条件表达式中是等号，否则是赋值。 （2）数据的输入 b．InputBox函数 带返回值的输入函数 MyValue=InputBox(“请输入电话号码”, ,4555552) 不带返回值的输入函数 InputBox “请输入电话号码”, ,4555552 （3）数据的输出 a．MsgBox函数 myvalue=MsgBox(“注意：请输入数值型数据”,2+vbExclamation,”错误提示”) if myvalue=3 then End 不带返回值的输出函数 MsgBox “注意：请输入数值型数据”, ,”错误提示” b．Print方法 窗体名称.Print[[,|;[]…]] Print Tab(15);”书名”; Tab(55);”出版社”；Tab(75);”销售数量” 1. 单分支 If…Then语句 （1） 单行形式 If Text1.Text=”11” Then MsgBox”登录成功！” （2） 块形式 If a=1 Then 2. 双分支If…Then…Else语句 （1） 单行形式 If Text1.Text=”11” Then MsgBox”登录成功！” Else MsgBox”密码错误，重新输入！” （2） 块形式 If 条件表达式 Then 3. If语句的嵌套 If 条件表达式 Then If 条件表达式2 Then If 表达式4 Then…语句块3 Else …语句块4 If 条件表达式3 Then 4. 多分支If…Then…ElseIf语句 Private Sub Command1_Click() 定义一个整型变量 Dim a As Integer 给变量a赋值 a = Val(Text1.Text) If a 100 Or a MsgBox 只能输入0-100以内的数! Exit Sub If a = 100 Then Label3.Caption = 优 ElseIf a = 80 Then Label3.Caption = 良 ElseIf a = 60 Then Label3.Caption = 及格 ElseIf a Label3.Caption = 不及格 End Sub 5. Select Case Select Case 测试表达式 Case 表达式1 Case 表达式2 Case 表达式n [Case Else 语句块n+1] End Select Case X+100 ?表达式列表为表达式 Case 1,4,7 ?表示条件在1,4,7范围内取值 Case 50 To 70 ‘表示条件取值范围为50~60 Is关系表达式 Case Is 6. IIf函数 IIf(,,) str = IIf(Text1.Text = 11, 输入正确！, 密码不正确，请重新输入！) MsgBox str, , 提示 1、 For…Next循环语句 For 循环变量 = 初值 To 终值 [Step步长] [Exit For] Next 循环变量 （1） 如果不指定步长，系统默认为1；当初值终值时，步 （2） Exit For用来退出循环，执行Next后面的语句 （3） 出现死循环时，用Ctrl+Break强制终止程序的执行 （4） 循环次数N=Int（初值-终值）/步长+1) （5） Next后面的循环变量名必须与For语句中的循环变量名相同，并且可以省略。 2、 For Each…Next循环语句 For Each…Next循环语句用于依照一个数组或集合中的每个元素，循环执行一组语句，语法格式为： For Each 数组或集合中的元素 In 数组或集合 [Exit For] Next 数组或集合中的元素 Private Sub Form_Click() Dim Myctl A