42.3Ⅱ函数 实现一些简单的条件判断分支结构 格式: If(条件,条件为真时的值,条件为假时的值) 功能:对条件进行测试,若条件成立(为真值),则 取第一个值(即“条件为真时的值”),否则取第二个 值(即“条件为假时的值”) 例如,将a、b中的小数,放入Min变量中: Min=IIf(a<b, a, b)
实现一些简单的条件判断分支结构 格式： IIf(条件，条件为真时的值，条件为假时的值) 功能：对条件进行测试，若条件成立(为真值)，则 取第一个值(即“条件为真时的值”)，否则取第二个 值(即“条件为假时的值”) 例如，将a、b中的小数，放入Min Min=IIf(a＜b,a,b) 4.2.3 IIf函数
424条件语句的嵌套 Then和Else后面的语句块包含另一个条件语句 1.一般格式 If条件1Then If条件2Then End If Else End if 使用条件语句嵌套时,一定要注意If与Else,If 与EndI的配对关系
Then和Else后面的语句块包含另一个条件语句 1.一般格式 If 条件1 Then If 条件2 Then … End If Else … End If 使用条件语句嵌套时，一定要注意If与Else，If 与End If的配对关系。 4.2.4 条件语句的嵌套
例4.4根据不同的时间段发出问候语 例如:0时至12时,显示“早上好” 利用窗体装载(L0ad)事件,采用Prin直接在窗体上输出结果 Private Sub Form Load Dim h as integer Show 使 print输出在窗体上的内容可见 h= Hour(Time) 取系统的时间 Fontsize= 30: Fore Color= RGB(255, 0,0) Backcolor= RGB(255, 255, 0) If h<i2 Then Print"早上好! Else If h<i8 Then Print"下午好 Else Print"晚上好 End if End If End sub ★
例如：0时至12时，显示“早上好” 利用窗体装载(Load)事件，采用Print直接在窗体上输出结果 Private Sub Form_Load() Dim h As Integer Show '使print输出在窗体上的内容可见 h = Hour(Time) '取系统的时间 FontSize = 30 : ForeColor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h < 12 Then Print "早上好！" Else If h < 18 Then Print "下午好！" Else Print "晚上好！" End If End If End Sub 例4.4 根据不同的时间段发出问候语