常见VB考试题型.docVIP

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 S