VB笔试模拟试卷211(题后含答案及解析)

VB笔试模拟试卷211(题后含答案及解析)题型有：1.选择题2.填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。1．以下程序运行后，输出结果是()。a=1:b=2:c=3a=a+b:b=b+c:c=b+aIfa＜＞3Orb＜＞3Thena=b-a:b=c-a:c=b+aEndIfPrinta+b+cA．16B．3C．6D．8正确答案：A2．在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PrivateSubCommand1_Click()a$=“softwareandhardware”b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是()。A．hardwareB．softwareC．hardwareD．1正确答案：C3．窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为()。PrivateSubCommand1_Click()DimAAsInteger,BAsIntegerText1.SelStart=2Text1.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)PrintA*BEndSubA．68B．115C．170D．1170正确答案：C4．以下能正确定义数据类型TelBook的代码是()。A．TypeTelBookNameAsString*10TelNumAsIntegerEndTypeB．TypeTelBookNameAsString*10TelNumAsIntegerEndTelBookC．TypeTelBookNameString*10TelNumInteger．EndTypeTelBookD．TypedefTelBookNameString*10TelNumIntegerEndType正确答案：A5．单击命令按钮时，下列程序段的执行结果为()。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m\10EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12;y=34CallProcl(x,y)Printx;yEndSubA．1234B．234C．23D．123正确答案：B6．单击命令按钮时，下列程序代码的执行结果为()。PrivateFunctionPickMid(xStrAsString)AsStingDimtempStrAsStringDimstrLenAsIntegerTempStr=““StrLen=Len(xStr)i=1DoWhilei＜=strLen/2tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)i=i+1LoopPickMid=tempStrEndFunctionPrivateSubCommand1_Click()DimFirstStrAsStringFirstStr=“abcdef”PrintPickMid(FirstStr)EndSubA．abcdefB．afbecdC．fedcbaD．defabc正确答案：B7．下面的过程定义语句中合法的是()。A．SubProcl(ByValn())B．SubProcl(n)AsIntegerC．FunctionProcl(Procl)D．FunctionProcl(ByValn)正确答案：D8．单击命令按钮时，下列程序段的执行结果为()。PrivateSubCommand1_Click()DimFirstStrAsStringFirstStr=“abcdef”PrintPickMid(FirstStr)EndSubPrivateFunctionPickMid(xStrAsString)AsStringDimtempStrAsString,strLenAsIntegerTempStr=““strLen=Len(xStr)i=1DoWhilei＜=strLen/2tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)i=i+1LoopPickMid=tempStrEndFuncfionA．abcdefB．fedC．fedcbaD．defabc正确答案：B9．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是()。A．4B．5C．6D．7正确答案：B10．在窗体上画一个名称为Command1的命令按钮，编写如下程序：PrivateSubCommand1_Click()Printp1(3,7)EndSubPublicFunctionp1(xAsSingle,nAsInteger)AsSingleIfn=0Thenp1=1ElseIfnMod2=1Thenp1=x*x+nElsep1=x*x-nEndIfEndIfEndFunction程序运行后，单击该命令按钮，屏幕上显示的结果是()。A．2B．1C．0D．16正确答案：D11．设有如下程序：PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox(“请输入一个整数”)DoWhiled＞0Ifd＞cThenc=c+1EndIfd=InputBox(“请输入一个整数”)LoopPrintc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是()。A．12B．11C．10D．9正确答案：D12．设有如下通用过程：PublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextFunarr,nText1.Text=Str(n)EndSub程序运行后，单击命令按钮，则在文本框中显示的内容是()。A．30B．25C．20D．15正确答案：A13．在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：PrivateSubForm_Load0List1.AddItem”Item1”List1.AddItem”Item2”Lis1.AddItem”Irem3”EndSubPrivateSubCommand1_Click()List1.List(List1.ListCount)=“AAAA”EndSub程序运行后，单击命令按钮，其结果为()。A．把字符串“AAAA”添加到列表框中，但位置不能确定B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C．把列表框中原有的最后一项改为“AAAA”D．把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)正确答案：B14．假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是()。A．PrivateSubCommand1_Click()CommonDialog1.DialogTitle=“NewTitle”CommonDialog1．ShowPrinterEndSubB．PrivateSubCommand1_Click()CommonDialog1.DialogTitle=“NewTitle”CommonDialog1.ShowFontEndSubC．PrivateSubCommand1_Click()CommonDialog1.DialogTitle=“NewTitle”CommonDialog1.ShowOpenEndSubD．PrivateSubCommand1.Click()CommonDialog1.DialogTitle=“NewTitle”CommonDialog1.ShowColorEndSub正确答案：C15．有如下程序：Form1.ClsForr=35To85Step25Circle(300,240),rNextr单击窗体后，窗体上显示的是()。A．3个相交圆B．3个同心不相交圆C．4个同心不相交圆D．2个同心不相交圆正确答案：B16．下面程序段的运行结果是()。PrivateSubForm_Click()ForI=3to1step-1PrintSpc(10-I)；Forj=1to2*I-1print”*”;NextjPrintNextIEndSubA．*********B．*********C．*********D．*********正确答案：A17．下面程序运行时，单击窗体后，窗体上显示的结果是()。PrivateSubForm_ClickDimIAsIntegerDimsumAsLongDimt1AsLongt1=1:sum=0For1=1To3t1=t1*Isum=sum+t1NextIPrintsumEndSubA．3B．9C．5D．6正确答案：B18．按照“后进先出”原则组织数据的数据结构是（）。A．队列B．栈C．双向链表D．二叉树正确答案：B19．通用对话框中能打开“颜色对话框”的方法是（）。A．ShowOpenB．ShowColorC．ShowSaveD．ShowPrinter正确答案：B20．“对象”是计算机系统运行的（）。A．程序单位B．逻辑单位C．物理实体D．基本实体正确答案：D21．对已在窗体中控件的操作不正确的是（）。A．单击控件外部空白处，可把活动控件变为不活动控件B．双击控件内部，可激活代码窗口C．双击控件内部，可把活动控件变为不活动控件D．拖动活动控件四周的控制小方块可缩放控件正确答案：C22．在数据库系统中，用户所见的数据模式为（）。A．概念模式B．外模式C．内模式D．物理模式正确答案：B23．下面表达式中，（）的运算结果与其他三个不同。A．Exp(-3.5)B．Int(-3.5)+0.5C．-3.5D．Sgn(-3.5)-2.5正确答案：A24．以下说法中正确的是（）。A．任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器B．只有当某个窗体为活动窗体时，才能打开菜单编辑器C．任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器D．只有当代码窗口为活动窗口时，才能打开菜单编辑器正确答案：B25．以下叙述中正确的是（）。A．组合框包含了列表框的功能B．列表框包含了组合框的功能C．列表框和组合框的功能无相近之处D．列表框和组合框的功能完全相同正确答案：A26．系统符号常量的定义可以通过（）获得。A．对象浏览器B．代码窗口C．属性窗口D．工具箱正确答案：A27．以下关系表达式中，其值为False的是（）。A．ABC＞”AbC”B．the＜＞”they”C．VISUAL=UCase(“Visual”)D．Integer＞”Int”正确答案：A28．表达式Str(Len”123’))+Str(77.7)的值是（）。A．377.7B．377.7C．80.7D．12377.7正确答案：B29．在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（）。A．text(.txt)|(*.txt)B．文本文件(.txt)|(.txt)C．text(.txt)||(*.txt)D．text(.txt)(*.txt)正确答案：A30．关于过程调用正确的是（）。A．过程要用Call语句调用B．Sub过程一定要用Call语句调用C．过程都可以用赋值语句的形式调用D．只要写上过程名并给出实参就能调用过程正确答案：D31．在VisualBasic工程中，可以作为“启动对象”的程序是（）。A．任何窗体或标准模块B．任何窗体或过程C．SubMain过程或其他任何模块D．SubMain过程或任何窗体正确答案：D32．设a=2，b=4，c=6，下列表达式的值为真的是（）。A．a＞bAndc＜aB．a＞bOrc＜aC．a＞bXorc＜aD．a＞bEqvc＜a正确答案：D33．引用列表框(List1)最后一个数据项应使用（）。A．List1.List(List1.ListCount)B．List1.List(List.ListCount-1)C．List1.List(ListCount)D．List1.List(ListCount-1)正确答案：B34．下面选项中，不能使控件得到焦点的操作是（）。A．在程序运行期间，用鼠标单击对象B．在程序运行期间，用快捷键选择对象C．在程序运行期间，用Tab键D．在程序运行期间，用Enter键正确答案：D填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。35．设有命令按钮Command1的单击事件过程，代码如下，请填空。PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=iNextForEacharrItem______aIfarrItemMod7=0ThenPrintarrItem；Ifarritem＞90ThenExitForNextEndSub正确答案：In解析：本题考查了ForEach…Next语句。与For…Next类似，但For，Each…Next专门用于数组或对象“集合”，其一般格式为：ForEach成员In数组循环体[ExitFor]……Next[成员]36．在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。PrivateSubCommand1_Click()Open”c:\test.dat”For______As#1Fori=1toLen(Text1.text)print#1，mid(Text1.Text,i,1)NextClose#iEndSub正确答案：output37．下面程序运行后，窗体中显示______。PrivateSubCommand1_Click)()a$=“*”：b$=“$”Fork=1To3X$=String$(Len(a$)+k,b$)PrintX$：NextPrintEndSub正确答案：$$$$$$$$$38．假定在工程文件中有一个标准模块，其中定义了如下记录类型：TypeBooksNameAsString*10TelNuinAsString*20EndType要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。PrivateSubCommand1_Clickk()DimBAsBooksopen”c:\person.txt”ForoutputAs#1B.Name=InputBox(“请输入姓名”)B.TelNum=InputBox(“请输入电话号码”)write#1，______close#1EndSub正确答案：Get。解析：随机访问模式中文件的写操作使用Put命令，Put命令是将一个记录变量的内容写入所打开的磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用Get命令，Get命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。39．下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1To10an(i%)=______Nextmax=an(1)Fori%=2to10ifan(i%)＞maxthenmax=an(i%)EndIfNextPrintmaxEndSub正确答案：Int(