VB30道简单设计题.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 s! c1 = Chr(13) + Chr(10) msg1 = 请输入学生成绩 msg2 = 输入后按回车键 msg3 = 或者单击“确定”按钮 msg = msg1 + c1 + msg2 + c1 + msg3 s = Val(InputBox(msg, inputbox function demo, 0)) Select Case s Case 90 To 100 Label2.Caption = 该学生成绩等级为：优秀 Case 80 To 89 Label2.Caption = 该学生成绩等级为：良好 Case 70 To 79 Label2.Caption = 该学生成绩等级为：中等 Case 60 To 69 Label2.Caption = 该学生成绩等级为：及格 Case 0 To 59 Label2.Caption = 该学生成绩等级为：不及格 Case Else Label2.Caption = 输入成绩无效 End Select End Sub Private Sub Command2_Click() End End Sub 3. 设计一个求解一元二次方程的程序，只要求考虑实根的情况。 图3 Private Sub Command1_Click() Dim a, b, c, x1, x2, d! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(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 = Str(x1) Text5.Text = Str(x2) Else: Text4.Text = 方程无实根 Text5.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 Label2.Caption = B= Str(b) End Sub 5. 编写程序：输入x、y、z三个数，按从小到大的次序显示。 Private Sub Command1_Click() Dim i, x, y, z, temp! c1 = Chr(13) + Chr(10) msg1 = 随机输入一个数字 msg2 = 输入后按回车键 msg3 = 或者单击“确定”按钮 msg = msg1 + c1 + msg2 + c1 + msg3 x = Val(InputBox(msg, inputbox function demo, 0)) y = Val(InputBox(msg, inputbox function demo, 0)) z = Val(InputBox(msg, inputbox function demo, 0)) If x