常见VB考试题型
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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 = S + Val(x)
End If
Next i
Print "十个数中偶数累加之和为" & S
End Sub
10 求S=1+2+3+……+100
Private Sub Command1_Click()
Dim I As Integer, S As Long
S = 0