4.2.2If..Then.ELse语句 格式: If条件Then 真 假 语句块1 (A) E Else A B 语句块2 (B) End If 功能:首先测试条件(E),如果条件成立(即值为真), 则执行Then后面的语句块1,如果条件不成立(即值为假), 则执行Else后面的语句块2。而在执行Then或Else之后的语句 块后,会从 End if之后的语句继续执行
格式： If 条件 Then 语句块1 (A) Else 语句块2 (B) End If 功能：首先测试条件(E)，如果条件成立(即值为真)， 则执行Then后面的语句块1，如果条件不成立(即值为假)， 则执行Else后面的语句块2。而在执行Then或Else之后的语句 块后，会从End If 真 假 A B E 4.2.2 If...Then...Else语句
例4.2输入三个数a、b、c,求出其中最大数 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求:用户在“a=”文本框(Text1)、“b=”文本框 (Text2)和“c=”文本框(Iext3)中输入数据,单击“判断”按 钮后,则在“最大数=”文本框(ex4)中输出结果 求最大数 回区 a=8 b=12 判剧 C 最大数=2
(1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求：用户在“a=”文本框(Text1)、“b=”文本框 (Text2)和“c=”文本框(Text3)中输入数据，单击“判断”按 钮后，则在“最大数＝”文本框(Text4)中输出结果 例4.2 输入三个数a、b、c，求出其中最大数
程序代码 Private Sub Command1 click Dim a As Integer, b As Integer Dim cAs Integer, m As Integer a= Val(TextIText b= val(Text2Text) Ⅴal(Text3.lext) If a>b Then m = a m用来存放较大值 Else b End if If c>m then m=c Text4 Text =m End sub ★
Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then m = a 'm用来存放较大值 Else m = b End If If c > m Then m = c Text4.Text = m End Sub 程序代码
例43输入三个数,将它们从大到小排序 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求:用户从上面三个文本框( Text1、Text2、Text3) 中输入数据,单击“排序”按钮 Command1),则在第4个文 本框(Text4中显示结果 三个数排序 三个数从大到小排序 第一个数8 第二个数-12 排序 第三个数12 序结果12,8,-12
(1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求：用户从上面三个文本框(Text1、Text2、Text3) 中输入数据，单击“排序”按钮(Command1)，则在第4个文 本框(Text4)中显示结果 例4.3 输入三个数，将它们从大到小排序
程序代码 Private Sub Commandl click a= Val(TextIText b= val(Text2Text) Val(Text3 Text) If a< b Then 本条件语句实现a>=b =aa=b:b= t End If If a < c Then 本条件语句实现a>=c t=a:a=c:c=t End if If b<c Then 本条件语句实现b>=c t=b:b=c:c=t End if Text4 Text = a &b& & End Sub
Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then '本条件语句实现a>=b t = a: a = b: b = t End If If a < c Then '本条件语句实现a>=c t = a: a = c: c = t End If If b < c Then '本条件语句实现b>=c t = b: b = c: c = t End If Text4.Text = a & "," & b & "," & c End Sub 程序代码