第六讲 VB控制结构学习.pptVIP

主讲人:llj 编程的基本步骤 输入数据 处理数据 输出结果 复习： 编程的基本思路 设计输入界面 Inputbox 文本框等控件 处理数据-算法。 算法为：从1至N分别除2，如不能整除则为所求，将其输出。 设计输出界面 Print 文本框等控件 Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If a 1 Then MsgBox 请输入正确数据！ Text1.Text = Text1.SetFocus Exit Sub End If For i = 1 To a If i Mod 2 0 Then Print i; End If If i Mod 10 = 0 Then Print Next End Sub 第7章 Visual Basic 控制结构 结构化程序设计的基本控制结构有3种： 顺序结构 选择结构 循环结构 顺序结构：按照程序语句行的自然顺序，一条条语句的执行。 一、选择结构程序设计 要点: 条件语句 单行结构条件语句If...Then...Else ... 块结构条件语句If...Then...End If 多分支选择语句Select Case...End Select 特点: 根据条件是否成立，决定程序的执行分支 （一）单行结构条件语句 1. 格式 If 条件 Then 语句组1 [Else 语句组2] 2. 功能 如果条件成立，则执行语句组1 否则执行语句组2 3. 说明 (1) 条件 为：表达式、变量、常量，其值为布尔型。 可以是： 关系表达式 : a=1:b=2 ； a=b 结果为False 布尔表达式: a=True:b=False ；a and b结果为False 数值表达式：0为False；非0为True 例如:a=1, if a Then…. 字符串表达式： 0为False；非0为True 引号内的不允许是字母，只能是数值。 复杂的条件:a=0:b=1,If ab and a Then…. (2) 可以没有Else部分，这时必须有语句组1。 (4)应作为一条语句书写。如果语句太长需要换行，必须在折行处使用续行符号“_”。 (5) 无论条件是否成立，都具有共同出口 例: If X = 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print Y=; Y 若 X=2 则打印 Y=-2 若 X=-2 则打印 Y=-6 （二）块结构条件语句 1.格式 If 条件1 Then 语句组1 [ElseIf 条件2 Then 语句组2] …… [ElseIf 条件N Then 语句组N] [Else 其他语句组] End If 块结构条件语句的功能： 【例7-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。 【例7-2】输入华氏温度F，利用公式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。 Private Sub Command1_Click() C = 5 / 9 * (Val(Text1.Text) - 32) Text2.Text = Format(C, 0.00) If C 40 Then Label2.Caption = HOT ElseIf C 30 Then Label2.Caption = WARM ElseIf C 20 Then Label2.Caption = ROOM TEMPERATURE“ ElseIf C 10 Then Label2.Caption = COOL ElseIf C 0 Then Label2.Caption = COLD Else Label2.Caption = FREEZING End If End Sub 注意： (1) ElseIf不能写成Else If，即中间不能有空格。 (2) 在书写时，可将If、ElseIf、Else、和End If语句左对齐，而其它语句右缩进若干空格，使程序结构更清楚。 (3) 严格按格式要求书写，不可随意换行或将两行合并成一行。例如，对于条件结构： If x = 0 Then y = 1 Else