20082009学年第二学期VB期末考试（A卷答案）（2008级数学、管科类等专业）专业班级： 学号： 姓名： 一、选择题 (用铅笔把选中的方格涂黑 501=50分)1ABCD2ABCD3ABCD4ABCD5ABCD6ABCD7ABCD8ABCD9ABCD10ABCD11ABCD12ABCD13ABCD14ABCD15ABCD16ABCD17ABCD18ABCD19ABCD20ABCD21ABCD22ABCD23ABCD24ABCD25ABCD26ABCD27ABCD28ABCD29ABCD30ABCD31ABCD32ABCD33ABCD34ABCD35ABCD36ABCD37ABCD38ABCD39ABCD40ABCD41ABCD42ABCD43ABCD44ABCD45ABCD46ABCD47ABCD48ABCD49ABCD50ABCD二、填空题（每空占一行，每行写一个答案 202=30分）1. 7 2. X mod 5=0 or X mod 9=0 3. 123456789 4. 4 5. 2 13 6. 0.6 7. 5.4 8. 10 6 9. 5 4 10. 10 -6 11. st=” 12. (-1)(i-1)/val(st) 13. Int(Rnd * 90) + 10 14. prime(n) 15. i=20 16. prime = false 17. Len(mw) 18. ReDim Preserve t(k) 19. Text2 = st 20. convert = n 三、程序设计（10分，若无锯齿形书写扣1分）1、请续写一个求N！的Function递归函数过程。(如未使用递归扣1分)Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = n * fact(n - 1) End IfEnd Function2、请编写一个求任意一个正整数因子的SUB过程。（因子不包括正整数自身）（或其他答案）Private Sub Yz(N As Integer, Sum As Integer) Dim i As Integer Sum = 0 For i = 1 To N - 1 If N Mod i = 0 Then Sum = Sum + i Next iEnd Sub2