还剩46页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
全国计算机等级考试二级笔试试卷VisualBasic语言程序设计考试时间90分钟,满分100分二00二年八月
一、选择题每题2分,共70分下列各题A、B、C、D四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分1在设计阶段,当双击窗体上的某个控件时,所打开的窗口是A工程资源管理器窗口B工具箱窗口C代码窗口D属性窗口2以下叙述中正确的是A窗体的Name属性指定窗体的名称,用来标识一个窗体B窗体的Name属性的值是显示在窗体标题栏中的文本C可以在运行期间改变对象的Name属性的值D对象的Name属性值可以为空3刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是A单选按钮B图片框C通用对话框D文本框4设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是ATextDate=#1/1/2002#BTestDate=#“1/1/2002”#CTextDate=date“1/1/2002”DTestDate=Format“m/d/yy”“1/1/2002”5设有如下声明DimXAsInteger如果SgnX的值为-1,则X的值是A整数B大于0的整数C等于0的整数D小于0的数6在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序PrivateSubCommand1_ClickStaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintXYEndSub程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为A1516B156C1515D567设a=3b=5,则以下表达式值为真的是Aa=bAndb10BabOrb0Ca0Eqvb0D-3+5aAndb08设有语句x=InputBox“输入数值”,“0”,“示例”程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是A变量X的值是数值10B在InputBox对话框标题栏中显示的是“示例”C0是默认值D变量X的值是字符串“10”9从键盘上输入两个字符串,分别保存在变量str
1、str2中确定第二个字符串在第一个字符串中起始位置的函数是ALeftBMidCStringDInstr10设a=“VisualBasic”,下面使b=“Basic”的语句是Ab=Lefta812Bb=Mida85Cb=Rigtha55Db=Lefta8511以下能够触发文本框Change事件的操作是A文本框失去焦点B文本框获得焦点C设置文本框的焦点D改变文本框的内容12在窗体上有一个文本框控件,名称为TxtTime一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间程序为PrivateSubTimer1_TxtTime.text=TimeEndSub在下划线上应填入的内容是AEnabledBVisibleCIntervalDTimer13在窗体上画两个单选按钮,名称分别为Option
1、Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中窗体外观如下图,则能够实现上述要求的语句序列是AOption
1.value=TrueBOption
1.Value=TrueCheck
1.Value=FalseCheck
1.Value=TrueCOption
2.Value=FalseDOption
1.Value=TrueCheck
1.Value=TrueCheck
1.Value=114为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是AValueBDefaultCCancelDEnabled15在窗体上画一个命令按钮,名称为Command1然后编写如下程序PrivateSubCommand1_ClickForI=1To4ForJ=0To1PrintChr$65+I;NextJPrintNextIEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是ABBBACBDAACCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD16图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是AAutosizeBStretchCAutoRedrawDAppearance17在窗体上画两个名称分别为Text
1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickDimxAsIntegernAsIntegerx=1n=0DoWhilex20x=x*3n=n+1LoopText
1.Text=StrxText
2.Text=StrnEndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别是A15和1B27和3C195和3D600和418在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickDimiAsIntegernAsIntegerForI=0To50i=i+3n=n+1Ifi10ThenxitforNextText
1.Text=StrnEndSub程序运行后,单击命令按钮,在文本框中显示的值是A2B3D4D519在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickDimarray11010AsIntegerDimijAsIntegerFori=1To3Forj=2To4array1ij=i+jNextjNextIText
1.Text=array123+array134EndSub程序运行后,单击命令按钮,在文本框中显示的值是A12B13C14D152020 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序PrivateSubCommand1_ClickDimiAsIntegerjAsIntegerDima1010AsIntegerFori=1To3Forj=1To3aij=i-1*3+jPrintaij;NextjPrintNextjEndSub程序运行后,单击命令按钮,窗体上显示的是A123B234C147D12324634525845636945636978921设有如下程序OptionBase0PrivateSubForm_ClickDimaDimiAsIntegera=Array123456789Fori=0To3Printa5-i;NextEndSub程序运行后,单击窗体,则在窗体上显示的是A4321B5432C6543D765422下列叙述中正确的是A在窗体的Form_Load事件过程中定义的变量是全局变量B局部变量的作用域可以超出所定义的过程C在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程D在调用过程时,所有局部变量被系统初始化为0或空字符串23在窗体上画一个命令按钮,名称为Command1程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0能够正确实现上述功能的代码是APrivateSubCommand1_Clickx=InputBox“请输入整数”a=F1ValxPrintaEndSub FunctionF1ByRefbAsIntegerIfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionBPrivateSubCommand1_Clickx=InputBox“请输入整数”a=F1ValxPrintaEndSub FunctionF1ByRefbAsIntegerIfbMod2=0ThenF1=0ElseF1=1EndIfEndFunctionCPrivateSubCommand1_Clickx=InputBox“请输入整数”F1ValxPrintaEndSub FunctionF1ByRefbAsIntegerIfbMod2=0ThenF1=1ElseF1=0EndIfEndFunctionDPrivateSubCommand1_Clickx=InputBox“请输入整数”F1ValxPrintaEndSub FunctionF1ByRefbAsIntegerIfbMod2=0ThenReturn0ElseReturn1EndIfEndFunction24在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序PrivateSubCommand1_ClickDimxyzAsIntegerx=5y=7z=0Text
1.text=“”CallP1xyzText
1.Text=StrxEndSubSubP1ByValaAsIntegerByValbAsIntegercAsIntegerc=a+bEndSub程序运行后,如果单击命令按钮,则在文本框中显示的内容是A0B12CStrzD没有显示25以下叙述中错误的是A如果过程被定义为Static类型,则该过程中的局部变量都是Static类型BSub过程中不能嵌套定义Sub过程CSub过程中可以嵌套调用Sub过程D事件过程可以像通用过程一样由用户定义过程名26以下叙述中错误的是A在KeyUp和KeyDown事件过程中,从键盘上输入A或a被视作相同的字母即具有相同的KeyCodeB在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字具有不同的KeyCodeCKeyPress事件中不能识别键盘上某个键的按下与释放DKeyPress事件中可以识别键盘上某个键的按下与释放27以下叙述中错误的是A在同一窗体的菜单项中,不允许出现标题相同的菜单项B在菜单的标题栏中,“”所引导的字母指明了访问该菜单项的访问键C程序运行过程中,可以重新设置菜单的Visible属性D弹出式菜单也在菜单编辑器中定义28设在菜单编辑器中定义了一个菜单项,名为menu1为了在运行时隐藏该菜单项,应使用的语句是Amenu
1.Enabled=TrueBMunu
1.Enabled=FalseCMenu
1.Visible=TrueDMenu
1.Visible=False29以下叙述中错误的是A在程序运行时,通用对话框控件是不可见的B在同一个程序中,用不同的方法如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用C调用通用对话框控件的ShowOpen方法,可以直接打开在该通用对话框中指定的文件D调用通用对话框控件的ShowColor方法,可以打开颜色对话框30在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件即.txt文件,则正确的描述格式是A“text.txt|*.txt”B“文本文件.txt|.txt”C“text.txt||*.txt”D“text.txt*.txt”31以下叙述中错误的是A一个工程中只能有一个SubMain过程B窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C窗体的Hide方法和Unload方法的作用完全相同D若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体32以下叙述中错误的是A一个工程中可以包含多个窗体文件B在一个窗体文件中用Private定义的通用过程能被其他窗体调用C在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D全局变量必须在标准模块中定义33设在工程中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录下列能够完成该操作的事件过程是APrivateSubCommand1_ClickDimBAsBooksOpen“c:\Person.txt”ForOutputAs#1B.Name=InputBox“输入姓名”B.TelNum=InputBox“输入电话号码”Write#1B.NameB.TelNumClose#1EndSubBPrivateSubCommand1_ClickDimBAsBooksOpen“c:\Person.txt”ForInputAs#1B.Name=InputBox“输入姓名”B.TelNum=InputBox“输入电话号码”Print#1B.NameB.TelNumClose#1EndSubCPrivateSubCommand1_ClickDimBAsBooksOpen“c:\Person.txt”ForOutputAs#1B.Name=InputBox“输入姓名”B.TelNum=InputBox“输入电话号码”Write#1BClose#1EndSubDPrivateSubCommand1_ClickOpen“c:\Person.txt”ForInputAs#1Name=InputBox“输入姓名”TelNum=InputBox“输入电话号码”Print#1NameTelNumClose#1EndSub34以下叙述中正确的是A一个记录中所包含的各个元素的数据类型必须相同B随机文件中每个记录的长度是固定的COpen命令的作用是打开一个已经存在的文件D使用Input#语句可以从随机文件中读取数据35目录列表框的Path属性的作用是A显示当前驱动器或指定驱动器上的目录结构B显示当前驱动器或指定驱动器上的某目录下的文件名C显示根目录下的文件名D显示该路径下的文件
二、填空题每空2分,共40分)请将每空的正确答案写在答题卡1至15的横线上,答在试卷上不得分1在窗体上画两个标签,其名称分别为Label1和Label2Caption属性分别为“数值”及空白;然后画一个名称为Hscoll1的水平滚动条,其Min的值为0,Max的值为100程序运行后,如果单击滚动条两端的箭头,则在标签Lable2中显示滚动条的值,如图所示请在
[1]和
[2]处填入适当的内容,将程序补充完整 PrivateSubHScroll1_
[1]Labl
2.Caption=HScroll
1.
[2]EndSub2在窗体上画一个名称为Command
1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label
1、Label
2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按纽的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”程序运行后,在Text
1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4,程序运行情况如图所示请在
[3]、
[4]和
[5]处填入适当的内容,将程序补充完整 PrivateSubCommand1_ClickFori=0To3If
[3]=Truethenopt=Option1i.CaptionEndIfNextSelectCase
[4]Case”+”Result=ValText
1.Text+ValText
2.TextCase”-”Result=ValText
1.Text-ValText
2.TextCase”*”Result=ValText.Text*ValText
2.TextCase”/”Result=ValText
1.Text/ValText
2.TextEndSelect
[5]=ResultEndSub3在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框程序运行后,Command1为禁用灰色当向文框中输入任何字符时,命令按钮Command1变为可用请在
[6]处填入适当的内容,将程序补充完整PrivateSubForm_LoadCommand
1.Enabled=FalseEndSubPrivateSubText1_
[6]Command
1.Enabled=TrueEndSub4在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空Form
1.
[7]Pmenu5以下程序的功能是从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数请在
[8]和
[9]处填入适当的内容,将程序补充完整PrivateSubForm_ClickDimxAsSingleamaxAsSingleaminAsSinglex=InputBox“Enterascore”amax=xamin=xDoWhile
[8]IfxamaxThenAmax=xEndIfIf
[9]ThenAmin=xEndIfx=InputBox“Enterascore”LoopPrint”Max=”;amax”Min=”;aminEndSub6在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程PrivateSubForm_LoadText
1.Text=”计算机”EndSubPrivateSubText1_ChangePicture
1.Print“等级考试”EndSub程序运行后,在文本框中显示的内容是
[10],而在图片框中显示的内容是
[11]7在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序FunctionMxAsIntegeryAsIntegerAsIntegerM=IIfxyxyEndFunctionPrivateSubcommand1_ClickDimaAsIntegerbAsIntegera=100b=200PrintMabEndSub程序运行后,单击命令按钮,输出结果为
[12]8为了改变计时器控件的时间间隔,应该修改该控件的
[13]属性9在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框程序运行后,在列表框中添加若干列表项当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图所示请在
[14]和
[15]处填入适当的内容将程序补充完整PrivateSubForm_loadList
1.AddItem”北京”List
1.AddItem”上海”List
1.AddItem”湖北”EndSubPrivateSub
[14]Label
1.Caption=
[15]EndSub 评分标准和参考答案
1、
一、 选择题(1—20每小题2分,21—30每小题2分,共70分)1 C2 A3 C4 A5 D6 B7 B8 D9 D10 B11 D12 D13 D14 C15 A16 B17 B18 C19 A20 D21 C22 C23 B24 B25 C26 D27 A28 D29 C30 A31 C32 B33 A34 B35 A
二、填空题每空2分共20分【1】Change【2】Value【3】Optioni.Value【4】opt【5】Label
4.Caption或Form
1.Label
4.Caption或Me.Label
4.Caption或Command
1.Parent_Label
4.Caption【6】Change【7】PopupMenu【8】x=0【9】xamin或x=aminx或amin=x【10】计算机【11】等级考试【12】200【13】Interval【14】List1_DblClick或Form
1.List1_DblClick或Me.list1_DblClick【15】List
1.Text或List1或Form
1.List
1.Text或Me.List
1.Text或Form
1.List1或Me.List1 2003-1-全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间120分钟,满分100分)
一、选择题(1—20每小题2分,21—30每小题2分,共70分)下列各题A、B、C、D四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分11 以下不能在“工程资源管理器”窗口中列出的文件类型是A.basB.resC.frmD.ocx22 以下关于窗体的描述中,错误的是A执行UnloadForm1语句后,窗体Form1消失,但仍在内存中B窗体的Load事件在加载窗体时发生C当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止D窗体的Height、Width属性用于设置窗体的高和宽33 下列可作为VisualBasic变量名的是A)A#AB)4AC)xyDconstA44 设有如下的记录类型TypeStudentNumberAsStringNameAsStringAgeAsIntegerEndType则正确引用该记录类型变量的代码是AStudent.name=张红BDimsAsStudents.name=张红CDimsAsTypeStudentDDimsAsTypes.name=张红s.name=张红55 函数Stringnstr的功能是A把数值型数据转换为字符串B返回由n个字符组成的字符串C从字符串中取出n个字符D从字符串中第n个字符的位置开始取子字符串66 将数学表达式Cos2a+b+5e2写成VisualBasic的表达式,其正确的形式是ACosa+b^2+5*exp2BCos^2a+b+5*exp2CCosa+b^2+5*ln2DCos^2a+b+5*ln277 在窗体上画一个命令按钮,名称为Command1单击命令按钮时,执行如下事件过程:PrivateSubCommand1_Clicka$=softwareandhardwareb$=Righta$8c$=Mida$18MsgBoxa$b$c$1EndSub则在弹出的信息框的标题栏中显示的信息是AsoftwareandhardwarBsoftwareChardwareD188 执行如下语句a=InputBoxTodayTomorrowYesterdayDaybeforeyesterday5将显示一个输入对话框,在对话框的输入区中显示的信息是ATodayBTomorrowCYesterdayDDaybeforeYesterday99 表示滚动条控件取值范围最大值的属性是AMaxBLargeChangeCValueDMax-Min1010 在窗体上画一个名称为List1的列表框,一个名称为Label1的标签列表框中显示若干城市的名称当单击列表框中的某个城市名时,在标签中显示选中城市的名称下列能正确实现上述功能的程序是APrivateSubList1_ClickBPrivateSubList1_ChilkLabel
1.Caption=List
1.ListIndexLabel
1.Name=List
1.ListIndexEndSubEndSubCPrivateSubList1_clickDPrivateSubList1_ClickLabel
1.Name=List
1.TextLabel
1.Caption=List
1.TextEndSubEndSub1111 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Clickx=0n=InputBoxFori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是A)3B)4C)5D)61212 以下关于菜单的叙述中,错误的是A在程序运行过程中可以增加或减少菜单项B如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少1313 在窗体上画三个单选按钮,组成一个名为chkOption的控件数组用于标识各个控件数组元素的参数是ATagBIndexCListIndexDName1414 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程OptionBase0PrivateSubCommand1_ClickDimcityAsVariantCity=Array北京,上海,天津,重庆Printcity1EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A)空白B错误提示C北京D上海1515 假定有以下函数过程FunctionFunSAsStringAsStringDims1AsStringFori=1ToLenSs1=UCaseMidSi1+s1NextiFun=s1EndFunction在窗体上画一个命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickDimStr1AsStringStr2AsStringStr1=InputBox请输入一个字符串Str2=FunStr1PrintStr2EndSub程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上输出结果为A)abcdefgB)ABCDEFGC)gfedcbaD)GEFDCBA1616 设有语句Openc:\Test.DatForOutputAs#1则以下错误的叙述是A)该语句打开C盘根目录下一个已存在的文件Test.DatB)该语句在C盘根目录下建立一个名为Test.Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后,就可以通过Print#语句向文件Test.Dat中写入信息1717 以下叙述中错误的是A)用Shell函数可以调用能够在Windows下运行的应用程序B)用Shell函数可以调用可执行文件,也可以调用VisualBasic的内部函数C)调用Shell函数的格式应为变量名=Shell……D)用Shell函数不能执行DOS命令1818 以下关于过程及过程参数的描述中,错误的是A过程的参数可以是控件名称B用数组作为过程的参数时,使用的是“传地址”方式C只有函数过程能够将过程中处理的信息传回到调用的程序中D窗体可以作为过程的参数1919 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程PrivateSubTxtA_KeyPresskeyasciiasinteger……EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是A单击鼠标B双击文本框C鼠标滑过文本框D按下键盘上的某个键2020 目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的路径B)显示当前驱动器或指定驱动器上的某目录下的文件名C)显示根目录下的文件名D)只显示当前路径下的文件2121 假设有如下事件过程PrivateSubForm_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleIfButton=2ThenPopupMenupopFormEndIfEndSub则以下描述中错误的是A该过程的功能是弹出一个菜单BpopForm是在菜单编辑器中定义的弹出式菜单的名称C参数X、Y指明鼠标的当前位置DButton=2表示按下的是鼠标左键2222 以下能够正确计算n!的程序是APrivateSubCommand1_Clickn=5:x=1Dox=x*ii=i+1LoopWhileinPrintxEndSubBPrivateSubCommand1_Clickn=5:x=1:i=1Dox=x*ii=i+1LoopWhileinPrintxEndSubCPrivateSubCommand1_Clickn=5:x=1:i=1Dox=x*ii=i+1LoopWhilei=nPrintxEndSubDPrivateSubCommand1_Clickn=5:x=1:i=1Dox=x*ii=i+1LoopWhileinPrintxEndSub2323 在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label
1、Label2的标签,然后编写如下程序代码PrivateXAsIntegerPrivateSubCommand1_ClickX=5:Y=3CallProcXYLabel
1.Caption=XLabel
2.caption=YEndSub PrivateSubprocByValaAsIntegerByValbAsIntegerX=a*aY=b+bEndSub程序运行后,单击命令按钮,则两个标签中显示的内容分别是A)5和3B)25和3C)25和6D)5和62424 有窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:PrivateSubCommand1_Clicks=0Fori=1To15x=2*i-1IfxMod3=0Thens=s+1NextiLabel
1.Caption=sEndSub程序运行后,单击命令按钮,则标签中显示的内容是A1B5C27D452525 在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label
1、Label
2、Label3的标签,然后编写如下代码PrivatexAsIntegerPrivateSubCommand1_ClickStaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel
1.caption=xLabel
2.caption=yLabel
3.caption=zEndSub运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是A101010B303030C303010D1030302626 设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程PrivateSubCommand1_ClickStaticbAsVariantb=Array13579……EndSub此过程的功能是把数组b中的5个数逆序存放(即排列为97531)为实现此功能,省略号处的程序段应该是AFori=0to5-1\2tmp=bibi=b5-i-1b5-i-1=tmpNextBFori=0to5tmp=bibi=b5-i-1b5-i-1=tmpNextCFori=0to5\2tmp=bibi=b5-i-1b5-i-1=tmpNextDFori=0to5\2tmp=bibi=b5-i-1b5-i-1=tmpNext2727 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label
1、Label2,标题分别为空白和“共有文件”的标签编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量如图所示 能够正确实现上述功能的程序是APrivateSubDir1_ChangeFile.Path=Dir
1.PathEndSubPrivateSubDrive1_ChangeDir
1.Path=Drivel.DriveLabel
1.Caption=File
1.ListCountEndSubBPrivateSubDir1_ChangeFile.Path=Dir
1.PathEndSubPrivateSubDrive1_ChangeDir
1.Path=Drivel.DriveLabel
1.Caption=File
1.listEndSubCPrivateSubDir1_ChangeFile
1.Path=Dir
1.PathLabel
1.Caption=File
1.ListCountEndSubPrivateSubDrive1_ChangeDir
1.Path=Drivel.DriveLabel
1.Caption=File
1.ListCountEndSubDPrivateSubDir1_ChangeFile.Path=Dir
1.PathLabel
1.Caption=File
1.ListEndSubPrivateSubDrive1_ChangeDir
1.Path=Drivel.DriveLabel
1.Caption=File
1.ListEndSub2828 一个工程中包含两个名称分别为Form
1、Form2的窗体,一个名称md1Func的标准模块假定在Form
1、Form2和mdlFunc中分别建立了自定义过程,其定义格式为Form1中定义的过程PrivateSubfrmFunction1……EndSubForm2中定义的过程PublicSubfrmFunction2……EndSubmdlFunc中定义的过程PublicSubmd1Function……EndSub在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是A)上述三个过程都可以在工程中的任何窗体或模块中被调用B)frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用C)上述三个过程都只能在各自被定义的模块中调用D)只有md1Function过程能够被工程中各个窗体或模块调用2929 窗体上有两个名称分别为Text
1、Text2的文本框,一个名称为Command1的命令按钮运行后的窗体外观如图所示设有如下的类型声明TypePersonnameAsString*8majorAsString*20EndType当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test
29.dat中设文本框中的数据已正确地赋值给Person类型的变量P则能够正确地把数据写入文件的程序段是AOpenc:\Test
29.datForRandomAs#1Put#11pClose#1BOpenc:\Test
29.datForRandomAs#1Get#11pClose#1COpenc:\Test
29.datForRandomAs#1Len=LenpPut#11pClose#1DOpenc:\Test
29.datForRandomAs#1Len=LenpGet#11pClose#13030 在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮要求单击命令按钮时,打开一个保存文件的通用对话框该窗口的标题为“Save”,缺省文件名为“Savefile”,在“文件类型”栏中显示*.txt则能够满足上述要求的程序是APrivateSubCommand1_ClickCommonDialog
1.FileName=SaveFileCommonDialog
1.Filter=AllFiles|*.*|*.txt|*.txt|*.doc|*.docCommonDialog
1.FilterIndex=2CommonDialog
1.DialogTitle=SaveCommonDialog
1.Action=2EndSubBPrivateSubCommand1_ClickCommonDialog
1.FileName=SaveFileCommonDialog
1.Filter=AllFiles|*.*|*.txt|*.txt|*.doc|*.docCommonDialog
1.FilterIndex=1CommonDialog
1.DialogTitle=SaveCommonDialog
1.Action=2EndSubCPrivateSubCommand1_ClickCommonDialog
1.FileName=SaveCommonDialog
1.Filter=AllFiles|*.*|*.txt|*.txt|*.doc|*.docCommonDialog
1.FilterIndex=2CommonDialog
1.DialogTitle=SaveFileCommonDialog
1.Action=2EndSubDPrivateSubCommand1_ClickCommonDialog
1.FileName=SaveFileCommonDialog
1.Filter=AllFiles|*.*|*.txt|*.txt|*.doc|*.docCommonDialog
1.FilterIndex=1CommonDialog
1.DialogTitle=SaveCommonDialog
1.Action=1EndSub
二、填空题每空2分共30分请将每空的正确答案写在答题卡上【1】—【15】序号的横线上答在试卷上不得分11 VisualBasic中有一种控件组合了文本框和列表框的特性,这种控件是【1】 12 VisualBasic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制该问方式13 执行下面的程序段后,变量S的值为【3】S=5Fori=
2.6To
4.9Step
0.6S=S+1Nexti14 为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为【4】15 计时器控件能有规律的以一定时间间隔触发【5】事件,并执行该事件过程中的程序代码16 以下程序的功能是生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和请填空PrivateSubCommand1_ClickFori=1To20x=Int 【6】 *200+100If 【7】 =0ThenPrintxS=S+ 【8】 EndifNextiPrintSum=;SEndSub17 设有如下程序PrivateSubForm_ClickDimaAsIntegerbAsIntegera=20:b=50p1abp2abp3abprinta=;ab=;bEndSubSubp1xAsInteerByValyAsIntegerx=x+10y=y+20EndSubSubp2ByValxAsIntegeryAsIntegerx=x+10y=y+20EndSubSubp3ByValxAsIntegeryAsIntegerx=x+10y=y+20EndSub该程序运行后,单击窗体,则在窗体上显示的内容是a= 【9】 和b= 【10】 18 在窗体上画一个名称为Command1的命令按钮,编写如下事件过程PrivateSubCommand1_ClickDimaAsStringa= 【11】 Fori=1to5PrintSpace6-i;Mid$a6-i2*i-1NextiEndSub程序运行后,单击命令按钮,要求窗体上显示的输出结果为5456345672345678123456789请填空19 在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示;如果存在,则在Lable2中给出提示“输入项已在组合框中”请在【12】、【13】和【14】处将程序补充完整 PrivateSubCombo1_ 【12】 KeyAsciiAsIntegerIfKeyAscii=13ThenFori=0ToCombo
1.ListCount-1IfCombo
1.Text= 【13】 ThenLabel
2.Caption=输入项已在组合框中ExitSubEndifNextiLabel
2.Caption=已成功添加输入项Combo
1. 【14】 Combo
1.TextEndifEndSub110 设有如下程序PrivateSubsearchaAsVariantByValKeyAsVariantIndex%DimI%ForI=LBoundaToUBoundaIfkey=aIThenindex=IExitSubEndifNextIIndex=-1EndSubPrivateSubForm_LoadShowDimbAsVariantDimnAsIntegerb=Array13579111315Callsearchb11nPrintnEndSub程序运行后,输出结果是 【15】 评分标准和参考答案
一、选择题(1—20每小题2分,21—30每小题2分,共70分)1 D2 A3 D4 B5 B6 A7 C8 C9 A10 D11 D12 B13 B14 D15 D16 C17 A18 C19 D20 A21 D22 C23 B24 B25 A26 C27 C28 B29 A30 A
二、填空题每空2分共30分【1】组合框(组合)【6】Rnd或Rndn【11】“123456789”【2】顺序访问方式【7】Xmod5【12】keypress【3】9【8】x【13】Combol.listi【4】Picture
1.Picture=loadpicture“d:\pic\a.jpg”【9】30【14】Additem【5】timer【10】70【15】5 2003年9月-全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间90分钟,满分100分)
一、选择题(1—20每小题2分,21—30每小题3分,共70分)下列各题A、B、C、D四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分1以下叙述中错误的是AVisualBasic是事件驱动型可视化编程工具BVisualBasic应用程序不具有明显的开始和结束语句CVisualBasic工具箱中的所有控件都具有宽度Width和高度Height属性DVisualBasic中控件的某些属性只能在运行时设置2以下叙述中错误的是A在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B以.BAS为扩展名的文件是标准模块文件C窗体文件包含该窗体及其控件的属性D一个工程中可以含有多个标准模块文件3以下叙述中错误的是A双击鼠标可以触发DblCLick事件B窗体或控件的事件的名称可以由编程人员确定C移动鼠标时,会触发MouseMove事件D控件的名称可以由编程人员设定4以下不属于VisualBasic系统的文件类型是A.frmB.batC.vbgD.vbp5以下叙述中错误的是A打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B保存VisualBasic程序时,应分别保存窗体文件及工程文件CVisualBasic应用程序只能以解释方式执行D事件可以由用户引发,也可以由系统引发6以下能正确定义数据类型TelBook的代码是ATypeTelBookBTypeTelBookNameAsString*10NameAsString*10TelNumAsIntegerTelNumAsIntegerEndTypeEndTelBookCTypeTelBookDTypedefTelBookNameString*10NameString*10TelNumIntegerTelNumIntegerEndTypeTelBookEndType7以下声明语句中错误的是AConstvar1=123BDimvar2=‘ABC’CDeflnta-zDStaticvar3AsInteger8设窗体上有一个列表框控件Listl,且其中含有若干列表项则以下能表示当前被选中的列表项内容的是AListl.ListBListl.ListIndexCListl.IndexDListl.Text9程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是AMouseDownBMouseUpCLoadDClick10设a=10b=5c=1执行语句Printabc后,窗体上显示的是ATrueBFalseC1D出错信息11如果要改变窗体的标题,则需要设置的属性是ACaptionBNameCBackColorDBorderStyle12以下能判断是否到达文件尾的函数是ABOFBLOCCLOFDEOF13如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是A如果工种中含有SubMain过程,则程序一定首先执行该过程B不能把标准模块设置为启动模块C用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体D任何时刻最多只有一个窗体是活动窗体14窗体的MouseDown事件过程Form_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle有4个参数,关于这些参数,正确的描述是A通过Button参数判定当前按下的是哪一个鼠标键BShift参数只能用来确定是否按下Shift键CShift参数只能用来确定是否按下Alt和Ctrl键D参数x,y用来设置鼠标当前位置的坐标15设组合框Combol中有3个项目,则以下能删除最后一项的语句是ACombol.RemoveItemTextBCombol.RemoveItem2CCombol.RemoveItem3DCombol.RemoveItemCombol.Listcount16以下关于焦点的叙述中,错误的是A如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B当文本框失去焦点时,触发LostFocus事件C当文本框的Enabled属性为False时,其Tab顺序不起作用CD可以用TabIndex属性改变Tab顺序17如果要在菜单中添加一个分隔线,则应将其Caption属性设置为A=B*CD-18执行语句Open“Tel.dat”ForRandomAs#lLen=50后,对文件Tel.dat中的数据能够执行的操作是A只能写,不能读B只能读,不能写C既可以读,也可以写D不能读,不能写19在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框,然后编写如下事件过程:PrivateSubCommand1_Clickn=Text
1.TextSelectCasenCase1To20x=10Case246x=20CaseIs10x=30Case10x=40EndSelectText
2.Text=xEndSub程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是A10B20C30D4020设有以下循环结构Do循环体LoopWhile条件则以下叙述中错误的是A)若“条件”是一个为0的常数,则一次也不执行循环体B“条件“可以是关系表达式、逻辑表达式或常数C循环体中可以使用ExitDo语句D如果“条件”总是为True,则不停地执行循环体21在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_ClickDimnumAsIntegernum=1DoUntilnum6Printnum;num=num+
2.4LoopEndSub程序运行后,单击命令按钮,则窗体上显示的内容是A
13.
45.8B135C147D无数据输出22在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_ClickDimaAsIntegersAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea=0Prints;aEndSub程序运行后,单击命令按,则窗体上显示的内容是A79B340C97D死循环23设有如下通用过程:PublicFunctionfxAsIntegerDimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_ClickStaticxAsIntegerx=10y=5y=fxPrintx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A105B205C2040D104024设有如下通用过程:PublicSubFunaByValxAsIntegerFori=1To5x=x+aiNextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程PrivateSubCommand1_ClickDimarr5AsVariantFori=1To5arri=iNextn=10CallFunarrnText
1.Text=nEndSub程序运行后,单击命令按钮,则在文本框中显示的内容是A10B15C25D2425在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommand1_Clickd=0c=10x=Array1012213224Fori=1To5IfxicThend=d+xic=xiElsed=d-cEndIfNextiPrintdEndSub程序运行后,如果单击命令按钮,则在窗体上输出的内容为A89B99C23D7726在窗体上画两个滚动条,名称分别为Hscroll
1、Hscroll2;六个标签,名称分别为Labe11、Labe
12、Labe
13、Labe
14、Labe
15、Labe
16、其中标签Labe14~Labe16分别显示“A”、“B”、“A*B”等文字信息,标签Labe
11、Labe12分别显示其右侧的滚动条的数值,Labe13显示A*B的计算结果如图所示。当移动滚动框时,在相应的标签中显示滚动条的值当单击命令按钮“计算”时,对标签Labe
11、Labe12中显示的两个值求积,并将结果显示在Labe13中以下不能实现上述功能的事件过程是APrivateSubCommand1_ClickLabe
13.Caption=StrValLabel
1.Caption*ValLabel
2.CaptionEndSubBprivateSubCommand1_ClickLabe
13.Caption=Hscro1ll.Value*Hscroll
2.ValueEndSubCPrivateSubCommandl_ClickLabel
3.Caption=Hscroll1*Hscroll2EndSubDPrivateSubCommand1_ClickLabel
3.Caption=Hscroll
1.Text*Hscroll
2.TextEndSub27在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_ClickForn=1To20IfnMod30Thenm=m+n\3NextnPrintnEndSub程序运行后,如果单击命令按钮,则窗体上显示的内容是A15B18C21D2428在窗体上画一个名称为Textl的文本框,并编写如下程序:PrivateSubForm_LoadShowTextl.Text=Textl.SetFocusEndSubPrivateSubForm_MouseUPButtonAsIntegerShiftAsIntegerXAsSingleYAsSinglePrint程序设计EndSubPrivateSubTextl_KeyDownKeyCodeAsIntegerShiftAsIntegerPrint“VisualBasic”EndSub程序运行后,如果按“A”键,然后单击窗体,则在窗体上显示的内容是AVisualBasicB程序设计CA程序设计DVisualBasic程序设计29设有如下程序:PrivateSubComandl_ClickDimsumAsDoublexAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值,这个表达式是A1+1/2+2/3+3/4+4/5B1+1/2+2/3+3/4C1/2+2/3+3/4+4/5D1+1/2+1/3+1/4+1/530以下有关数组定义的语句序列中,错误的是AStaticarrl3BDimarr2AsIntegerarrl1=100DimsizeAsIntegerarrl2=HelloPrivateSubCommand2_Clickarrl3=
123.45size=InputBox输入:ReDimarr2size……EndSubCOptionBase1DDimnAsIntegerPrivateSubCommand3_ClickPrivateSubCommand4_ClickDimarr33AsIntegerDimarr4nAsInteger…………EndSubEndSub
二、填空题每空2分,共30分请将每空的正确答案写在答题卡上【1】—【15】序号的横线上,答在试卷上不得分1执行下面的程序段后,i的值为【1】,s的值为【2】s=2Fori=
3.2To
4.9Step
0.8s=s+1Nexti2把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程PrivateSubForm_KeyDownKeyCodeAsIntegerShiftAsIntegerPrintChrKeyCodeEndSubPrivateSubForm_KeyPressKeyAsciiAsIntegerPrintChrKeyAsciiEndSub程序运行后,如果直接按键盘上的“A”键即不按住Shift键,则在窗体上输出的字符分别是【3】和【4】。3在窗体上画一个标签名称为Label1和一个计时器名称为Timer1,然后编写如下几个事件过程:PrivateSubForm_LoadTimer
1.Enabled=FalseTimer
1.Interval=【5】EndSubPrivateSubForm_ClickTimer
1.Enabled=【6】EndSubPrivateSubTimer1_TimerLabel
1.Caption=【7】EndSub程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次见图请填空。4在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为TextlLabel1和Command11,然后编写如下两个事件过程:PrivateSubCommandl_ClickS$=InputBox请输入一个字符串Textl.Text=S$EndSubPrivbueSubTeial_ChangeLabell.Coption=UcaseMidTextl.Text7EndSub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisuaIBasic”,则在标签中显示的内容是【8】。5在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”,“第四个项目”程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表当前的项目数,运行情况如图所示选择“第三个项目”的情况下面是实现上述功能的程序,请填空。PrinteSubCommandl_ChichIfList1ListIndex=【9】ThenList
1.RemoveItem【10】Label
1.Caption=【11】ElseMsgBox请选择要删除的项目EndIfEndSub6设有程序:OptionBase1PrivateSubCommand1_ChickDimarr1MaxasIntegerarrl=Array124357624785486643【12】=arrl1Fori=1To8IfarrliMaxThen【13】NextiPrint最大值是:;MaxEndSub以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值请填空7以下程序的功能是把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Textl中显示出来请填空PrivateSubCommand1_ClickDiminDataAsStringText
1.Text=Open.\smtext
1.txt【14】As#1DoWhile【15】Input#1inDataText
1.Text=Text
1.TextinDataLoopClose#1EndSub 评分标准和参考答案
一、选择题(1—20每小题2分,21—30每小题2分,共70分)31 C32 A33 B34 B35 C36 A37 B38 D39 C40 B41 A42 D43 A44 A45 B46 A47 D48 C49 A50 A51 B52 C53 C54 A55 C56 D57 C58 D59 C60 D
二、填空题每空2分,共30分1〖1〗
5.6 〖2〗 52〖3〗 A 〖4〗 a3〖5〗 1000 〖6〗 True 〖7〗 Time4〖8〗 BASIC5〖9〗 0 〖10〗 List
1.ListIndex 〖11〗 List
1.ListCount6〖12〗 Max 〖13〗 Max = arr1i7〖14〗 For Input 〖15〗 Not EOF1 2004年4月3日---全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间90分钟,满分100分)
一、选择题(1—20每小题2分,21—30每小题3分,共70分)下列各题A、B、C、D四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分1在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickMove500,500EndSub程序运行后,单击命令按钮,执行的操作为A命令按钮移动到距窗体左边界、上边界各500的位置B窗体移动到距屏幕左边界、上边界各500的位置C命令按钮向左、上方向各移动500D窗体向左、上方向各移动5002在窗体上有若干控件,其中有一个名称为Text1的文本框影响Text1的Tab顺序的属性是ATabStopBEnabledCVisibleDTabIndex3以下定义数组或给数组元素赋值的语句中,正确的是 4在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为AFori=0ToList
1.ListCount-1……NextBFori=0ToListCount-1……NextCFori=1ToList
1.listCount……NextDFori=1ToListCount……Next5以下Case语句中错误的是ACase0To10BCaseIs10CCaseIs10AndIs50DCase35Is106以下关于图片框控件的说法中,错误的是A可以通过Print方法在图片框中输出文本B清空图片框控件中图形的方法之一是加载一个空图形C图片框控件可以作为容器使用D用Stretch属性可以自动调整图片框中图形的大小7执行语句s=LenMidVisualBasic16后,s的值是AVisualBBasicC6D118以下叙述中错误的是A下拉式菜单和弹出式菜单都用菜单编辑器建立B在多窗体程序中,每个窗体都可以建立自己的菜单系统C除分隔线外,所有菜单项都能接收Click事件D如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见9在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Clicka=12345PrintFormat$a
000.00EndSub程序运行后,单击命令按钮,窗体上显示的是A
123.45B
12345.00C12345D
00123.4510以下叙述中错误的是A一个工程可以包括多种类型的文件BVisualBasic应用程序既能以编译方式执行,也能以解释方式执行C程序运行后,在内存中只能驻留一个窗体D对于事件驱动型应用程序,每次运行时的执行顺序可以不一样11以下关于函数过程的叙述中,正确的是A函数过程形参的类型与函数返回值的类型没有关系B在函数过程中,过程的返回值可以有多个C当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D如果不指明函数过程参数的类型,则该参数没有数据类型12以下关于变量作用域的叙述中,正确的是A窗体中凡被声明为Private的变量只能在某个指定的过程中使用B全局变量必须在标准模块中声明C模块级变量只能用Private关键字声明DStatic类型变量的作用域是它所在的窗体或模块文件13确定一个控件在窗体上的位置的属性是AWidth和HeightBWidth或HeightCTop和LeftDTop或Left14在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickText
1.Text=VisualMe.Text1=BasicText1=ProgramEndSub程序运行后,如果单击命令按钮,则在文本框中显示的是AVisualBBasicCProgramD出错15以下关系表达式中,其值为False的是AABCAbCBthetheyCVISUAL=UCaseVisualDIntegerInt16语句Print5/4*6\5Mod2的输出结果是A0B 1C2D317在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text
1、Label1和Command1,然后编写如下两个事件过程PrivateSubCommand1_Click strText=InputBox请输入 Text
1.Text=strTextEndSub PrivateSubText1_Change Label
1.Caption=RightTrimText
1.Text3EndSub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是A空BabcdefCabcDdef18在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Clickx=-5IfSgnxThen y=Sgnx^2Else y=SgnxEndIfPrintyEndSub程序运行后,单击命令按钮,窗体上显示的是A-5B25C1D-119一个工程中含有窗体Form
1、Form2和标准模块Model1,如果在Form1中有语句PubilcXAsInteger,在Model1中有语句PubilcYAsInteger,则以下叙述中正确的是A变量X、Y的作用域相同BY的作用域是Model1C在Form1中可以直接使用XD在Form2中可以直接使用X和Y20在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框当改变当前驱动器时,目录列表框应该与之同步改变设置两个控件同步的命令放在一个事件过程中,这个事件过程是A)Drive1_ChangeBDrive1_ClickCDir1_ClickDDir1_Change21在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_ClickDimas=0a=Array1234j=1Fori=4To1Step-1s=s+ai*jj=j*10NextiPrintsEndSub运行上面的程序,单击命令按钮,其输出结果是A4321B1234C34D1222在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入以下能实现该操作的事件过程是APrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii65OrKeyAscii90ThenMsgBox请输入大写字母KeyAscii=0EndIfEndSubBPrivateSubText1_KeyDownKeyCodeAsIntegerShiftAsIntegerIfKeyCode65OrKeyCode90ThenMsgBox请输入大写字母KeyCode=0EndIfEndSubCPrivateSubText1_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleIfAscText
1.Text65OrAscText
1.Text90ThenMsgBox请输入大写字母EndIfEndSubDPrivateSubText1_ChangeIfAscText
1.Text64AndAscText
1.Text91ThenMsgBox请输入大写字母EndIfEndSub23假定在窗体(名称为Form1)的代码窗口中定义如下记录类型PrivateTypeanimalAnimalNameAsString*20AColorAsString*10EndType在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_ClickDimrecAsanimalOpenc:\vbTest.datForRandomAs#1Len=Lenrecrec.animalName=Catrec.aColor=WhitePut#1recClose#1EndSub则以下叙述中正确的是A记录类型animal不能在Form1中定义,必须在标准模块中定义B如果文件c:\vbTest.dat不存在,则Open命令执行失败C由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D语句“Put#1rec”将animal类型的两个数据元素写到文件中24在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程PrivateSubCommand1_Clickn=ValText
1.TextIfn\2=n/2Thenf=f1nElsef=f2nEndIfPrintf;nEndSub PublicFunctionf1ByRefxx=x*xf1=x+xEndFunction PublicFunctionf2ByValxx=x*xf2=x+x+xEndFunction程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是A7236B10836C726D108625在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Clickc=1234c1=TrimStrcFori=1To4Print NextEndSub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为ARightc1iBLeftc1iCMidc1i1DMidc1ii26在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程PrivateSubCommand1_Clickn=ValText
1.TextFori=2TonForj=2TosqriIfiModj=0ThenExitForNextjIfjSqriThenPrintiNextiEndSub该事件过程的功能是A输出n以内的奇数B输出n以内的偶数C输出n以内的素数D输出n以内能被j整除的数27在以下描述中正确的是A标准模块中的任何过程都可以在整个工程范围内被调用B在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程C如果工程中包含SubMain过程,则程序将首先执行该过程D如果工程中不包含SubMain过程,则程序一定首先执行第一个建立的窗体28在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程PrivateFunctionfmAsIntegerIfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_ClickDimiAsIntegers=0Fori=1To5s=s+fiNextPrintsEndSub程序运行后,单击命令按钮,在窗体上显示的是A11B10C9D829在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickDimarray11010AsIntegerDimiAsIntegerjAsIntegerFori=1To3Forj=2To4array1ij=i+jNextjNextiText
1.Text=array123+array134EndSub程序运行后,单击命令按钮,在文本框中显示的值是A15B14C13D1230在窗体上画四个文本框(如图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程 PrivateSubCommand1_ClickForEachTextBoxInText1Text1i=Text1i.Indexi=i+1NextEndSub程序运行后,单击命令按钮,四个文本框中显示的内容分别为A0 1 2 3B1 2 3 4C0 1 3 2D出错信息
二、填空题每空2分,共30分请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分1VisualBasic应用程序中标准模块文件的扩展名是【1】2在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单以下是实现上述功能的程序,请填空PrivateSubForm【2】ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleIfButton=2Then【3】mnuEditEndIfEndSub3为了使计时器控件Timer1每隔
0.5秒触发一次Timer事件,应将Timer1控件的【4】属性设置为【5】 4与数学表达式对应的VisualBasic表达式是【6】 5将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】 6在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示,请填空 PrivateSubOption1_ClickIndexAsIntegerSelectCase【8】Case0a=宋体Case1a=黑体Case2a=楷体_GB2312EndSelecttext
1.【9】 =aEndSub7在窗体上画两个组合框,其名称分别为Combo
1、Combo2,然后画两个标签,名称分别为Label
1、Label2,如图所示,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来请填空 PrivateSubCombo1_ClickCallShowItemCombo1Label1EndSub PrivateSubCombo2_ClickCallShowItemCombo2Label2EndSub PublicSubShowItemtmpComboAsComboBoxtmpLabelAsLabel【10】.Caption=【11】.TextEndSub
(8)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Clickn=5f=1s=0Fori=1Tonf=f【12】s=s+fNextPrintsEndSub该事件过程的功能是计算的值请填空
(9)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序OptionBase1PrivateSubCommand1_ClickDima10AsIntegerFori=1To10ai=iNextCallswap( 【13】 )Fori=1To10Printai;NextEndSubSubswapbAsIntegern=【14】Fori=1Ton/2t=bibi=bnbn=t【15】NextEndSub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a1与a10的值互换,a2与a9的值互换,……,a5与a6的值互换请填空录入邢海景评分标准和参考答案
一、选择题(1—20每小题2分,21—30每小题2分,共70分)61 B62 D63 A64 A65 C66 D67 C68 D69 B70 C71 A72 B73 C74 D75 A76 B77 D78 C79 C80 A81 B82 A83 C84 A85 B86 C87 A88 C89 D90 A
二、填空题每空2分,共30分1〖1〗 .bas 2〖2〗 mousedown 〖3〗 popupmenu3〖4〗 interval 〖5〗 5004〖6〗 cosa+b^2/3*x+55〖7〗 Picture
1.picture=loadpicture“c:\moon.jpg”6〖8〗 index 〖9〗 font 7〖10〗 tmplabel 〖11〗 tmpCombo8〖12〗 *1/i 9〖13〗a 〖14〗uboundb 〖15〗 n=n-1邢海景 2004年9月----全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间90分钟,满分100分)
一、选择题(1~20每小题2分,21~30每小题3分,共70分)下列各题A、B、C、D四个选项中,只有一个选项是正确的,请将正确选项填涂在答题卡相应位置上,答在试卷上不得分1设窗体上有一个文本框,名称为text1程序运行后,要求该文本框只能显示信息,不能接受输入的信息,以下能实现该操作的语句是AText
1.MaxLength=0BText
1.Enabled=FlaseCText
1.Visible=FlaseDText
1.Width=02以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是AForm
1.Name=VisualBasic窗体BForm
1.Title=VisualBasic窗体CForm
1.Caption=VisualBasic窗体DForm
1.Text=VisualBasic窗体”3在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示以下能实现上述操作的程序段是APrivateSubHscroll1_ChangeText
1.Text=HScroll
1.ValueEndSubBPrivateSubHscroll1_ClickText
1.Text=HScroll
1.ValueEndSubCPrivateSubHscroll1_ChangeText
1.Text=Hscroll
1.CaptionEndSubDPrivateSubHscroll1_ClickText
1.Text=Hscroll
1.CaptionEndSub4设菜单中有一个菜单项为Open若要为该菜单命令设置访问键,即按下Alt及字母O时,能够执行Open命令,则在菜单编辑器中设置“Open命令的方式是A把Caption属性设置为OpenB把Caption属性设置为OpenC把Name属性设置为OpenD把Name属性设置为Open5在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Clickx=InputBoxInputSelectCasexCase13Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A分支1B分支2CElse分支D程序出错6以下关于MsgBox的叙述中,错误的是AMsgBox函数返回一个整数B通过MsgBox函数可以设置信息框中图标和按钮的类型CMsgBox语句没有返回值DMsgBox函数的第二个参数是一个整数该参数只能确定对话框中显示的按钮数量7在窗体上画一个名称为Timer1的计时器控件,要求每隔
0.5秒发生一次计时器事件,则以下正确的属性设置语句是ATimer
1.Interval=
0.5BTimer
1.Interval=5CTimer.Interval=50DTimer
1.Interval=5008在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickStaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintxyEndSub程序运行后,连续三次单击Command1按钮后,窗体上显示的是A42B1218C1230D469以下关于多重窗体程序的叙述中,错误的是A用Hide方法不但可以隐藏窗体而且能清除内存中的窗体B在多重窗体程序中各窗体的菜单是彼此独立的C在多重窗体程序中可以根据需要指定启动窗体D对于多重窗体程序需要单独保存每个窗体10以下关于文件的叙述中,错误的是A顺序文件中的记录一个接一个地顺序存放B随机文件中记录的长度是随机的C执行打开文件的命令后自动生成一个文件指针DLOF函数返回给文件分配的字节数11以下叙述中错误的是A事件过程是响应特定事件的一段程序B不同的对象可以具有相同名称的方法C对象的方法是执行指定操作的过程D对象事件的名称可以由编程者指定12以下合法的VisualBasic标识符是AForLoopBConstC9abcDa#x13当一个复选框被选中时,它的Value属性的值是A3B2C1D014表达式5Mod3+3\5*2的值是A0B2C4D615设x=4y=8z=7,以下表达式的值是xyAndNotyzOrzxA1B-1CTrueDFalse16在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Clicka$=VisualBasicPrintString3a$EndSub程序运行后,单击命令按钮,在窗体上显示的内容是AVVVBVisCsicD1117设有如下程序段x=2Fori=1To10Step2x=x+iNext运行以上程序后,x的值是A26B27C38D5718以下叙述中错误的是A在KeyPress事件过程中不能识别键盘的按下与释放B在KeyPress事件过程中不能识别回车键C在KeyDown和KeyUp事件过程中将键盘输入的A和a视作相同的字母D在KeyDown和KeyUp事件过程中从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符19执行如下两条语句,窗体上显示的是a=
9.8596PrintFormata$
0000.00A
0009.86B$
9.86C
9.86D$
0009.8620在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮然后编写如下事件过程PrivateSubCommand1_ClickCommonDialog
1.FileName=CommonDialog
1.Filter=Allfile|*.*|*.Doc|*.Doc|*.Txt|*.TxtCommonDialog
1.FilterIndex=2CommonDialog
1.DialogTitle=VBTestCommonDialog
1.Action=1EndSub对于这个程序,以下叙述中错误的是A该对话框被设置为“打开”对话框B在该对话框中指定的默认文件名为空C该对话框的标题为VBTestD在该对话框中指定的默认文件类型为文本文件*.Txt21设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮窗体Form1的程序代码如下PrivateSubCommand1_ClickDimaAsIntegera=10CallgForm2aEndSubPrivateSubgfAsFormxAsIntegery=IIfx10100-100fShowf.Caption=yEndSub运行以上程序,正确的结果是AForm1的Caption属性值为100BForm2的Caption属性值为-100CForm1的Caption属性值为-100DForm2的Caption属性值为10022在窗体上画一个名称为Command1的命令按钮,并编写如下程序PrivateSubCommand1_ClickDimxAsIntegerStaticyAsIntegerx=10y=5Callf1xyPrintxyEndSubPrivateSubf1ByRefx1AsIntegery1AsIntegerx1=x1+2y1=y1+2EndSub程序运行后,单击命令按钮,在窗体上显示的内容是A105B125C107D12723设有如下程序OptionBase1PrivateSubCommand1_ClickDima10AsIntegerDimnAsIntegern=InputBox输入数据Ifn10ThenCallGetArrayanEndIfEndSubPrivateSubGetArraybAsIntegernAsIntegerDimc10AsIntegerj=0Fori=1Tonbi=CIntRnd*100Ifbi/2=bi\2Thenj=j+1cj=biEndIfNextPrintjEndSub以下叙述中错误的是A数组b中的偶数被保存在数组c中B程序运行结束后在窗体上显示的是c数组中元素的个数CGetArray过程的参数n是按值传送的D如果输入的数据大于10,则窗体上不显示任何显示24在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程OptionBase1PrivateSubCommand1_ClickDimaa=Array12345Fori=1ToUBoundaai=ai+i-1NextPrinta3EndSub程序运行后,单击命令按钮,则在窗体上显示的内容是A4B5C6D725阅读程序OptionBase1PrivateSubForm_ClickDimarrSumSum=0arr=Array135791113151719Fori=1To10Ifarri/3=arri\3ThenSum=Sum+arriEndIfNextiPrintSumEndSub程序运行后,单击窗体,输出结果为A13B14C27D1526在窗体上画一个名称为File1的文件列表框,并编写如下程序PrivateSubFile1_DblClickx=ShellFile
1.FileName1EndSub以下关于该程序的叙述中,错误的是Ax没有实际作用,因此可以将该语句写为CallShellFile1FileName1B双击文件列表框中的文件,将触发该事件过程C要执行的文件的名字通过File
1.FileName指定DFile1中显示的是当前驱动器、当前目录下的文件27在窗体上画一个名称为Label
1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command
2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示编写如下程序PrivateSubForm_LoadTimer
1.Enabled=FalseEndSubPrivateSubCommand1_ClickTimer
1.Enabled=TrueEndSubPrivateSubCommand2_ClickTimer
1.Enabled=FalseEndSubPrivateSubTimer1_TimerIfLabel
1.LeftWidthThenLabel
1.Left=Label
1.Left+20ElseLabel
1.Left=0EndIfEndSub程序运行后单击“开始”按钮,标签在窗体中移动对于这个程序,以下叙述中错误的是A标签的移动方向为自右向左B单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动C当标签全部移出窗体后,将从窗体的另一端出现并重新移动D标签按指定的时间间隔移动28执行以下程序段a$=abbacddcbaFori=6To2Step-2X=MidaiiY=Leftaiz=Rightaiz=UCaseXYzNextiPrintz输出结果为AABABBBABBACABBABADAABAAB29在窗体上画一个名称为Command1的命令按钮,然后编写如下程序OptionBase1PrivateSubCommand1_ClickDimaAsVarianta=Array12345Sum=0Fori=1To5Sum=sum+aiNextix=Sum/5Fori=1To5IfaixThenPrintai;NextiEndSub程序运行后,单击命令按钮,在窗体上显示的内容是A12B123C345D4530假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成Model1代码如下PublicxAsIntegerPublicyAsIntegerSubS1x=1S2EndSubSubS2y=10Form
1.ShowEndShowModel2的代码如下SubMainS1EndSub其中SubMain被设置为启动过程程序运行后,各模块的执行顺序是AForm1→Model1→Model2BModel1→Model2→Form1CModel2→Model1→Form1DModel2→Form1→Model1
二、填空题每空2分,共30分请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分1设有如下程序段a$=BeijingShanghaib$=Mida$InStra$g+1执行上面的程序段后,变量b$的值为【1】2以下程序段的输出结果是【2】num=0Whilenum=2num=num+1WendPrintnum3窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label
1、Caption属性为“Sum”的标签,一个名称为Command
1、标题为“计算”的命令按钮程序运行后,将把1~100之间能够被7整除的数添加到列表框中如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示以下是实现上述功能的程序,请填空PrivateSubForm_LoadFori=1To100IfiMod7=0Then【3】EndIfNextEndSubPrivateSubCommand1_ClickSum=0Fori=0To【4】Sum=Sum+【5】NextText
1.Text=SumEndSub4本程序的功能是利用随机数函数模拟投币,方法是每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面在窗体上有三个文本框,名称分别是Text
1、Text
2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果以下是实现上述功能的程序,请填空PrivateSubCommand1_ClickRandomizen=CIntText
1.Textn1=0n2=0ForI=1To【6】r=IntRnd*2Ifr=【7】Thenn1=n1+1Elsen2=n2+1EndIfNextText
2.Text=n1Text
3.Text=n2EndSub5阅读程序OptionBase1PrivateSubForm_ClickDima3AsIntegerPrint输入的数据是;Fori=1To3ai=InputBox输入数据Printai;NextPrintIfa1a2Thent=a1a1=a2a2=【8】EndIfIfa2a3Thenm=a2ElseIfa1a3Thenm=【9】Elsem=【10】EndIfPrint中间数是;mEndSub程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示请填空6在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2请填空PrivateSubCommand1_ClickSum=0Fori=0To4Sum=Sum+【11】Next【12】=SumEndSub7在窗体上画两个名称分别为Command1和Command
2、标题分别为“初始化”和“求和”的命令按钮程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示请填空OptionBase1Dima32AsIntegerPrivateSubCommand1_ClickFori=1To3Forj=1To2【13】=i+jNextjNextiEndSubPrivateSubCommand2_ClickForj=1To3Fori=1To2s=s+【14】NextiNextjText
1.Text=【15】EndSub 评分标准和参考答案
一、选择题(1—20每小题2分,21—30每小题2分,共70分)91 B92 C93 A94 A95 C96 D97 D98 B99 A100 B101 D102 A103 C104 C105 D106 A107 B108 B109 D110 D111 B112 D113 C114 B115 C116 A117 A118 B119 D120 C
二、填空题每空2分,共30分【1】Shanghai【2】 3【3】list
1.additemi【4】 list
1.listcount-1【5】 list
1.listi【6】 n【7】 1【8】 t【9】 a3【10】 a1【11】 label1i.caption【12】label
2.caption【13】aij【14】aji【15】sADimaAsVarianta=Array12345BDima10AsIntegera=Array12345CDima%10a1=ABCDEDDima3b3AsIntegera0=0a1=1a2=2b=a。