常见VB考试题型.doc

. . . .word. 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 mand1_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