2009年(春)—2011年(秋)VB笔试答案.doc

2009年（春）笔试答案 第一部分 信息技术基础知识 21.D 22.B 23.B 24.C 25.B 26.D 27.C 28.D 29.A 30.B 二、填空题 (1) 2 1 0 (2) 1 0 1 (3) 0 1 2 (4) 6 (5) 5 (6) 31 (7) 19 (8) 68 (9) 12345 (10) 123 (11) OVER (12) 5 (13) Y6 (14) Z9 (15) A10 (16) x -1 Or x 1 (17) fx + a * t (18) a2 = a (19) 0 To List1.ListCount - 1 (20) List1.List(i) (21) scor = 0 (22) Mid(Exact, j, 1) = Mid(anw, j, 1) (23) UBound(a) (24) Left - 1 (25) i 1 (26) right = right - 1 (27) ch = Mid(str, i, 1) (28) (29) m = n Mod 2 (30) s = 1 s 2009年（秋）笔试答案 第一部分 信息技术基础知识 21.D 22.B 23.D 24.B 25.A 26.C 27.B 28.D 29.B 30.C 二、填空题 (1) 15 (2) 9 (3) 2 (4) 5 (5) 7 (6) 12 (7) 4 5 9 (8) 5 -1 4 (9) 1 2 (10) 7 (11) 36 (12) 121 (13) 101101 (14) 001110 (15) 011011 (16) t = a1 / a2 (17) a1 = a2 - a1 (18) n 0 (19) st(k + 1) = p (20) i = i + 1 (21) If Left(q, 1) = Mid(st, i, 1) Then n = i - 1 (22) ByVal n As Integer (23) sum1 + n Mod 10 (24) k = 2 (25) k = k + 1 (26) c(1) = a(1) (27) p = p CStr(q) (28) p = (29) Exit For (30) c(i) = n 2010年（春）笔试答案 第一部分 信息技术基础知识 21.A 22.C 23.B 24.A 25.C 26.C 27.B 28.C 29.C 30.A 二、填空题 (1) 1 (2) 5 (3) 5 (4) 2 3 (5) 3 7 (6) 15 (7) 7 (8) 30 (9) 7 (10) 588 (11) 11 (12) 739 (13) ETME (14) EM (15) SSCLA (16) -t * (2 * n - 3) / (2 * n - 1) [(-1) ^ (n - 1) / (2 * n - 1)] (17) Abs(t) eps (18) fj(a, CStr(i)) (19) j 6 (20) Exit Function (21) a(n) = s (22) Len(s1) - Len(s2) (23) String(n, 0) s2 (24) add(n1, n2, c) s3 (25) CStr(c) s3 (26) c = (x + y + c) \ 10 (27) Mid(CStr(n), i, 1) (28) a(p) = 1 (29) f = True (30) Exit Function 2010年（秋）笔试答案 第一部分 信息技术基础知识 21.A 22.B 23.B 24.D 25.C 26.B 27.B 28.A 29.D 30.C 二、填空题 (1) 5 (2) 14 (3) 13 (4) 1 (5) 9 (6) 7 (7) 31 (8) 63 (9) 63 (10) dccd (11) 2 (12) c (13) 21 (14) 54 (15) 5 (16) k = 1 (17) -t * x ^ 2 / ((2 * k - 1) * (2 * k)) (18) Abs(t) eps (19) sum = 0 (20) sum + j (21) st k + (22) Val(Right(st, 2)) + 160 (23) d Mod 16 (24) d2h = q d2h (25) d = 0 (26) max = cs(i) (27) cs(i) = max (28) j n (29) Preserve shu(n) , cs(n) (30) js