ch05 控制结构与算法.ppt

第五部分 控制结构与算法 If语句 Select Case语句 Do…Loop语句 For…Next语句 While…Wend语句 With语句 Goto语句 GoSub…Return语句 使用控制结构(算法实现) §1 If语句 一、If…Then…语句 1.单行的If…Then…语句 书写在一行中。格式为： If 条件 Then 语句块 其中，条件应该是逻辑表达式，或者是能够转换为逻辑值的其它表达式，如关系表达式、字符串或数值。语句块是一条或多条语句，多条语句使用:分隔。 运行时，如果条件结果为True，则运行Then后面的语句，否则跳过这些语句，运行If后的语句。 §1 If语句 如： If 2 1 Then X = 10 Print X打印X的值10 与 If 2 3 Then X = 10: Print X条件不成立，两条语句均不执行 §1 If语句 2.块形式的If…Then…语句 分多行书写。格式为： If 条件 Then 语句块 End If 其功能与单行语句相同。块形式的If语句必须以End If结束，且Then的同一行之后不能有任何语句。 §1 If语句 如：当鼠标单击窗体时，窗体右移。当窗体左侧超出屏幕时重新回到最左侧(ex0501.exe)。 Private Sub Form_Click() Me.Left = Me.Left + 1000 右移 If Me.Left + Me.Width Screen.Width Then Me.Left = 0 Screen为屏幕对象 End If If语句也可写为：If Me.Left + Me.Width Screen.Width Then Me.Left = 0 End Sub §1 If语句 条件表达式： 形如X=True的条件表达式可写为：X；形如X=False的表达式可写为：Not X。如： If Label1.Visible=True Then…可简写为： If Label1.Visible Then… 而 If Label1.Visible=False Then…可简写为： If Not Label1.Visible Then… 判断一个变量v是否为Null值时，不能写成If v=Null Then…而应写为：If IsNull(v) Then…。 §1 If语句 二、If…Then…Else…语句 1.单行形式的If…Then…Else…语句 If 条件 Then 语句块1 Else 语句块2 当条件成立时，执行语句块1中所有语句，否则执行语句块2中语句。语句块1和2不会同时都执行，但肯定执行其中之一。 例如，判断一个数x的奇偶性。 If x Mod 2 = 0 Then Print 偶数 Else Print 奇数 §1 If语句 例如：在窗体中放置一个标签，第一次单击窗体中标签隐藏，第二次单击时标签显示…(ex0502.exe) 以下程序代码为何不能正确实现? Private Sub Form_Click() If Label1.Visible = True Then Label1.Visible = False If Label1.Visible = False Then Label1.Visible = True End Sub §1 If语句 正确的代码为： Private Sub Form_Click() If Label1.Visible = True Then Label1.Visible = False _ Else Label1.Visible = True End Sub 上述代码的功能是对标签的Visible属性取反，也可简写为（使用逻辑运算符Not则不需要判断）： Private Sub Form_Click() Label1.Visible = Not Label1.Visible End Sub §1 If语句 2.块形式的If…Then…Else…语句 If 条件 Then 语句块1 Else 语句块2 End If 块形式的If语句必须以End If结束。 §1 If语句 例如，判断时间是白天还是黑夜(ex0503.exe)。 Private Sub Command1_Click() Dim D As Date, S As String D = CDate(Text1.Text) 字符串转换为日期时间 If D #6:00:00 AM# And D #6: