VB程序设计期末考试模拟试卷与参考答案

(19) 要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径与之保持一致，应

编写 （19） 事件代码。

[B] [A]

Private Sub Drive1_Change() Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive Drive1.Drive = Dir1.Path

End Sub End Sub

[D] [C]

Private Sub Dir1_Change() Private Sub Dir1_Change()

Dir1.Path = Drive1.Drive Drive1.Drive = Dir1.Path

End Sub End Sub (20) 执行语句“Write #1, 234; -34.56, "Hi"; Date”后，相应的文件内被写入 （20） 。

[A] 234,-34.56,"Hi",#2004-06-11# [B] 234;-34.56,"Hi";#2004-06-11# [C] 234,-34.56,Hi,2004-06-11 [D] 234 -34.56 "Hi" #2004-06-11#

试题三、程序填空题（每空2分，共20分，）

说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。

程序1【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按

每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。 【程序】

Private Sub Form_Click()

Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As Integer For i = 1 To 100

a(i) = Next i

For i = 1 To 99

For j = i + 1 To 100 If a(i) < a(j) Then

End If Next j Next i

For i = 1 To 100 Print a(i);

Next i

For i = 1 To 100

x = '取十位数字 y = a(i) Mod 10 '取个位数字 If x + y = 10 Then Print a(i) Next i End Sub

) Dim Temp As Integer

Temp = X : X = Y : Y = Temp End Sub 【选项】

(21) [A] Int(Rnd * 90) + 10 [C] Int(Rnd * 99) (22) [A] Call Swap a(i), a(j)

[B] Int(Rnd * 100) [D] 10 To 99

[B] Call Swap(a(i), a(j))