VB练习题参考答案.docVIP

一 参考答案 选择题 1 2 3 4 5 6 7 8 9 10 B A C C C C A C B C 11 12 13 14 15 16 17 18 19 20 B B A C D C B A D C 21 22 23 24 25 26 27 28 29 30 B D C D B A D B A C 填空题 1、窗体 2、Sqr(y^3+3/abs(a*b)) 3、157 4、随机访问方式 5、False 或 0 6、5 7、0 8、Text1.Text 9、C2.Caption 10、1或a(1) 11、Preserve 12、i 13、k=m 14、a(i) 或 a(UBound(a)) 15、Option 16、9 17、I 18、then 19、i + j 20、Print 21、a() 或 a 22、Ubound(b) 或 10 23、 n = n - 1 或 n = 10 – I 24、For Append 25、Print #1,s 或 Write #1, s 编程题 1、 Function Gcd(Byval m As Integer, Byval n As Integer) As Integer Dim r As Integer Do r = m Mod n m = n n = r Loop Until r = 0 Gcd = m End Function 红部分代码可以换成蓝色或者黑色的代码。 2、 Option Base 1 Private Sub Command1_Click() Dim A(26) As Integer Dim max As Integer s = Text1.Text L = Len(s) For i = 1 To L ch = UCase(Mid(s, i, 1)) If ch = A And ch = Z Then Idx = Asc(ch) - Asc(A) + 1 A(Idx) = A(Idx) + 1 End If Next i max = A(1) For i = 1 To 26 If A(i) max Then max = A(i): x = i Next i Label1.Caption =使用频率最高的是 Chr(x+64) ，共出现 max 次。 End Sub 二 参考答案 一、单选题 1- 5: BCCCA 6-10: DBDCB 11-15: CBDAA 16-20: CBADC 21-25: AABAB 26-30: ACDBD 二、填空题 1、(1) 1 2、(2) AAAAAAA 3、(3) 2 4、(4) 12 18 5、(5) 30 6、(6) Function (7) n (8) JieC=n*JieC(n-1) (9) End 7、(10) Len(s)或Len(Text1.text) (11) Mid(s,i,1) (12) c=”Z” (13) Next i 8、(14) ReDim ia(n) (15) Int(Rnd*(99-10+1))+10 或 Int(Rnd*90)+10 (16) n-1 (17) ia(imin)=t 9、(18) t (19) Sx=Sx+t (20) *t* (21) Loop 10、(22) Form_Clik() (23) X=-3.1415926 (24) y=sin(x) (25) 3.1415926 三、编程题 1、Function Max(a() As Single) As Single Dim