江苏VB2010年3月考试真题

  • 格式:doc
  • 大小:60.00 KB
  • 文档页数:18

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.关于窗体,以下叙述中正确的是 21 。

A.仅当窗体上没有可以获得焦点的控件时,窗体才可以获得焦点B.一个VB工程只能从某个指定的窗体开始启动C.只有窗体可以作为控件的容器D.Unload Me和End语句的效果总是等同的22.若a为长整型变量,则执行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后,在窗体上看到的是22 。

A.4 2 3B.2 3 2C.4 3 2D.2 2 323.数学表达式对应的visual Basic表达式是 23 。

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^2D.Cos(30)/(4*y+Log(x))+e^224.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是24 。

A.-8B.-7C.-6D.-525.以下说法中,错误的是 25 。

A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小B.ReDim语句只能出现在过程中c.使用ReDim语句重新定义的动态数组,只能比原数组大D.使用ReDim语句可以对动态数组的所有元素进行初始化26.下列关于菜单的说法中,错误的是. 26 。

A.可以为菜单项选定快捷键B.若在"标题"文本框中键入连字符(一),则可在菜单的两个菜单命令项之间加一条分隔线C.除了Click事件之外,菜单项还可以响应其他事件D.菜单编辑器的"名称"文本框用于输入菜单项的名称27.以下有关过程中形式参数的描述中,错误的是 27 。

A.函数过程可以没有形式参数B.事件过程一定没有形式参数C.形参数组只能按地址与实参数组结合D.窗体与控件也可以作为过程的参数28.以下表达式中,可以表示"A和B之一大于0"的是 28 。

①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0A.①③ B.③④ C.②④ D.①②④29.设变量A为长整型,则下面不能正常执行的语句是29 。

A.A=32768*2 B.A=2*1.5*16384C.A=16384*2 D.A=190^230.以下有关滚动条控件(ScrollBar)的说法中错误的是30 。

A.只能在设计时设置Max与Min属性值B.Value属性返回滚动条内滑块当前所处位置的值C.拖动滚动条内滑块时,将触发滚动条的Scroll事件D.单击滚动箭头时,将触发滚动条的Change事件二:填空题1.执行下面的程序后,A(1,4)的值是_____,A(2,3)的值是_______,A(3,2)的值是Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(4, 4) As Integer, ub As IntegerDim i As Integer, j As Integer, n As Integerub = UBound(a, 1)n = 0For i = ub To 1 Step -1For j = 1 To ub + 1 - in = n + 1a(j, j + i - 1) = nNext jNext iFor i = ub To 2 Step -1For j = ub To i Step -1a(j, j - i + 1) = a(5 - j, 4 - j + i)Next jNext iFor i = 1 To ubFor j = 1 To ubPicture1.Print a(i, j);Next jPicture1.PrintNext iEnd Sub2.在InputBox函数对话框中输入4(或直接单击”确定”按钮)窗体显示的第一行内容__(4)___,第二行是__(5)___,第四行是__(6)___Option Explicitprivate Sub command1_Click()dim days as integerDays=InputBox("输入正整数",4)print fun(days)End Subprivate function fun(d as integer) as integerfun=1elsefun=2*fun(D-1)+1print D;funend ifEnd Function3窗体显示的第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__private sub command1_Click()Dim i as integer, k as integerFor i=1 to 5k=fun(i)+Iprint knext iprint iEnd SubFunction Fun(N as integer) as IntegerStatic M as integerDim j as integerM=M+NN=N+1J=J+2Fun=Fun+JNext JFun=Fun+NEnd Function4.窗体显示的第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____Option ExplicitPrivate Sub Command1_Click()Dim S as String,N as IntegerS="3AB"N=14Print Convert(S,N)End SubPrivate Function Convert(S As string,N as Integer) as LongDim St as string, L as Integer, I as integerL=Len(s)Do while L>=1st=Left(s,1)if st>"9" thenst=Asc(st)-55end ifCovert=Convert+Val(st)*N^(L-1)print Val(st)*N^(L-1)L=L-1s=Right(S,L)LoopEnd Function5.窗体显示的第一行是__(13)___,第二行是__(14)____,第三行是___(15)__Option ExplicitPrivate Sub Command1_Click()Dim s as string, k as integer, ch() as stringDim P as string,i as integers=Ucase("Meet me after the class.")For i=1 to Len(s)If Mid(s,i,1)<="Z" and Mid(s,i,1)>="A" thenp=p & Mid(s,i,1)ElseIf p<>"" thenk=k+1Redim Preserve ch(k)ch(k)=pp=""End ifNext iFor i=1 to Ubound(ch)if len(ch(i))<=2 thenCall move_c(ch(i),1)elseCall move_c(ch(i),2)end ifprint ch(i)next iEnd SUbPrivate Sub Move_c(s as string, k as integer)Dim i as integer, j as integer, p as string*1 For i=1 to kp=Right(s,1)For j=Len(s)-1 to 1 step -1Mid(s,j+1,1)=Mid(s,j,1)Next js=p & Right(s,Len(s)-1)next iEnd Sub6.下面的程序是求的近似值,当第n项的绝对值小于10^-5时终止计算=1-1/3+1/5-1/7+…(-1) option explicitPrivate Sub Command1_Click()dim n as long, s as single, t as single, pi as single Const eps=0.00001n=1t=1s=0dos=s+tn=n+1t=___(16)______Loop Until __(17)______pi=s*4Label1.Caption ="的近似值为:"End Sub7.下面程序的功能是,找出满足以下条件的三位整数,不含数字0,且任意交换数字位置所得到的数,均能被6整除Option explicitPrivate sub Command1_Click()dim i as integer, j as integer, k as integer, st as stringDim a(6) as integerFor i=100 to 999if ______(18)_________ thenFor j=1 to 6if a(j) Mod 6<>0 then Exit ForNext jif______(19)________THenst=st & str(i)k=k+1if k mod 3 =0 then st=st & vbcrlfEnd ifEnd ifNext IText1=stEnd SubPrivate Function fj(a() as integer, s as string) as BooleanDim n as Integer, i as integer, j as integerif Instr(s,"0")<>0 then___(20)___end ifFor i=1 to 3For j=1 to 2n=n+1____(21)___s=Left(s,1) & Right(s,1) & Mid(s,2,1)Next js=Right(s,1) & left(s,2)Next ifj=TrueEnd Function8.下面程序的功能是求两个特大整数之和,由于vb中能够表示的整数大小有一定限制,所以必须用新的方法求特大整数之和,本程序将特大整数使用字符类型进行处理,其中函数add用于求两个1位整数之和,参数c用于保存进位,注意,求和前需首先将两个整数按位对齐option explicitprivate Sub command1_Click()Dim s1 as string, s2 as string, s3 as stringdim i as integer, n1 as integer, n2 as integerdim c as integer, n as integers1=text1 : s2=Text2n=______22_____if sgn(n)>0 thens2=________23__________elseif Sgn(N)<0 thens1=String(Abs(n),"0") & s1end ifFor i=len(s1) to 1 step -1n1=Val(Mid(s1,i,1))n2=Val(Mid(s2,i,1))s3=_______(24)________Next iif c<>0 then s3=________(25)________Text3=s3End SubPrivate Function Add(x as integer, y as integer, c as Integer) as stringAdd=Cstr((x+y+c) Mod 10)_________(26)________End Function9.Option ExplicitPrivate Sub Command1_Click()dim i as long,i2 as long, flag as BooleanDim a(0 to 9) as integer, b(0 to 9) as integerFor i=100000 to 160000Call Validate(i,a,flag)if flag theni2=i*6call Validate(i2,b,flag)if flag and Compare(a,b) thenList1.AddItem i & " " & i2End ifEnd ifNext iend subPrivate Sub validate(n as long, a() as Integer, f as Boolean)dim p as integer, i as integerErase af=falsefor i=1 to len(cstr(N))p=___(27)___if a(p)=1 thenexit subelsea(p)=1end ifnext i___(29) f=trueEnd SubPrivate Function Compare(a() as integer, b() as integer) as Booleandim j as integercompare=falsefor j=1 to Ubound(a)if a(j)<>b(j) then____(30)____exit functionEnd ifnext jCompare=trueEnd Function2010春江苏省计算机等级考试vb试题参考答案以下答案仅供参考1.D2.B3.C4.B5.A6.D7.C8.B 9.D 10.D 11.D 12.B 13.B14.B 15.C 16.A 17.B 18.C 19.C20.A21.A 22.B 23.B 24.A 25.C 26.C 27.B28.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)(-1)^(n+1)/(2*n-1)(17)ABS(t)<0.00001 (18)fj(a,cstr(i)) (19)j>6或j>=7 (20)Exit Function (21)a(n)=val(s)(22)len(s1)-len(s2) (23)string(Abs(n),"0") & s2(24)Add(n1,n2,c) & s3 (25)c & s3 (26)c=(x+y+c)\10(27) Mid(n,i,1) (28)Exit Sub (29) f=true (30)Exit Function。