VB程序设计代码（1）If a < 60 Then
Text1.Text = "挨打"
Else
If a < 80 Then
Text1.Text = "辅导班"
Else
If a < 90 Then
Text1.Text = "反思"
Else
Text1.Text = "奖励"
End If
End If
End If
End Sub
（2）Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("请输入成绩"))
If a < 60 Then
Print "挨打"
ElseIf a < 80 Then
Print "辅导班"
ElseIf a < 90 Then
Print "反思"
Else
Print "奖励"
End If
End Sub
（3）任意位数相加
Private Sub Command1_Click()
a = InStr(Text1.Text, "+")
b = Val(Left(Text1.Text, a - 1))
c = Val(Mid(Text1.Text, a + 1)) Text2.Text = b + c
End Sub
Private Sub Text1_Change() Text2.Text = ""
End Sub
