VB学习资料(6)

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

If x>=0 Then

y=1+x Else

y=1-2*x End If

用单行If语句：

If x>=0 Then y=1+x Else y=1-2*x

或：

If x>=0 Then y=1+x If x<0 Then y=1-2*x

3.多分支选择结构 If 条件1 Then 语句块1

ElseIf 条件2 Then 语句块2

ElseIf 条件3 Then 语句块3 Else

语句块n+1 End If

从多个条件中，选择执行一个语句块 “纵然分支众多，仅选其一” 说明：

当有多个条件为真时，只能执行最前面的一个语句块。 注意：ElseIf之间不能有空格

【例】学生成绩判定。

Private Sub Command1_Click()

x =Val（InputBox("输入学生成绩：")） If x >=90 Then Print “优”

ElseIf x >=80 Then Print “良”

ElseIf x >=70 Then Print “中”

ElseIf x >60 Then Print “及格”