1． B
2． C G B C A B
3． C
4． C F
5． B
6． 12个
7． 12个
8． Dim A(1 to 5,-2 to 6) as string
9． B
10． (1) I,J (2) I,I (3) I,5-I
11． (1) A(I,J)=-1 (2) A(I,J)=0 (3) A(I,J);
12． (1) 100 (2) 10 (3) 10 (4) (I-1)*10+J
13． (1) I>=J (2) I<J (3) Print
14． C
15． 错题
16． A
17． 错题
18． C(正确答案：11 3)
19． A
20． B
21． C
22． C
23． D
24． 20
25
30
35
40
25.
26
27. B
28. 过程中 Redim
29. （1） Dim X( ) (2) X(20)
30. 0 0 0 0 0 12 14 16 18 20
31. 同30题
32. D
33. B
34. Text1.Text & Label1(index).Caption
35. (1) X<A(1) or X>A(10)
(2) A(I)=X
(3) 9
(4) “数据没找到”
36. (1) Command1(index).Caption
(2) Index
(3) Val(Text1(I).Text)>y
(4) Val(Text1(I).Text)<y
(5) Val(Text1(I).Text)
(6) y/4
(7) y+Val(Text1(I).Text)
(8) Str(y)
37. (1) Y0<=Y(I)
(2) Y(I+1)
(3) Text1.Text
38. (1) col=1
(2) a(I,j)
(3) col=j
(4) (k,j)
(5) (I-1)*6+j-1
(6) find=0
39. (1) Redim A(N-1)
(2) P>N
(3) P
(4) D
40. (1) A( )
(2) N
(3) i+1
(4) A(J)
(5) T
41. (1) For I=1 to 100
(2) 4
(3) For i=1 to 4
(4) “S(”;I;”)=”;S(I);
42. (1) Redim a(n,n)
(2) 1 to Fix((n+1)/2)
(3) a(j,k)=i
(4) Print
43. (1) Int(RND*99)+1
(2) in arr
(3) sum+Val(x)
(4) x
44. D
45. 语法错误 运行错误 逻辑错误 逻辑错误
46． 请见课本Page 119
47． 本地窗口 监视窗口 立即窗口
48． (1) 将J=1:k=5 修改为: J=1:k=10
(2) 将k=k+1 修改为：k=k-1
