VB程序设计(专科)第三阶段练习题(参考答案).doc

《VB程序设计()》第三阶段练习题(参考答案) 一、单项选择题 题号 1 2 3 4 5 6 7 8 9 10 答案 D B D C D D B A A C 题号 11 12 13 14 15 16 17 18 19 20 答案 B D C D C A C C B D 二、填空题 1．名字 2．类型 3．下标 4．Dim a(0 to 5, -3 to 6) as Integer 5．0 6．通用声明 7．Option Base 8．可调数组 9．可变类型数组 10．同一个事件过程 11．Index 12．IsArray 13．局部变量 14．Eed Sub 15．Exit Sub 16．Rnd 17．Static 18．窗体模块 19．标准模块 20．类模块 21．函数过程名 22．整个应用程序 23．作用域 24．传值参数 25．传址参数 26．该窗体模块或标准模块   三、程序填空题 1．①　Int(Rnd * 100 + 1) ② String(a(i) \ 2, *); a(; i; )=; a(i) 2．ReDim a(n, n) y ② 1 To (n + 1) \ 2　　③ a(j, k) = i　　　④ Print 3．① a(7) ② a(j + 1) = a(j) ③ a(1) = t 4．① Preserve a(n + 1) ② a(i + 1) = a(i)　　③ a(i + 1) = m 5．① m(1) * 3 ② n = 3　　 6．① m 0 ②m To n　　③ n = n - 1　　　④ m = m – 1 ⑤ b() 7．① common_divisor = x ② common_divisor(a, b) 8．① Dem = Convert(St) ② Mid(S, i, 1) ③ Asc(SubC) - Asc(A) + 10　　　 ④ Convert = p 四、程序阅读题 1．49 2．1 2 3 2 3 1 3 2 3 3． 1 2 3 6 9 4． 2 3 2 3 3 2 3 3 3 3 4 4 5． 2 34 6． 27 7． a=4 b=6 c=6 a=8 b=6 c=6 8． 3 5 7 4 5 五、编程题 1． Private Sub Command1_Click() Randomize Dim a(100) As Integer n = 0 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) 50 Then Print a(i); n = n + 1 If n = 10 Then Print n = 0 End If End If Next End Sub 2． Private Sub Command1_Click() Randomize n = Int(Rnd * 100) ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100) Next aver = a(1) Max = a(1) For i = 2 To n aver = aver + a(i) If Max a(i) Then Max = a(i) Next aver = aver / n For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next Print Print 平均值=; aver Print 最大值=; Max End Sub 3. Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Val(InputBox(请输入第 i 个数)) Next Print 交换前: For i = 1 To 10