下载

2下载券

加入VIP
  • 专属下载券
  • 上传内容扩展
  • 资料优先审核
  • 免费资料无限下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 2004年9月全国计算机等级考试二级VB笔试试卷

2004年9月全国计算机等级考试二级VB笔试试卷.doc

2004年9月全国计算机等级考试二级VB笔试试卷

yyffcs
2011-01-28 0人阅读 举报 0 0 0 暂无简介

简介:本文档为《2004年9月全国计算机等级考试二级VB笔试试卷doc》,可适用于考试题库领域

一、选择题(()()每小题分()()每小题分共分)()设窗体上有一个文本框名称为text,程序运行后要求该文本框不能接受键盘输入但能输出信息以下属性设置正确的是:( )。A)textmaxlength=B)textenabled=flaseC)textvisible=flaseD)textwidth=()以下能在窗体Form的标题栏中显示“VisualBasic窗体"的语句是( )。A)FormName="VisualBasic窗体"B)FormTitle="VisualBasic窗体"C)FormCaption="VisualBasic窗体"D)FormText="VisualBasic窗体”()在窗体上画一个名称为Text的文本框然后画一个名称为HScroll的滚动条其Min和Max属性分别为和。程序运行后如果移动滚动框则在文本框中显示滚动条的当前值如图所示: 以下能实现上述操作的程序段是( )。A)PrivateSubHScrollChange()TextText=HScrollvalueEndSubB)PrivateSubHScrollClick()TextText=HScrollvalueEndSubC)PrivateSubHScrollChange()TextText=HScrollCaptionD)PrivateSubHScrollClick()TextText=HScrollCaptionEndSub()设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键即按下Alt及字母O时能够执行"Open"命令则在菜单编辑器中设置“Open"命令的方式是( )。A)把Caption属性设置为OpenB)把Caption属性设置为OpenC)把Name属性设置为OpenD)把Name属性设置为Open()在窗体上画一个名称为Command的命令按钮然后编写如下事件过程:PrivateSubCommandClick()x=InputBox("Input")SelectCasexCase,Print"分支"CaseIs>Print"分支"CaseElsePrint"Else分支"EndSelectEndSub程序运行后如果在输入对话框中输入则窗体上显示的是( )。A)分支B)分支C)Else分支D)程序出错()以下关于MsgBox的叙述中错误的是( )。A)MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第一个参数是一个整数该参数只能确定对话框中显示的按钮数量()在窗体上画一个名称为Timer的计时器控件要求每隔秒发生一次计时器事件则以下正确的属性设置语句是( )。A)TimerInterVal=B)TimerInterval=C)TimerInterval=D)TimerInterval=()在窗体上画一个名称为Command的命令按钮然后编写如下事件过程:PrivateSubCommandClick()StaticxAsIntegerClsFori=Toy=yxx=xNextPrintx,yEndSub程序运行后连续三次单击Command按钮后窗体上显示的是( )。A)B)C)D)()以下关于多重窗体程序的叙述中错误的是( )。A)用Hide方法不但可以隐藏窗体而且能清除内存中的窗体B)在多重窗体程序中各窗体的菜单是彼此独立的C)在多重窗体程序中可以根据需要指定启动窗体D)对于多重窗体程序中而且单独保存每个窗体()以下关于文件的叙述中错误的是( )。A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后自动生成一个文件指针D)LOF函数返回给文件分配的字节数()以下叙述中错误的是( )。A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定()以下合法的VisualBasic标识符是( )。A)ForLoopB)ConstC)abcD)a#x()当一个复选框被选中时它的value属性的值是( )。A)B)C)D)()表达式Mod*的值是( )。A)B)C)D)()设x=,y=,z=以下表达式的值是( )。x<yAnd(Noty>z)Orz<xA)B)C)TrueD)False()在窗体上画一个名称为Command的命令按钮然后编写如下事件过程:PrivateSubCommandClick()a$="VisualBasic"PrintString(,a$)EndSub程序运行后单击命令按钮在窗体上显示的内容是( )。A)VVVB)VisC)sicD)()设有如下程序段:x=Fori=ToStepx=xiNext运行以上程序后x的值是( )。A)B)C)D)()以下叙述中错误的是( )。A)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键C)在KeyDown和KeyUp事件过程中将键盘输入的"A"和"a"视作相同的字母D)在KeyDown和KeyUp事件过程中从大键盘上输入的""和从右侧小键盘上输入的""被视作不同的字符()执行如下两条语句窗体上显示的是( )。a=PrintFormat(a,"$,")A),B)$C)D)$,()在窗体上画一个名称为CommandDialog的通用对话框一个名称为Command的命令按钮。然后编写如下事件过程:PrivateSubCommandClick()CommonDialogFileName=""CommonDialogFilter="Allfile|**|(*Doc)|*Doc|(*Txt)|*Txt"CommonDialogFilterIndex=CommonDialogDialogTitle="VBTest"CommonDialogAction=EndSub对于这个程序以下叙述中错误的是( )。A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为VBTestD)在该对话框中指定的默认文件类型为文本文件(*Txt)()设一个工程由两个窗体组成其名称分别为Form和Form在Form上有一个名称为Command的命令按钮。窗体Form的程序代码如下:PrivateSubCommandClick()DimaAsIntegera=Callg(Form,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x>,,)f,ShowfCaption=yEndSub运行以上程序正确的结果是( )。A)Form的Caption属性值为B)Form的Caption属性值为C)Form的Caption属性值为D)Form的Caption属性值为()在窗体上画一个名称为Command的命令按钮并编写如下程序:PrivateSubCommandClick()DimxAsIntegerStaticyAsIntegerx=y=Callf(x,y)Printx,yEndSubPrivateSubf(ByRefxAsInteger,yAsInteger)x=xy=yEndSub程序运行后单击命令按钮在窗体上显示的内容是( )。A)B)C)D)()设有如下程序OptionBasePrivateSubCommandClick()Dima()AsIntegerDimnAsIntegern=InputBox("输入数据")Ifn<ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc()AsIntegerj=Fori=Tonb(i)=CInt(Rnd()*)Ifb(i)=b(i)Thenj=jc(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是( )。A)数组b中的偶数被保存在数组c中B)程序运行结束后在窗体上显示的是c数组中元素的个数C)GetArray过程的参数n是按值传送的D)如果输入的数据大于则窗体上不显示任何显示()在窗体上画一个名称为Command的命令按钮然后编写如下事件过程:OptionBasePrivateSubCommandClick()Dimaa=Array(,,,,)Fori=ToUBound(a)a(i)=a(i)iNextPrinta()EndSub程序运行后单击命令按钮则在窗体上显示的内容是( )。A)B)C)D)()阅读程序OptionBasePrivateSubFormClick()Dimarr,SumSum=arr=Array(,,,,,,,,,)Fori=ToIfarr(i)=arr(i)ThenSum=Sumarr(i)EndIfNextiPrintSumEndSub程序运行后单击窗体输入结果为( )。A)B)C)D)()在窗体上画一个名称为File的文件列表框并编写如下程序:PrivateSubFileDblClick()x=Shell(FileFileName,)EndSub以下关于该程序的叙述中错误的是( )。A)x没有实际作用因此可以将该语句写为:CallShell(File,FileName,)B)双击文件列表框中的文件将触发该事件过程C)要执行的文件的名字通过FileFileName指定D)File中显示的是当前驱动器、当前目录下的文件()在窗体上画一个名称为Label、标题为“VisualBasic考试”的标签两个名称分别为Command和Command、标题分别为“开始”和“停止”的命令按钮然后画一个名称为Timer的计时器控件并把其Interval属性设置为,如图所示。编写如下程序:PrivateSubFormLoad()TimerEnabled=FalseEndSubPrivateSubCommandClick()TimerEnabled=TrueEndSubPrivateSubTimerTimer()IfLabelLeft<WidthThenLabelLeft=LabelLeftElseLabelLeft=EndIfEndSub程序运行后单击“开始”按钮标签在窗体中移动。对于这个程序以下叙述中错误的是( )。A)标签的移动方向为自右向左B)单击“停止”按钮后再单击“开始”按钮标签从停止的位置继续移动C)当标签全部移出窗体后将从窗体的另一端出现并重新移动D)标签按指定的时间时隔移动()执行以下程序段a$="abbacddcba"Fori=ToStepX=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(XYz)NextiPrintz输出结果为( )。A)ABAB)BBABBAC)ABBABAD)AABAAB()在窗体上画一个名称为Command的命令按钮然后编写如下程序:OptionBasePrivateSubCommandClick()DimaAsVarianta=Array(,,,,)Sum=Fori=ToSum=suma(i)Nextix=SumFori=ToIfa(i)>xThenPrinta(i)NextiEndSub程序运行后单击命令按钮在窗体上显示的内容是( )。A)B)C)D)()假定一个工程由一个窗体文件Form和两个标准模块文件Model及Model组成。Model代码如下:PublicxAsIntegerPublicyAsIntegerSubS()x=SEndSubSubS()y=FormShowEndShowModel的代码如下:SubMain()SEndSub其中SubMain被设置为启动过程。程序运行后各模块的执行顺序是( )。A)Form>Model>ModelB)Model>Model>FormC)Model>Model>FormD)Model>Form>Model二、填空题(每空分共分)    请将每空的正确答案写在答题卡【】~【】序号的横线上答在试卷上不得分。()设有如下程序段:a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g"))执行上面的程序段后变量b$的值为。()以下程序段的输出结果是。num=Whilenum<=num=numWendPrintnum()窗体上有一个名称为List的列表框一个名称为Text的文本框一个名称为Label、Caption属性为“Sum”的标签一个名称为Command、标题为“计算”的命令按钮。程序运行后将把~之间能够被整除的数添加到列表框。如果单击“计算”按钮则对List中的数进行累加求和并在文本框中显示计算结果如图所示。以下是实现上述功能的程序请填空。PrivateSubFormLoad()Fori=ToIfiMod=ThenEndIfNextEndSubPrivateSubCommandClick()Sum=Fori=ToSum=SumNextTextText=SumEndSub()本程序的功能是利用随机数函数模拟投币方法是:每次随机产生一个或的整数相当于一次投币代表正面代表反面。在窗体上有三个文本框名称分别是Text、Text、Text分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数如图所示。程序运行后在文本框Text中输入总次数然后单击“开始”按钮按照输入的次数模拟投币分别统计出现正面、反面的次数并显示结果。以下是实现上述功能的程序请填空。PrivateSubCommandClick()Randomizen=CInt(TextText)n=n=Fori=Tor=Int(Rnd*)Ifr=Thenn=nElsen=nEndIfNextTextText=nTextText=nEndSub()阅读程序:OptionBasePrivateSubFormClick()Dima()AsIntegerPrint"输入的数据是:"Fori=Toa(i)=InputBox("输入数据")Printa(i)NextPrintIfa()<a()Thent=a()a()=a()a()=EndIfIfa()>a()Thenm=a()ElseIfa()>a()Thenm=Elsem=EndIfPrint"中间数是:"mEndSub程序运行后单击窗体在输入对话框中分别输入三个整数程序将输出三个数中的中间数如图所示。请填空。()在窗体上画一个名称为“Command”标题为“计算”的命令按钮再画个标签其中个标签组成名称为Label的控件数组名称为Label的标签用于显示计算结果其Caption属性的初始值为空标签Label的标题为“计算结果”。运行程序时会自动生成个随机数分别显示在标签控件数组的各个标签中如图所示。单击“计算”按钮则将标签数组各元素的值累加然后计算结果显示在Label。请填空。PrivateSubCommandClick()Sum=Fori=ToSum=SumNext=SumEndSub()在窗体上画两个名称分别为Command和Command、标题分别为“初始化”和“求和”的命令按钮。程序运行后如果单击“初始化”命令按钮则对数组a的各元素赋值如果单击“求和”命令按钮则求出数组a的各元素之和并在文本框中显示出来如图所示。请填空。OptionBaseDima(,)AsIntegerPrivateSubCommandClick()Fori=ToForj=To=ijNextjEndSubPrivateSubCommandClick()Forj=ToFori=Tos=sNextiNextjTextText=EndSub

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

评分:

/11

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利