新Visual Basic 程序设计 第4章 Visual Basic程序设计结构.pptVIP

第4章 Visual Basic程序设计结构 顺序结构 选择结构 循环结构 4-2 顺序结构 程序由上到下依次执行每一条语句 Private Sub Form_Click() Dim i As Integer i = i + 1 Print i End Sub 4-2 顺序结构 赋值语句：将数据保存在一个变量或对象的属性中（从右向左） 格式： 变量名=表达式 Dim a As Integer Dim b As Integer a = 1 b = 2 * a a = a + 1 4-2 顺序结构 注释： ‘开头，会自动变成绿色 不被执行 起到说明作用 0-3-2VB书写规范 不区分大小写 一行上多条语句:冒号隔开 t=a: a=b: b=t 一个语句分成若干行： Text1.Text = Text1.Text _ Text2.Text _ Text3.Text 4-3 选择结构 根据某个条件来决定执行哪部分程序 4-3 选择结构 如果x是偶数，则输出“偶数” 如果ageXageY,则salaryX=1500 如果text2内容为空，提示“输入数据” 实验1总结 Private Sub cmdCompute_Click() Dim a As Integer, b As Integer, c As Integer Dim delt As Double Dim x1 As Double, x2 As Double a = Val(txtA.Text) b = Val(txtB.Text) c = Val(txtC.Text) delt = Sqr(b * b - 4 * a * c) 实验1总结 If delt = 0 Then x1 = (-b + delt) / (2 * a) x2 = (-b - delt) / (2 * a) MsgBox x1= x1 x2= x2 End If End Sub 实验1总结——选择结构2 If delt = 0 Then delt = Sqr(b * b - 4 * a * c) x1 = (0 - b + delt) / (2 * a) x2 = (0 - b - delt) / (2 * a) MsgBox x1= x1 x2= x2 Else MsgBox 无实根 End If 4-3 选择结构2 If 条件 Then 语句块1 ‘当条件为真，执行这里 Else 语句块2 ‘当条件为假，执行这里 End If 4-3 选择结构 salary= If 条件 Then 语句块1 ‘当条件为真，执行这里 Else 语句块2 ‘当条件为假，执行这里 End If 4-3 选择结构 playerF 玩家1的骰子数 playerM玩家2的骰子数 If 条件 语句块1 Else 语句块2 End If 4-3 选择结构 Private Sub lblPlay_Click() Dim playerM As Integer 保存玩家1的点数 Dim playerF As Integer 保存玩家2的点数 playerM = Int(6 * Rnd + 1) 利用随机数产生点数 lblMQQ.Caption = playerM playerF = Int(6 * Rnd + 1) lblFQQ.Caption = playerF If playerM = playerF Then MsgBox ~输~了~, , 5555 Else MsgBox !!我又赢了, , ye ye End If End Sub 4-3 选择结构3 分段函数 y = 0 If 条件1 Then 语句块1 ‘当条件1为真，执行 ElseIf 条件2 Then 语句块2 ‘当条件1为假，条件2为真 Else 语句块3 ‘当条件1为假，条件2为假 End If 4-3 选择结构3 If 条件1 Then 语句块1 ‘当条件1为真，执行 ElseIf 条件2 Then 语句块2