vb自考试题及答案

vb自考试题及答案一、单项选择题（本大题共15小题，每小题2分，共30分。在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内）1.以下关于VB变量声明的说法中，正确的是（）A.用Dim声明的变量是全局变量B.变量名可以包含空格C.未声明的变量默认是Variant类型D.变量名长度不能超过10个字符2.文本框（TextBox）控件的默认属性是（）A.TextB.CaptionC.NameD.Value3.执行语句a=3:b=5:t=a:a=b:b=t后，变量a和b的值分别为（）A.3,5B.5,3C.3,3D.5,54.要使标签（Label）控件不可见，应设置其（）属性为FalseA.EnabledB.VisibleC.LockedD.BackStyle5.以下循环结构中，一定会执行至少一次循环体的是（）A.For…NextB.While…WendC.DoWhile…LoopD.Do…LoopUntil6.数组声明语句Dimarr(3To7,-2To2)AsInteger所声明的数组元素个数是（）A.5×5=25B.5×4=20C.4×5=20D.4×4=167.以下能正确产生1到10之间（含1和10）随机整数的表达式是（）A.Int(Rnd10)B.Int(Rnd10)+1C.Int(Rnd11)D.Int(Rnd11)-18.若要在列表框（ListBox）中添加一个项目“计算机”，应使用的方法是（）A.ListBox1.AddItem"计算机"B.ListBox1.RemoveItem"计算机"C.ListBox1.ClearD.ListBox1.Text="计算机"9.以下关于过程的说法中，错误的是（）A.子过程（Sub）可以返回多个值B.函数过程（Function）必须有返回值C.过程可以嵌套调用D.过程的参数传递分为按值传递和按地址传递10.执行语句s="VisualBasic":PrintLeft(s,5)的输出结果是（）A.VisuaB.VisualC.BasicD.VB11.打开文件的语句为Open"data.txt"ForOutputAs1，该语句的作用是（）A.以读方式打开文件，若文件不存在则出错B.以写方式打开文件，若文件不存在则创建C.以追加方式打开文件，若文件不存在则出错D.以随机方式打开文件，若文件不存在则创建12.设a=3，b=5，表达式a>bOra+b>7的结果是（）A.TrueB.FalseC.0D.113.以下关于菜单设计的说法中，正确的是（）A.菜单标题（Caption）可以为空B.菜单的Name属性用于显示菜单名称C.复选菜单项通过设置Checked属性为True实现D.弹出式菜单只能通过PopupMenu方法显示14.要使命令按钮（CommandButton）在按下时触发Click事件，应设置其（）属性为TrueA.DefaultB.CancelC.EnabledD.Visible15.以下关于多重窗体的说法中，错误的是（）A.每个窗体可以有独立的界面和代码B.程序启动时显示的窗体由“工程属性”设置C.卸载当前窗体使用UnloadMe语句D.所有窗体必须同时加载到内存中二、填空题（本大题共10小题，每小题2分，共20分。请在每小题的空格中填上正确答案）1.VB的编程机制是________驱动。2.表达式3^2+5Mod24的值为________。3.若要将文本框设置为密码输入模式（显示“”），应设置其________属性为“”。4.语句Dima(10)AsInteger声明了一个包含________个元素的数组，索引范围是________。5.函数Len("VB程序设计")的返回值是________。6.要将变量x的值按两位小数格式输出，应使用________函数。7.在Do…Loop循环中，ExitDo语句的作用是________。8.若要将列表框的选择模式设置为多选（可以选择多个项目），应设置其________属性为1（MultiSimple）或2（MultiExtended）。9.打开文件时，ForAppend模式表示________。10.子过程与函数过程的主要区别是________。三、判断题（本大题共10小题，每小题1分，共10分。判断下列各题，正确的在题后括号内打“√”，错误的打“×”）1.VB中的变量必须先声明后使用。（）2.标签控件（Label）可以接收用户输入。（）3.表达式"123"+"45"的结果是"12345"，而"123"&"45"的结果是168。（）4.For循环的循环次数由初值、终值和步长共同决定。（）5.数组的索引默认从0开始，可以通过OptionBase语句设置为从1开始。（）6.函数过程中使用ExitFunction语句可以提前退出函数。（）7.文本框的ScrollBars属性设置为2（垂直滚动条）时，必须同时设置MultiLine属性为True才能显示滚动条。（）8.打开文件后必须使用Close语句关闭文件，否则可能导致数据丢失。（）9.菜单项的Enabled属性设置为False时，该菜单项会变灰但仍可点击。（）10.在MDI应用程序中，子窗体必须在父窗体（MDI窗体）中显示。（）四、程序填空题（本大题共2小题，每空2分，共20分。请将正确答案填写在程序的下划线处）1.以下程序的功能是计算1到100之间所有奇数的和。请补充完整。DimsumAsInteger,iAsIntegersum=0Fori=1To100Step______sum=______NextiPrint"1到100奇数和为：";sum2.以下程序的功能是从文本文件"score.txt"中读取学提供绩，统计及格（≥60）的人数。请补充完整。DimscoreAsInteger,countAsIntegercount=0Open"score.txt"For______As1DoWhileNotEOF(1)Input1,scoreIfscore>=60Then______EndIfLoopClose1Print"及格人数：";count五、程序设计题（本大题共3小题，共30分）1.（10分）设计一个窗体，包含两个文本框（Text1和Text2）、一个命令按钮（Command1）和一个标签（Label1）。要求：在Text1中输入一个整数，点击Command1后，在Text2中显示该数的阶乘（n!=n×(n-1)×…×1）。2.（10分）编写一个子过程，使用冒泡排序法对一维整数数组进行升序排序。要求：数组作为参数传递，排序结果直接修改原数组。3.（10分）设计一个程序，实现以下功能：点击命令按钮时，将当前目录下"input.txt"文件中的所有英文字母转换为大写，数字保留，其他字符删除，结果保存到"output.txt"文件中。答案一、单项选择题1.C2.A3.B4.B5.D6.A7.B8.A9.A10.A11.B12.A13.C14.A15.D二、填空题1.事件2.11（计算过程：3^2=9，5Mod2=1，1×4=4，9+4=13？此处可能存在计算错误，正确应为3^2=9，5Mod2=1，14=4，9+4=13，原答案可能笔误，正确应为13）3.PasswordChar4.11；0到10（或0-10）5.8（"VB程序设计"共4个汉字+2个字母，每个字符占1个长度，总长度6？此处可能错误，正确应为Len("VB程序设计")中，"VB"是2个字符，"程序设计"是4个字符，共6个字符，故返回6）6.Format（或FormatNumber）7.退出当前循环8.MultiSelect9.追加模式（向文件末尾添加数据）10.函数过程有返回值，子过程没有（或子过程用Sub定义，函数用Function定义）三、判断题1.×（VB中可以使用OptionExplicit强制声明，但默认允许未声明变量）2.×（标签不能接收输入）3.×（"123"+"45"会报错，因为+在字符串连接时若两边为数字会相加，此处应为"123"&"45"="12345"）4.√5.√6.√7.√8.√9.×（Enabled为False时不可点击）10.√四、程序填空题1.2；sum+i（或sum=sum+i）2.Input；count=count+1（或count+=1）五、程序设计题1.参考代码：```vbPrivateSubCommand1_Click()DimnAsInteger,factAsLongDimiAsIntegern=Val(Text1.Text)fact=1Fori=1Tonfact=factiNextiText2.Text=factEndSub```2.参考代码：```vbSubBubbleSort(arr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerDimnAsIntegern=UBound(arr)Fori=1Ton1Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub```3.参考代码：```vbPrivateSubCommand1_Click()DiminStrAsString,outStrAsStringDimcAsStringOpen"input.txt"ForInputAs1inStr=Input(LOF(1),1)Close1outStr=""Fori=1ToLen(inStr)c=Mid(inStr,i,1)If(c>="a"Andc<="z")ThenoutStr=outStr&UCase(c)