VB学习资料(7)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

Else

Print “不及格”

End If

End Sub

4.2.4 IIf函数

IIf是单行If语句的简单版本。

变量 = IIf（条件，True部分，False部分） 注意：IIf函数中的三个参数都不能省略。

例：计算分段函数

1+x (x≥0) y=

1-2x (x<0)

Private Sub Command1_Click()

Dim x As Single,y As Single x= Val(Text1.Text) y=IIf(x>=0,1+x,1-2*x) Text2.Text = y End Sub

【例】判闰年。 闰年的条件：

（1）被4整除，但不能被100整除； （2）能被400整除。 最好：

If x Mod 400 = 0 Then

y$ = "是闰年"

ElseIf x Mod 4 = 0 And x Mod 100 <> 0 Then y$ = "是闰年" Else

y$ = "不是闰年" End If

也可

x = Val(InputBox("输入年份"))

If x Mod 4 = 0 and x Mod 100 <> 0 or x Mod 400 = 0 Then

y$ = "是闰年"

Else

y$ = "不是闰年"

End If