欢迎来到天天文库
浏览记录
ID:19888484
大小:107.50 KB
页数:12页
时间:2018-10-07
《江苏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”)+604、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.程序中有两个过程PrivateSu5、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
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
此文档下载收益归作者所有