04 05第1学期vb考试题及标准答案

2．Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, i As Integer, sum As Integer a = 1 b = 1

sum = a + b For i = 1 To 4 c = a + b

sum = sum + c a = b b = c Next i Print sum End Sub 3．Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim s As String s = Chr(KeyAscii)

If InStr(\ KeyAscii = 0 End If End Sub

该段程序的主要功能是：

4． Private Sub Form_Click()

Dim a As Integer, b As Integer a = 2: b = 5 Call p1(a, b) Call p2(a, b)

Print \

End Sub

Sub p1(x As Integer, y As Integer) x = x + 1 y = y + 2 End Sub

Sub p2(ByVal x As Integer, y As Integer) x = x + 1 y = y + 2 End Sub

第 5 页 共 13 页

5． Option Base 1

Private Sub Command1_Click()

Dim i As Integer, a(10) As Integer For i = 1 To 10 a(i) = i Next i

For i = 1 To 10

Call swap(a(i), a(10 - i + 1)) Next i

For i = 1 To 10 Print a(i); Next i End Sub

Sub swap(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub

四、完善程序（每空2分，共20分，请将答案直接填在空格处）

1．以下程序用于求整数范围内最大的一个素数，判断素数由函数ss完成。

Function ss(ByVal x As Integer) As Boolean Dim k As Integer, i As Integer k = Int(Sqr(x)) For i = 2 To k

If Then Exit For Next i

ss = IIf( , True, False) End Function

Private Sub Command1_Click() Dim m As Integer

For m = To 2 Step -2 If ss(m) = True Then

MsgBox \整数范围内最大的素数是：\ End If Next m End Sub

第 6 页 共 13 页

2． 以下程序用于输出1000～5000以内符合条件“千位数字与十位数字之和是百位数字与个位数字之和的10倍”的数并统计个数，如1091和4160就是这样的数，请补充程序。

Private Sub Command1_Click()

Dim m As Integer, n As Integer, x As Integer Dim a(0 To 3) As Integer, i As Integer For m = 1000 To 5000 x = m

For i = 0 To 3

a(i) = x = x \\ 10 Next i

If Then Print m

End If Next m

MsgBox \满足条件的数共有：\个\End Sub

3．以下程序中函数gys用于求两个数的最大公约数，主程序调用该函数求从键盘上输入的三个数的最大公约数。补充程序。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a = Val(InputBox(\请输入第一个数\ b = Val(InputBox(\请输入第二个数\ c = Val(InputBox(\请输入第三个数\

MsgBox \这三个数的最大公约数为：\End Sub

Function gys(ByVal m As Integer, n As Integer) As Integer Dim r As Integer Do

r = If r = 0 Then Exit Do m = n n = r Loop

gys = End Function

第 7 页 共 13 页

五、编程题（共32分，每题8分）

1．计算表达式4！+8！+10！的值，其中阶乘要求用函数完成。 2．有一个数组A（m, n），m，n从键盘输入，数组元素是随机函数产生的[10，99]之间的整数，求该数组四周元素之和。

3．随机产生10个两位整数，按由大到小的顺序排序后输出。

4．有一个名为“F.TXT”的顺序文件，存放着若干学生的学生姓名和计算机成绩，请读

出计算机成绩并分类统计人数：

(1) 59分以下 (2) 60～69 (3) 70～79 (4) 80～89 (5) 90分以上

第 8 页 共 13 页