1．在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。运行时， “command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VB!”，同时命令按钮1的标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。

Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Print "欢迎使用VB!"
Command1.Caption = "清除"
Else
Cls
Command1.Caption = "显示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub

2.用InputBox函数输入一个学生成绩，评定其等级。方法是：90～100分为"优秀"，80～89分为"良好"，70～79分为"中等"，60～69分为"及格"，60分以下为"不及格"。
Private Sub Command1_Click()
Dim score！
score = Val(Text1.Text)
Select Case score
Case 90 To 100
Text2.Text = “优秀” ‘不同结果每个条件及时输出
Case 80 To 89
Text2.Text = "良好"
Case 70 To 79
Text2.Text = “中等”
Case 60 To 69
Text2.Text = "及格"
Case 0 To 59
Text2.Text = “不合格"
Case Else
Text2.Text = "输入成绩无效"
End Select
End Sub

3. 设计一个求解一元二次方程 的程序，只要求考虑实根的情况。

图3
Private Sub Command1_Click()
Dim a!, b!, c!
Dim Xl!, X2!, d!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Text3.Text
d = b * b - 4 * a * c
If d >= 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Text4.Text = "X1=" & Str(X1)
Text5.Text = "X2=" & X2
Else
Text4.Text = "方程无实根"
End If

End Sub

4. 从键盘上输入一个数A，完成以下判断：当A > 100时，B = 1；A < 100时，B = -1；当A = 100时，B = 0，界面自定。
Private Sub Command1_Click()
Dim a!, b!
a = Val(Text1.Text)
If a > 100 Then
b = 1
Else
If a < 100 Then
b = -1
Else
b = 0
End If
End If
Text2.Text = Str(b)
End Sub


5. 编写程序：输入x、y、z三个数，按从小到大的次序显示。
Private Sub Command1_Click()
Dim x!, y!, z!, temp!
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If x > y Then
temp = x
x = y
y = temp
End If
If x > z Then
temp = z
z = x
x = temp
End If
If y > z Then
temp = z
z = y
y = temp
End If
Label4.Caption = x & "<" & y & "<" & z
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
End Sub

6. 顾客在商场购物时，若所选物品的总金额x在下述范围内，则

实付款y可按对应折扣支付，请编程计算某顾客的实付款，总金额由键盘输入。
x x < 1000
0.9x 1000 <= x < 2000
0.8x 2000 <= x < 3000
0.7x x >= 3000