江苏05秋笔试及答案

《江苏05秋笔试及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏05秋笔试及答案第二部分VB程序设计一、选择题21．以下所列的8个控件中，具有Caption属性的有个。CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）A．5B．4C．3D．222．执行下面语句后，Len函数值最大的是。DimIAAsInteger,BAsSingle,SAsString*5,ChAsStringIA=32767:B=23.5:S=”A”:C

2、h=”abcd”A．Len(IA)B．Len(B)C．Len(S)D．Len(Ch)23．假设变量Lng为长整形变量，下面不能正常执行的语句是。A．Lng=16384*2B．Lng=4*0.5*16384C．Lng=190^2D．32768*224．数学表达式对应的正确VisualBasic表达式为。A．-b+Sqr(b*b-4*a*c)/2*aB．-b+Sqr(b*b-4*a*c)/(2*a)C．(-b+Sqr(b*b-4*a*c))/(2*a)D．(-b+Sqr(b*b-4*a*c))/2*a25．设Mys1,My

3、s2均为字符串型变量，Mys1=”VisualBasic”,Mys2=”b”,则下面关系表达式中结果为的是。A．Len(Mys1)<>2*InStr(Mys1,”1”)B．Mod(Mys1,8,1)>Mys2C．Chr(98)&Right(Mys1,4)=”Basic”D．InStr(Left(Mys1,6),”a”)+60

4、0)AsInteger④StaticA(10)AsIntegerA．①②B．②③C．③④D．①④27．设A=7,B=4,C=6,，则表达式AMod3+B^3/C5的值为。A．1B．2C．3D．出错28．下列说法中，错误的是。A．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭B．在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁C．可以用不同的文件号同时打开一个随机文件D．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除29．程序中有两个过程PrivateSu

5、bFun1(SAsString)和PrivateSubFun2(a()AsString6)，在调用过程中用DimSt(6)AsString6定义了一个字符串数组。下面调用语句中正确的是。①CallFun1(St(3))②CallFun2(St)③CallFun1(St)④CallFun2(St(6))A．①②B．①③C．②③D．②④30．DrawStyle属性用于设置图形方法输出的线型，它受属性的限制。A．FillStyleB．FillColorC．BorderStyleD．DrawWidth二、填空题1．若窗体有列表

6、框，则List1.List(List1.ListIndex)的值等于List1的__Text___属性值。2．执行下面的程序，当单击Command1时，列表框List1的第2列表项内容是3，第4列表项内容是_15_，第5列表项内容是28。PrivateSubCommand1＿Click（）DimIAsInteger，jAsIntegerForI=1To10j=I+jList1.AddItemjNextIForI=1To4List1.RemoveItemList1.ListCount-INextIEndSub3．运行下面

7、的程序，当单击Command1时，窗体上显示的第一行内容是DCB，第三行内容是D，第四行内容是3。PrivateSubCommand1＿Click（）PrintText（3）EndSubPrivateFunctionText（tAsInteger）AsIntegerDimiAsIntegerIft＞=1ThenCallTest（t-1）Fori=3TotStep-1PrintChr（Asc（“A”）+i）；NextiPrintEndifTest=tEndFunction 4．运行下面的程序，当单击窗体时，窗体上显示的第

8、一行内容是108，第三行内容是52，第四行内容是12-10。DimxAsInteger，yAsIntegerPrivateSubForm＿Click（）DimaAsInteger，bAsIntegerA=5：b=3Callsub1（a，b）Printa，bPrintx，yEndsubPrivateSubsub1（ByValmAsI