《Visual Basic 程序设计 第4章 Visual Basic程序设计结构》由会员分享，可在线阅读，更多相关《Visual Basic 程序设计 第4章 Visual Basic程序设计结构（62页珍藏版）》请在金锄头文库上搜索。
1、第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,对象名.属性名=表达式 Dim cap As String cap = “窗体标题” Caption = cap,Fo
2、rm1.Caption=cap,4-2 顺序结构,注释： 开头，会自动变成绿色 不被执行 起到说明作用,0-3-2VB书写规范,不区分大小写 一行上多条语句:冒号隔开 t=a: a=b: b=t 一个语句分成若干行： Text1.Text = Text1.Text & “ “ & _ Text2.Text & “ “ & _ Text3.Text & “ “,4-3 选择结构,根据某个条件来决定执行哪部分程序,选择结构,if语句,select语句,单行if语句,多行if语句,If x Mod 2 Then Print “奇数“,If answer = vbYes Then End End If
3、,Select Case opt Case “+“ result = a + b Case “-“ result = a - b Case “*“ result = a * b End Select,4-3 选择结构,如果x是偶数，则输出“偶数” 如果ageXageY,则salaryX=1500 如果text2内容为空，提示“输入数据”,If 条件 Then 语句块 End If,实验1总结,Private Sub cmdCompute_Click() Dim a As Integer, b As Integer, c As Integer Dim delt As Double Dim x1
4、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,思考：如果delt0给出提示，怎么做？,实验1总结选择结构2,If delt = 0 Then delt = Sqr(b *
5、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,1000,1500,year=3,year3,year=3
6、,salary=1000,salary=1500,4-3 选择结构,playerF 玩家1的骰子数 playerM玩家2的骰子数 If 条件 语句块1 Else 语句块2 End If,playerM = playerF,playerM = playerF,playerM playerF,MsgBox “输了“, , “5555“,MsgBox “!我又赢了“, , “ye ye“,Then,4-3 选择结构,Private Sub lblPlay_Click() Dim playerM As Integer 保存玩家1的点数 Dim playerF As Integer 保存玩家2的点数 p
7、layerM = 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 当
8、条件1为假，条件2为假 End If,1,-1,x0,x0,x0,y=1,y=-1,x=0,x=0,y=0,4-3 选择结构3,If 条件1 Then 语句块1 当条件1为真，执行 ElseIf 条件2 Then 语句块2 当条件1为假，条件2为真，执行 Else 语句块3 当条件1为假，条件2为假，执行 End If,4-3 选择结构4,If 条件1 Then 语句块1 当条件1成立 ElseIf 条件2 Then 语句块2 当条件1不成里，条件2成立 ElseIf 条件n Then 语句块n 当前面n-1个条件不成立，条件n成立 Else 语句块n+1 当前面n个条件都不成立 End If
9、,4-3 选择结构4,score变量保存0100间的整数作为百分制成绩， If score 90 Then 当成绩90, Print “A“ ElseIf score 80 Then 当成绩80 Print “B“ ElseIf score 70 Then 当成绩70 Print “C“ ElseIf score 60 Then 当成绩60 Print “D“ Else Print “E“ 当成绩=60 End If,4-3 选择结构,使用什么格式的if语句？,4-3 选择结构 分段,如果x15,则a=15; 否则a=-15 0 x0 x+1 0 x1 y= 2x 1 x2 x-1 2 x3
10、1 x 3,if x0 then y=0 elseif x1 then y= x+1 elseif x2 then y=2*x elseif x3 then y= x-1 else y=1 endif,练习P74-二1,在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub,4-3 选择结构4,Select Case 条件表达式 Case 表达式结果列表1 语句块1 Case
11、 表达式结果列表2 语句块2 Case Else 可以省略 语句块n+1 End Select,4-3 选择结构4,Select Case opt 根据运算符不同，进行运算不同 Case “+“ result = opt1 + opt2 Case “-“ result = opt1 - opt2 Case “*“ result = opt1 * opt2 Case “/“ result = opt1 / opt2 End Select,复习赋值语句,文本框txtSource 的内容， 复制到txtCopy中,Private Sub cmdRun_Click() txtCopy.Text = t
12、xtSource.Text End Sub,cmdRun,复习选择结构,txtNum1,txtNum2,txtResult,cmdAdd,单击“计算” 当“数1”或“数2”为空， 则提示用户输入数据 当“数1”或“数2”都不为空 将计算结果显示出来,复习选择结构,Private Sub cmdAdd_Click() Dim a As Integer, b As Integer Dim result As Integer a = Val(txtNum1.Text) b = Val(txtNum2.Text) result = a + b txtResult.Text = result End S
13、ub,复习选择结构,Private Sub cmdAdd_Click() Dim a As Integer, b As Integer Dim result As Integer If txtNum1.Text“And txtNum2.Text“Then a = Val(txtNum1.Text) b = Val(txtNum2.Text) result = a + b txtResult.Text = result Else MsgBox “请输入数据“ End If End Sub,这种格式的缺点： If结构太长,复习选择结构,Private Sub cmdAdd_Click() Dim
14、a As Integer, b As Integer Dim result As Integer If txtNum1.Text = “ Or txtNum2.Text = “ Then MsgBox “请输入数据“ Exit Sub End If a = Val(txtNum1.Text) b = Val(txtNum2.Text) result = a + b txtResult.Text = result End Sub,缩短If结构 使用Exit Sub 退出当前sub过程,复习选择结构,Dim user As String Dim pwd As String user = txtUs
15、er.Text Select Case user Case “LiMing“, “WangHong“ pwd = “111“ Case “ZhaoDan“ pwd = “222“ End Select,If pwd = txtPwd.Text Then MsgBox “登陆成功“ End If,txtPwd,txtUser,4-5 循环结构程序设计,循环结构依据某一条件（即循环条件）反复执行某段程序（即循环体） 执行循环体的次数，称为循环次数 WhileWend ForNext 不知道循环次数，宜用 while 循环 知道循环次数，宜用 For.Next 循环,4-5-1 WhileWend语
16、句,While 循环条件 循环体 Wend,4-5-1 WhileWend语句,在窗体上打印输出4个“*” i = 1 While i = 4 print “*” i=i+1 Wend,1. i=1,*,1. i=2,2. i=2,* *,2. i=3,3. i=3,* * *,3. i=4,4. i=4,* * * *,4. i=5,5. i=5,循环执行结束,4-5-1 WhileWend语句,程序功能是什么？执行结果是什么？ sum = 0: i = 1 While i = 3 sum = sum + i i = i + 1 Wend Print sum,i,14所有整数的和,1.sum=0 i=1,1.sum=1 i=1,1.sum=1
