第3章 控制结构程序设计.pptx

第3章 控制结构程序设计;;顺序结构;赋值语句;赋值语句;赋值语句;赋值语句;赋值语句;赋值语句;赋值语句;输入与输出;使用Print方法输出数据;使用控件输入与输出;用户交互函数;用户交互函数; 例如：有下列语句如下: Dim x As String x = InputBox(请输入你的姓名, 输入姓名, John) 语句执行后打开如下对话框。;用户交互函数;用户交互函数;MsgBox “hello,你好;图标;例如：补充实验3.3 Private Sub Command1_Click() Dim r As Double, a As Double Const PI = 3.14 r = InputBox(请输入半径) a = PI * r * r MsgBox 半径为: r 圆的面积是: a ，vbInformation,结果 End Sub;程序中的注释;选择结构;分支结构类似于:;IF条件语句;条件;IF条件语句;IF条件语句;双分支结构;条件;例如： 输出X，Y两个中较大的一个值。 ;例3.5 P63 求解一元二次方程ax2+bx+c=0根。 ;Dim a!, b!, c!, x1!, x2!, disc! a = Text1.Text b = Text2.Text c = Text3.Text disc = b * b - 4 * a * c; If disc = 0 Then 实根情况 x1 = (-b + Sqr(disc)) / (2 * a) x2 = (-b - Sqr(disc)) / (2 * a) Text4.Text = x1 Text5.Text = x2 Else 虚根情况 x1 = -b / (2 * a) x2 = Sqr(Abs(disc)) / (2 * a) Text4.Text = x1 + x2 i Text5.Text = x1 - x2 i End If ;IIf函数;IIf函数;If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 elseif 条件3 Then 语句块3 …… ElseIf 条件n Then 语句块n Else 语句块n+1 End If;例3.6 P64;;;Private Sub Command1_Click() Dim mark As Integer mark = Text1.Text If mark 60 Then label2.Caption = 不及格 ElseIf mark 70 Then label2.Caption = 及格 ElseIf mark 80 Then label2.Caption = 中 ElseIf mark 90 Then label2.Caption = 良 Else label2.Caption = 优 End If End Sub;使用IF语句实现的程序段如下： If mark =90 then Print 优秀 ElseIf mark =80 Then Print 良好 ElseIf mark =70 Then Print 中等 ElseIf mark =60 Then Print 及格 Else Print 不及格 End If;使用IF语句实现的程序段如下： If mark =60 then Print 及格 ElseIf mark =70 Then Print 中等 ElseIf mark =80 Then Print 良好 ElseIf mark =90 Then Print 优秀 Else Pr