第4章_选择结构程序设计教材教学课件.pptVIP

第4章 选择结构程序设计;4.1 If语句; 【例4.1】 输入一个学生的成绩，显示它对应的等级，等级分为及格和不及格。 1）界面设计;2）代码分析与设计 程序源代码： Private Sub Command1_Click() Dim score As Single, grade As String score = Val(Text1.Text) If score = 60 Then grade = 及格 Else grade = 不及格 Text2.Text = grade End Sub Private Sub Command2_Click() End End Sub 【练习4.1】输入两个数，输出其最大值。;4.1.2 块结构If语句;Private Sub Form_Click() Static flag As Integer Cls FontSize = 20 If flag = 0 Then ForeColor = vbRed Print 欢迎新同学 flag = 1 Else ForeColor = vbBlue Print 欢迎新同学 flag = 0 End If End Sub ;例4-2编程:创建一个幸运数字投币机的游戏程序(LUCKY SEVEN),游戏规则:单击”旋转”按钮 ,在右边的标签中出现3个数字,当这3个数字中有一个为”7”时,标签下方就会显示一张图片。 Private Sub Command1_Click() Randomize Image1.Visible = False Label1.Caption = Int(Rnd * 10) Label2.Caption = Int(Rnd * 10) Label3.Caption = Int(Rnd * 10) If Label1.Caption = 7 Or Label2.Caption = 7 Or Label3.Caption = 7Then Image1.Visible = True End If End Sub Private Sub Command2_Click() End End Sub;【例4-3】设计界面如图所示，用文本框Text1输入x的值，单击按钮时，在文本框Text2中显示出x的绝对值。;“求绝对值”按钮Command1的单击事件过程如下： Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If x 0 Then Text2.Text = x Else Text2.Text = -x End If End Sub; 【例4.2】 修改3.8节实训内容第1题，在计算面积前，先判断所输入的三角形三边长是否构成三角形，若构成三角形则计算面积，否则提示“不构成三角形”。 1）界面设计;2) 代码分析与设计 程序的源代码如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer 用于存放最大值的临时变量 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) max = a 假设a最大 If max b Then 与b比较，确认max是否最大 max = b 若b比max大,则将b赋给max End If 以上为块结构If语句 If max c Then max = c 与c比较，确认max是否最大 以上为单行结构If语句 Text4.Text = max End Sub 【练习4.3】输入3个整数，求其最小值。 ;4.1.3 IIF函数;4.1.4 If语句的嵌套; 说明： (1) ElseIf子句可选，数目不限，但须位于If子句与Else子句(若有Else子句)之间。 (2) 注意ElseIf的书写形式，中间没有空格。 (3) 每个Then后要回车，整个If