1、,. 基本控制结构,顺序结构、分支结构、循环结构,.1 顺序结构,自上向下地顺序执行各条语句,例: a=19 b=“hello” Text1.text=“你好” Label1.caption=“姓名”,.2 分支结构,程序依照条件而走不同的支路。,一、If.Then 语句,用 If.Then 结构可以有条件地执行其结构内的一条或多条语句。 语法格式： If 条件表达式 Then 多条语句 End If,例1：如果文本框输入的内容为“hello”，则在屏幕上打印“ok”。,If Text1.Text=“hello” Then Form1.Print “ok”End If,例2：如果两个文本框输入
2、的内容相同，则在屏幕上打印“ok” 。,If Text1.Text= Text2.Text Then Form1.Print “ok”End If,例3：对于任意一个数，如果它大于3，则在窗体上打印这个数。,a = Val(Text1.Text)If a 3 Then Form1.Print aEnd If,例4：对于任意一个数，如果它不等于0，则在窗体上打印这个数。,a = Val(Text1.Text)If a0 Then Form1.Print aEnd If,例5：对于任意两个数，如果第一个数大于第二个数，则在窗体上打印第一个数。,a = Val(Text1.Text)b = Val(
3、Text2.Text)If a b Then Form1.Print aEnd If,例6：如果一个数，它是偶数，则在窗体上打印它是偶数。,a = Val(Text1.Text)If a mod 2=0 Then Form1.Print a & “是偶数”End If,例7：如果一个数，它能被3整除，则在窗体上打印它能被3整除。,a = Val(Text1.Text)If a mod 3=0 Then Form1.Print a & “能被3整除”End If,二、If.Then.Else 语句,可以使用 If.Then.Else语句建立多个分支流程，并根据条件选择其中一个分支。语法结构： I
4、f 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 . Else 语句块n End If,例1：如果文本框输入的内容为“hello”，则在屏幕上打印“hello”，否则打印“ok”。,If Text1.Text = hello ThenForm1.Print helloElseForm1.Print okEnd If,例2：如果两个文本框输入的内容相同，则在屏幕上打印“OK” ，否则打印“NG”。,If Text1.Text = Text2.Text ThenForm1.Print OKElseForm1.Print NGEnd If,例3：对于任意一个数，如果它大于等于
5、3，则在窗体上打印“大于等于3”,否则打印“小于3” 。,a = Val(Text1.Text)If a 3 Then Form1.Print “大于等于3”Else Form1.Print “小于3”End If,例4：对于任意一个数，如果它不等于0，则在窗体上打印这个数不等于0,否则打印这个数等于0 。,a = Val(Text1.Text)If a0 Then Form1.Print a & “不等于0”Else Form1.Print a & “等于0”End If,例5：对于任意两个数，在窗体上打印大数。,a = Val(Text1.Text)b = Val(Text2.Text)I
6、f a b Then Form1.Print aElse Form1.Print bEnd If,例6：如果一个数，它是偶数，则在窗体上打印它是偶数,否则打印它不是偶数。,a = Val(Text1.Text)If a mod 2=0 Then Form1.Print a & “是偶数”Else Form1.Print a & “不是偶数”End If,例7：如果一个数，它能被3整除，则在窗体上打印它能被3整除,否则打印它不能被3整除。,a = Val(Text1.Text)If a mod 3=0 Then Form1.Print a & “能被3整除”Else Form1.Print a
7、& “不能被3整除”End If,三、分支的嵌套,If 条件 then 语句块 If 条件 then 语句 else 语句 endifElse 语句块endif,If 条件 then 语句块Else 语句块 If 条件 then 语句 else 语句 endifendif,Y= 1 x0 -1 x0 then if x=0 then y=1 if x=0 thenElse y=0 if x=0 then else y=0 y=1 else endif y=-1 else Endif y=-1endif endifPrint y print y,练习:输出三个文本框中的最大数,a = Val(T
8、ext1)b = Val(Text2)c = Val(Text3)If a b Then If a c Then Print a Else Print c End IfElse If b c Then Print b Else Print c End IfEnd If,四、 IfThenElseIf结构(多分支结构),格式：,If ThenElseIf Then Else 语句块 n+1End If,不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 ElseIf不能写成 Else If。,19,例1：
9、设计一个查询是否中奖的程序。界面由四个控件组成，两个标签、一个文本框和一个命令按钮。从文本框中输入奖券号码，单击“查询”按钮，在click事件中查询是否中奖及中奖等级。中奖号码为“123”，与中奖号码相同的为一等奖；前两位相同为二等奖；前一位相同为三等奖。,例2：判断学生成绩等级,a = Val(Text1.Text) if a = 90 Then Text2.Text = 优秀 ElseIf a = 80 Then Text2.Text = 良好 ElseIf a = 70 Then Text2.Text = 中等 ElseIf a = 60 Then Text2.Text = 及格Else
10、 Text2.Text = 不及格End If,五、Select Case 语句,Select Case 是用于实现多重选择，其作用与 If.Then.Else 语句类似。语法结构是： Select Case 测试条件 Case 表达式1 语句块1 Case表达式2 语句块2 Case Else 语句块n End Select,表达式的类型必须相同，是下面4种形式之一 ：具体常数 例: A“,1,3连续的数据范围 1 To 100Is 条件表达式 Is 3一组用逗号分隔的不同值 2,4,1 to 6,8,例1：对于任意一个数，如果它是1，则在窗体上打印“1”,如果它是“2”，则在窗体上打印“2
11、”,否则打印“其他” 。,a = Val(Text1.Text)Select case a case 1 form1.print “1” case 2 form1.print “2” case else form1.print “其他”End select,例2：对于任意一串字符，如果它是hello，则在窗体上打印“hello”,如果它是“ok”，则在窗体上打印“ok”,否则打印“其他” 。,a = Text1.TextSelect case a case “hello” form1.print “hello” case “ok” form1.print “ok” case else form
12、1.print “其他”End select,例3：对于任意一个数，如果它大于0，则在窗体上打印“正数”,如果它小于0，则在窗体上打印“负数”否则打印“0” 。,a = Val(Text1.Text)Select case a case is0 form1.print “正数” case is=90，则打印“优秀”,如果80,90)，则打印“良好”,如果70,80)，则打印“中等”,如果60,70)，则打印“及格”,如果=90 form1.print “优秀” case is=80 form1.print “良好” case is=70 form1.print “中等” case is=60 form1.print “及格” case else form1.print “不及格”End select,
