华工2011年VB试题答案.docVIP

《高级语言程序设计(VB)》试题A卷 参考答案及评分标准(2011.6) 一、填空题(每空1分，共10分) 1. 98 2. True 3. Picture3.Print “华南理工大学” 4. False 5. 编译方式 6．Variant或可变 7． ByVal 8. 0 9．Exit Do 10.函数过程名 二、单项选择题(每题2分，共30分) 1. B 2. B 和C 3. A 4. C 5. B 6. B 7. A 8. A 9. A 10. B 11． C 　12． D 13． B 14. （题目错，送分） 15． C 三、程序阅读题(每题6分，共24分) 1. 3 每行2分 3 6 2. 2 1 每行2分 3 1 3 2 3． 2 4 6 每个结果1分 8 12 18 4．150 每行1.5分 100 250 250 以上题目输出格式不对适当扣点分 四、程序填空题(每空2分，共20分) 1. (1) Is 1, Is=7（填Is 1 or Is=7只给1分，填Is 1 and Is=7不给分） (2) y = 2* Sin(x*3.14159/180) -5 (或y = 2* Sin(x) -5) (3) Else 或 Is 7 2. (4) For b = 1 To 30 (5) a*a+b*b=c*c 3．（6） S=0:T=1或T=1 （7） T*I （8） S+T 4．(9) d:\file1.dat (10) Write #10,s 或Print #10,s 五、程序设计题(每题8分，共16分) 1.Private Sub Command1_Click( ) Dim i%, n%, temp%, j% Dim a( ) As integer n=InputBox(“请输入数值n”) ReDim a(n) For i=1 to n a(i)=Int(75*Rnd+11) Print a(i), Next i temp=a(1) j=1 For i=2 to n If a(i)temp Then temp=a(i) j=i End If Next i Print “该数组的最小值为：”; temp Print “该数组最小值所在位置为：”; j End Sub 定义可调数组占1分。 产生n个从11到85之间的随机整数存放到一维数组a中和输出该数组占3分。 求这个数组的最小值及最小值在数组中的位置占4分，思路对才给分。 2．Private Sub fac(ByVal k, f) Dim t, i t = 1 For i = 1 To k t = t * i Next i f = t End Sub Private Sub Command1_Click() Dim m, n, cmn, c1, c2, c3 n = InputBox(输入n ) m = InputBox(输入 m ) Call fac(m, c1): Call fac(n, c2): Call fac(m - n, c3) cmn = c1 / (c2 * c3) Print cmn End Sub 事件过程Command1_Click() 占3分，思路对才给分。 子过程fac占 5分，思路对才给分。 第 1 页 共