历年江苏省计算机二级考试真题及答案2009-2010

Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer) 'shu数组用于存放A数组中不相同数据的值 'Cs数组用于存放对应不相同数据出现的次数

Dim i As Integer,j As Integer,js As Integer,n As Integer For i=1 To UBound(a) js=1

For j=1 To n '搜索数组a中不相同的数据 If Shu(j)=a(i) Then Exit For Next j

If ___(28)___ Then n=n+1

ReDim ___(29)___ Shu(n)=a(i)

For j=i+1 To UBound(a)

If a(j)=a(i) Then ___(30)___ Next j Cs(n)=js

List1.AddItem a(i) & \ End If Next i End Sub

一 选择题

1.A 2.B 3.D 4.A 5.C 6.C 7.D 8.C 9.C 10.A11.B 12.D 13.B 14.B 15.B16.A 17.D 18.B 19.C 20.D (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*(-1)*x*x/((2*k-1)*(2*k)) (18)Abs(t)>0.000001 (19)sum=0 (20)sum+j (21)st & k & \(22)Val(Right(st,2))+160 或Val(Mid(st,3,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=js+1 405

2010年3月江苏VB考试真题

绝密★ 启用前

2010年春

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试

二级试卷 试卷语种:VB语言

说 明：

1．本试卷包括计算机基础知识部分和程序设计部分，考试时间共12 0分钟； 2．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型；

3．计算机基础知识部分全部是选择题(20分)，程序设计部分分为选择题(1 0 分)和填空题(30分)两种；

4．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选 择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。 每选对一项得1分，不选或选错不得分；

5．填空题用答题纸答题。请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的 相应答题号内，每个答案只占一行，不得换行。每填对一个答案得1分， 不填或填错不得分；

6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是 否填写正确。

7．考试结束时将试卷、答题卡和答题纸放在桌上，不得带走。待监考人员收 毕清点后，方可离场。

第一部分:(公共基础知识) 参见2010春VFP考试试题

第二部分Visual Basic程序设计 .

一、选择题(用答题卡答题，答案依次填在21—30答题号内) 21.关于窗体，以下叙述中正确的是 A 。

A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B.一个VB工程只能从某个指定的窗体开始启动 C.只有窗体可以作为控件的容器

D.Unload Me和End语句的效果总是等同的

22.若a为长整型变量，则执行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后，在窗体上看到的是 A.4 2 3 B.2 3 2 C.4 3 2 D.2 2 3 23.数学表达式

对应的visual Basic表达式是 B 。

A.Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2) B.Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2) C.Cos(30*3.14159/180)/(4*y+Ln(x))+e^2 D.Cos(30)/(4*y+Log(x))+e^2

24.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是 A 。 A.-8 B.-7 C.-6 D.-5 25.以下说法中，错误的是 C 。

A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B.ReDim语句只能出现在过程中

c.使用ReDim语句重新定义的动态数组，只能比原数组大 D.使用ReDim语句可以对动态数组的所有元素进行初始化 26.下列关于菜单的说法中，错误的是. D 。 A.可以为菜单项选定快捷键

B.若在\标题\文本框中键入连字符(一)，则可在菜单的两个菜单命令项之间加一条分隔线

。 C C.除了Click事件之外，菜单项还可以响应其他事件 D.菜单编辑器的\名称\文本框用于输入菜单项的名称 27.以下有关过程中形式参数的描述中，错误的是 B 。 A.函数过程可以没有形式参数 B.事件过程一定没有形式参数 C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程的参数

28.以下表达式中，可以表示\和B之一大于0\的是 C 。

①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0 A．①③ B．③④ C．②④ D．①②④

29．设变量A为长整型，则下面不能正常执行的语句是 C 。 A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2

30．以下有关滚动条控件(ScrollBar)的说法中错误的是 A 。 A．只能在设计时设置Max与Min属性值

B．Value属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的Scroll事件 D．单击滚动箭头时，将触发滚动条的Change事件 二:填空题

1.执行下面的程序后,A(1,4)的值是_____,A(2,3)的值是_______,A(3,2)的值是 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, ub As Integer Dim i As Integer, j As Integer, n As Integer ub = UBound(a, 1) n = 0

For i = ub To 1 Step -1 For j = 1 To ub + 1 - i n = n + 1

a(j, j + i - 1) = n Next j Next i