优质文档VB程序设计考试题库——考试专用
1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。

2、题目：(事件)单击窗体。

(响应)求200~300之间既能被3整除又能被7整除的数。

并求出所有数之和存入变量SUM中
3、题目：单击窗体。

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。

4、题目：(事件)单击窗体。

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。

5、题目：(事件)双击窗体。

(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。

将所有的换法的数目存入变量N中
6、题目：单击窗体。

)求1!+2!+3!+4!+5!并将结果输出到窗体上。

结果存入变量S中
7、题目：(事件)单击窗体。

(响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17
写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。

将最大值，最小值，平均值分别存入变量Max,Min,Aver中
8、题目：(事件)单击窗体。

(响应)在窗体上输出100~200之间的所有合数。

求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。

9、题目：(事件)单击窗体。

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L中。

10、题目：(事件)单击窗体。

(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。

将结果存入变量J中。

1题
n = InputBox("输入一个自然数")
If n > 0 Then
result = "正数"
ElseIf n < 0 Then
result = "负数"
ElseIf n = 0 Then
result = "零"
End If
MsgBox "输入的数据" & n & "为：" & result
2题
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then
Print (CStr(i))
sum = sum + i
End If
Next
Print sum
3题
Dim i As Integer
优质文档
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
4题
Dim i, j, k, m As Integer
s = 0 :i = 2:j = 1
For k = 1 To 10
s = s + i / j
m = j
Print (CStr(i)) & "/" & CStr(j)
j = i
i = i + m
Next
5题
Dim i, j, k As Integer
For i = 1 To 100
For j = 1 To 50
For k = 1 To 20
If ((i + 2 * j + k * 5) = 100) Then
Print (CStr(i))
Print (CStr(j))
Print (CStr(k))
n = n + 1
End If
Next
Next
Next
6题
Dim i, j, k As Integer
For i = 1 To 5
k = 1
For j = 1 To i
k = k * j
Next
s = s + k
Next
Print (CStr(s))
7题
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15：a(1) = 23：a(2) = 72
a(3) = 43：a(4) = 96：a(5) = 23。