常见 VB 考试题型(37 页)Good is good, but better carries it.精益求精，善益求善。1Private Sub Form_Load()Dim r As Single, s As Single, v As Singler = InputBox("请输入半径 r：", "输入数据")s = 3.14 * r ^ 2v = 4 / 3 * r ^ 3 * 3.14'Print "圆面积为:"; s'Print "球体积为:"; vMsgBox ("圆面积为:" & s & Space(2) & "球体积为:" & v)End Sub2 输入两个数存放在 x 和 y 中 ，比较大小，保证大数放在 x 中，小的数放在 Y中。Private Sub Command1_Click()Print "比较前:"X = InputBox("请输入 X")Y = InputBox("请输入 Y")Print "X="; X, "Y="; YIf X < Y Then Z = Y Y = X X = ZEnd If Print "比较后:"Print "X="; X, "Y="; YEnd Sub3 推断一个整数的奇偶性Private Sub Form_Click()x = Val(InputBox("请输入一个数;"))If x Mod 2 = 0 Then MsgBox (x & " 是偶数")Else MsgBox (x & " 是奇数")End IfEnd Sub4 Private Sub Command1_Click()If Text1.Text = "12345" Then If Text2.Text = "12345" Then MsgBox "登录成功", 64 + 1, "登录" Else MsgBox "密码错误,请重新输入", 16 End IfElse MsgBox "用户不存在", 16 + 1, "登录"End IfEnd Sub5 推断一个数是整数还是小数，假如是整数再推断其奇偶性 。 Private Sub Form_Click()x = InputBox("请输入一个数;")If InStr(1, x, ".") = 0 Then If x Mod 2 = 0 Then MsgBox (x & " 是整数,是偶数！") Else MsgBox (x & " 是整数,是奇数！") End IfElse MsgBox (x & " 是小数")End IfEnd Sub6 Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)Select Case x Case Is <= 100 y = x * 0.8 Case Is <= 200 y = x * 0.7 Case Is <= 300 y = x * 0.5 Case Else y = x * 0.3End SelectLabel3.Caption = y & "元"End Sub7 Private Sub Command1_Click()X = Val(Text1.Text)Select Case X Case Is <= 3 Label3.Caption = 6 Case Is <= 30 Label3.Caption = 6 + (X - 3) * 1.5 Case Else Label3.Caption = 6 + 27 * 1.5 + (X - 30) * 2End SelectEnd Sub8 Pr...
