常见考试题型解析.doc

1输入半径,求圆面积和球体积。 Private Sub Form_Load() Dim r As Single, s As Single, v As Single r = InputBox(请输入半径r：, 输入数据) s = 3.14 * r ^ 2 v = 4 / 3 * r ^ 3 * 3.14 Print 圆面积为:; s Print 球体积为:; v MsgBox (圆面积为: s Space(2) 球体积为: v) End Sub 2输入两个数存放在x和y中 ，比较大小，保证大数放在x中，小的数放在Y中。 Private Sub Command1_Click() Print 比较前: X = InputBox(请输入X) Y = InputBox(请输入Y) Print X=; X, Y=; Y If X Y Then Z = Y Y = X X = Z End If Print 比较后: Print X=; X, Y=; Y End Sub 3 判断一个整数的奇偶性 Private Sub Form_Click() x = Val(InputBox(请输入一个数;)) If x Mod 2 = 0 Then MsgBox (x 是偶数) Else MsgBox (x 是奇数) End If End Sub 4 帐号和密码 Private Sub Command1_Click() If Text1.Text = 12345 Then If Text2.Text = 12345 Then MsgBox 登录成功, 64 + 1, 登录 Else MsgBox 密码错误,请重新输入, 16 End If Else MsgBox 用户不存在, 16 + 1, 登录 End If End Sub 5 判断一个数是整数还是小数，如果是整数再判断其奇偶性 。 Private Sub Form_Click() x = InputBox(请输入一个数;) If InStr(1, x, .) = 0 Then If x Mod 2 = 0 Then MsgBox (x 是整数,是偶数！) Else MsgBox (x 是整数,是奇数！) End If Else MsgBox (x 是小数) End If End Sub 6 书店优惠售书 Private Sub Command1_Click() Dim x As Single, y As Single x = 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.3 End Select Label3.Caption = y 元 End Sub 7 设计一个计程车收费程序 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) * 2 End Select End Sub 8 输入10个数，输出累加之和。 Private Sub Command1_Click() Dim S As Single, i As Integer, x As Single S = 0 For i = 1 To 10 x = Val(InputBox(请输入第 i 个数)) Print 第 i 个数 x S = S + x Next i Print 十个数累加之和为 S End Sub 9 输入10个数，输出偶数之和。 Private Sub Command1_Click() Dim S As Single, x As Single Dim n As Integer, i As Integer S = 0 For i = 1 To 10 x = Val(InputBox(请输入第 i 个数)) Print 第 i 个数 x If x Mod 2 = 0 Then S =