未来教育考试网上不但有历年真题 还有解析
vb基础知识题
1大学vb计算机考试题库中华文库、click
2、过程
3、Randomize
4、方法
5、interval
6、工程
7、3次
8、MultiSelect=1 或2
VB题目（二）
Private Sub Command1_Click()
Dim h, m As Integer
Do
h
= Val(InputBox(请输入上网时间（小时），输入 0 则结束, 0))
If h <= 0 Then Exit Do
If h < 10 Then
m = 30
ElseIf h >= 10 And h < 50 Then
m = 5 * h
ElseIf h >= 50 Then
m = 2.5 * h
End If
Print 上网时间： & Format(h) & 小时，费用： & Format(m) & 元
Loop
End Sub