VB语言-2012vb试卷A答案.doc

20112012学年第二学期VB期末考试卷答题纸（A卷）专业班级： 学号： 姓名： 一、单选题 (用铅笔把选中的方格涂黑 501=50分)1ABCD2ABCD3ABCD4ABCD5ABCD6ABCD7ABCD8ABCD9ABCD10ABCD11ABCD12ABCD13ABCD14ABCD15ABCD16ABCD17ABCD18ABCD19ABCD20ABCD21ABCD22ABCD23ABCD24ABCD25ABCD26ABCD27ABCD28ABCD29ABCD30ABCD31ABCD32ABCD33ABCD34ABCD35ABCD36ABCD37ABCD38ABCD39ABCD40ABCD41ABCD42ABCD43ABCD44ABCD45ABCD46ABCD47ABCD48ABCD49ABCD50ABCD二、填空题（每空占一行，每行写一个答案 202=40分）1. True 2. 7 3. 5 4. X mod 5=0 OR X mod 8=0 5. False 6. 6 45 7. 6 11 8. 10 21 9. 13 34 10. 5 11. 8 12. 2 13. GOOD 14. morning 15. Asc(S)-Asc(“A”) 16. Left a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next iEnd Sub2、编写一递归函数，求出巴都万数列（Padovan Sequence）的第n项，并在Form_Click()事件中调用该函数求其前20项，以每行10个显示在窗体上，巴都万数列的计算公式是： Private Function p(n As Integer) As Integer （3分） If n = 0 Or n = 1 Or n = 2 Then p = 1 Else p = p(n - 2) + p(n - 3) End IfEnd FunctionPrivate Sub Form_Click() （2分） Dim i As Integer For i = 1 To 20 Print p(i); If i = 10 Then Print Next iEnd Sub