广石化VB程序设计题.docVIP

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 = “优秀” ‘不同结果每个条件及时输出