VB模拟题答案(2006.6)

VB模拟题（2006.6）1套题1第一卷客观题第一题：是非题（共10分，每项1分）1.ActiveX部件是可以重复使用的编程代码和数据。AA.对B.错2.窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。AA.对B.错3.每一个控件实质上都是一个微型程序。AA.对B.错4.在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。BA.对B.错5.用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。BA.对B.错6.定义菜单项时，可以不设置分隔线的菜单项控件名称。BA.对B.错7.在事件驱动的应用程序中，代码是按照预定的路径执行的。BA.对B.错8.函数调用时，实际参数与形式参数在数量必须完全一致。AA.对B.错9.每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。AA.对B.错10.通用过程可以放在标准模块中，也可以放在窗体模块中。AA.对B.错第二题、单选题（共45分，每项1.5分）11.要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。CA.ChangB.KeyDownC.ClickD.KeyPress12.InputBox函数的返回值的类型为____B__。A.数值B.字符串C.逻辑值D.日期值13.要想在过程调用后返回两个结果，下面的过程定义语句合法的是___A___。A.SubProc1(ByValn,Byvalm)B.SubProc1(ByValn,m)C.SubProc1(n,Byvalm)D.SubProc1(n,m)14.下面关于打印对话框属性的说法错误的是____C__。A.Copies属性指定打印的份数。B.HDC属性指定分配给打印机的句柄，用来识别对象的设备环境。C.FromPage属性指定要打印文档的页范围。使用该属性时必须把Flags属性设置为1。D.Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max指定允许的最后页码。15.常量2.7856E-6的类型是_B_____。A.整型B.实型C.字符型D.双精度16.Print#1，STR1$中的Print是___A___。A.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令17.使用Publicx声明一个全局的变量时，该语句应放在__D____。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段18.文本框没有__D___属性。A.EnabledB.VisibleC.BackColorD.Caption19.记录长度最大可取的值是__A____字节。A.32767B.32768C.65535D.6553620.下面四项中，_A_____是VB中的数值变量。A.ABCB.E+2C.TrueD.1.35E-221.将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。A.List1.AddItem”China”，0B.List1.AddItem”China”，lC.List1.AddItem0，”China”D.List1.AddItem1，”China”22.下列不能打开菜单编辑器的操作是___D___。A.按Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按Shift+Alt+M23.文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿A＿＿。A.“Hello”将替换掉原来选定的文本B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”24.语句PrintFormat(HELLO,)的输出结果是_B_____。A.HELLOB.helloC.HeD.he25.函数Int(Rnd*11)+10产生的数值的范围是____C__。A.（0,10）B.[10,10]C.[10,20]D.(0,20)26.如果文本框的Enabled属性设为False，则＿A＿＿。A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容27.框架内的所有控件是＿＿A＿。A.随框架一起移动、显示、消失和屏蔽B.不随框架一起移动、显示、消失和屏蔽C.仅随框架一起移动D.仅随框架一起显示和消失28.Integer类型的数据由_B_____字节组成。VB模拟题（2006.6）2A.1B.2C.3D.429.数学表达式xyz的正确VB逻辑表达式是__D____。A.xyAndzB.xyzC.xyAndzD.xyAndyz30.如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是___D___。A.HideB.ShowC.LoadD.Unload31.在下列说法中，正确的是＿＿D＿。A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B.在列表框中不能进行多项选择C.在列表框中能够将项目按字母顺序从大到小排列D.框架也有Click和DblClick事件32.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为__D____。A.Get文件号，记录号，变量名B.Get文件号，变量名，记录号C.Put文件号，变量名，记录号D.Put文件号，记录号，变量名33.按文件的组织方式分为____A__。A.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件34.以下__C____不能作为VB中的变量名。A.Abx45B.P1234C.89TasFFD.xy35.已编译的控件部件的扩展名是＿＿A＿。A..OCXB..VBPC..EXED..CTL36.为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A____。A.自定义类型B.数组C.字符串类型D.变体类型37.表达式Int(23.4)+Round(-35.5)的计算结果为___C___。A.-11B.-12.1C.-13D.-12.538.引用列表框（List1）最后一个数据项应使用＿B＿＿。A.List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-l)39.通过代码在运行时设置属性的语法格式为__B____。A.对象名＝属性.新值B.对象名.属性＝新值C.对象名.新值=属性.新值D.对象名.属性=属性.新值40.在下面选项中，不能完成对顺序文件的读操作的是____D__。A.LineInput#语句B.Input#语句C.Input（）函数D.Get#语句第三题、简单程序（共15分，每项1.5分）41.下列程序段的运行结果。APrivateSubForm_Click()DimMsgHideMsg=”选择‘确定’按钮”MsgBoxMsgShowEndSubA.隐藏窗体，按‘确定’按钮使窗体重现B.隐藏窗体C.显示窗体，按‘确定’按钮使窗体隐藏D.显示窗体42.执行下面程序段后，变量c$的值为___D___。a$=VisualBasicProgrammingb$=Quickc$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)A.VisualBASICProgrammingB.QuickBasicProgrammingC.QUICKBasicProgrammingD.QuickBASICProgramming43.运行下面程序后，在窗体中显示的是__D____。PrivateSubForm_Click()a$=*:b$=$Fork=1To3x$=String$(Len(a$)+k,b$)Printx$;NextkPrintEndSubA.、*********B.*$*$*$C.1*$2*$3*$D.、$$$$$$$$$44.执行下面程序段后，变量a的值为___C___。ForI=1To3Forj=1ToIFork=jTo3a=a+1NextkNextjNextIA.3B.9C.14D.2145.写出如下程序运行结果。DFunctionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1VB模拟题（2006.6）3f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2sum=0ForI=1To3sum=sum+f(a)NextIprintsumEndSubA.12B.16C.20D.2446.以下程序的输出结果是____B__。PrivateSubCommand1_Click()a=1234b$=Str$(a)c=Len(Trim(b))printc;LenB(b)EndSubA.38B.410C.510D.4847.执行下面程序段后，变量x的值为____A__。x=5ForI=1To20step2x=x+I\5NextIA.21B.22C.23D.2448.以下程序的输出结果是__D____。PrivateSubCommand1_Click()a=100Dos=s+aa=a+1LoopUntila100printaEndSubA.100B.120C.201D.10149.以下程序的循环次数是___A___。PrivateSubCommand1_Click()Forj=8To35Step3Printj;NextjEndSubA.10B.9C.27D.2850.下列程序运行后，其结果为__A____。PrivateSubForm_Click()Filename=“c:\testfile.txt”OpenfilenameForOutputAs#1Print#1,“ABCD我是一个学生”Close#1OpenfilenameForInputAs#1MsgBoxInput(8,1)Close#1EndSubA.在通用对话框中显示“ABCD我是一个”B.在通用对话框中显示“ABCD我是”C.在窗体中显示“ABCD我是一个”D.在窗体中显示“ABCD我是”第二卷主观题填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）1.下列程序运行后，能求出20个数中的最大值。请填上适当的内容，将程序补充完整。PrivateSubForm_Activate()RandomizeDimIAsInteger,sslAsInteger,DimttAsIntegerssl=Int(Rnd*51+50)ForI=1To19tt=Rnd*51+50___IFsslttthenssl=tt____NextIPrintPrintsslEndSub2.在C盘根目录下建立一个名为Student.dat的顺序文件。要求用InputBox函数输入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。PrivateSubForm_Load()Open“C:Student.dat”ForOutputAs#1ForI=1to10StuNo=InputBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuSex=InputBox(“请输入性别”)_write#1,____,StuNo,Stuname,StuSexNextIClose#1EndSub3.编写一个求最大公约数的函数，并调用该函数，程序如下：Functiongcd(ByValaAsInteger,ByValbAsInteger)