Visual-Basic选择题(专业基础知识)题库

§2专业基础知识§2.1Visualbasic程序开发环境1.以下关于VB的叙述中，错误的是BA)VB采用事件驱动的编程机制B)如果程序中有Sub_Main过程时，则一定从该过程开始执行C)工程文件中包含多个窗体时，可以指定启动窗体D)VB程序既可以编译执行，也可以解释执行2.在VisualBasic中，不能关闭的窗口是BA)窗体设计器窗口B)工程窗口C)属性窗口D)立即窗口3.VisualBasic集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是(A)。A)主窗口B)属性窗口C)立即窗口D)窗体窗口4.为了用键盘打开菜单和执行菜单命令，第一步应按的键是(A)。A)功能键F10或AltB)Shift＋功能键F4C)Ctrl或功能键F8D)Ctrl＋Alt5.下面操作中，不能正确保存正在编辑的工程的是CA)鼠标右键单击"工程资源管理器窗口"中该工程的图标，在弹出的菜单中选"保存工程"B)单击"文件"菜单，在下拉菜单中选"保存工程"C)单击"工程"菜单，在下拉菜单中选"保存工程"D)6.在VisualBasic标准工具栏中，"菜单编辑器"的图标是CA)B)C)D)7.以下不能作为容器使用的控件是AA)图像框B)框架C)图片框D)窗体8.以下关于VB文件的叙述中，错误的是(B)。A)标准模块文件不属于任何一个窗体B)C)一个工程只有一个工程文件D)一个工程可以有多个窗体文件9.VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是(B)。A).vbpB).basC).vbwD).frm10.类模块文件的扩展名为BA).resB).clsC).vbpD).vbg11.以下叙述中正确的是(C)。A)在属性窗口只能设置窗体的属性B)在属性窗口只能设置控件的属性C)在属性窗口可以设置窗体和控件的属性D)在属性窗口可以设置任何对象的属性12.如果在VisualBasic集成环境中没有打开属性窗口，下列可以打开属性窗口的操作是(D)。A)用鼠标双击窗体的任何部位B)执行"工程"菜单中的"属性窗口"命令C)按Ctrl＋F4键D)按F4键13.在编辑VB应用程序时，如果不小心关闭了属性窗口，则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口，这个按钮的图标是DA)B)C)D)14.下列打开"代码窗口"的操作中错误的是(A)。A)按F4键B)单击"工程资源管理器"窗口中的"查看代码"按钮C)双击已建立好的控件D)执行"视图"菜单中的"代码窗口"命令15.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是(B)。A)B)C)D)16.为了在窗体上画一个文件列表框，应先在工具箱窗口中选中的图标是CA)B)C)D)§2.2对象及其操作1.下面不属于对象基本特点的是BA)标识唯一性B)可复用性C)多态性D)封装性2.以下关于VB对象属性的叙述中，错误的是BA)属性是对象的特征B)对象的所有属性值都可以在属性窗口中设置C)不同对象可以具有同名的属性D)对象的某些属性可以在程序中设置3.以下操作中，不能改变窗体大小的是CA)设计阶段，在"属性"窗口设置相应属性B)运行阶段，用赋值语句修改相应属性C)运行阶段，调用窗体的Show方法D)运行阶段，调用窗体的Move方法4.以下关于事件、事件驱动的叙述中，错误的是(C)。A)事件是可以由窗体或控件识别的操作B)事件可以由用户的动作触发C)一个操作动作只能触发一个事件D)事件可以由系统的某个状态的变化而触发5.在面向对象的程序设计中，可被对象识别的动作称为(B)。A)方法B)事件C)过程D)函数6.以下关于VB特点的叙述中，错误的是(C)。A)VB中一个对象可有多个事件过程B)VB应用程序能以编译方式运行C)VB应用程序从Form_Load事件过程开始执行D)在VB应用程序中往往通过引发某个事件导致对对象的操作7.以下关于VB的叙述中，错误的是(D)。A)VB采用事件驱动方式运行B)VB既能以解释方式运行，也能以编译方式运行C)VB程序代码中，过程的书写顺序与执行顺序无关D)VB中一个对象对应一个事件8.以下关于方法的叙述中，错误的是AA)在调用方法时，对象名称是必不可缺少的B)方法是一种特殊的过程或函数C)不同对象的方法可以同名D)方法可以带有参数9.以下叙述中错误的是(C)。A)VisualBasic是事件驱动型可视化编程工具B)VisualBasic应用程序不具有明显的开始和结束语句C)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D)VisualBasic中控件的某些属性只能在运行时设置10.设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：窗体Form1中的程序如下：DimFlagAsBooleanPrivateSubForm_Load()Flag＝TrueEndSubPrivateSubmnu1_Click(indexAsInteger)IfIndex＝1ThenIfFlag＝TrueThenmnu1(1).Caption＝"隐藏窗体2"Flag＝FalseElsemnu1(1).Caption＝"显示窗体2"Flag＝TrueEndIfEndIfIfIndex＝2ThenEndEndSub关于上述程序，以下叙述中错误的是(D)。A)Index属性的值可以用来区分控件数组元素B)Index为1的菜单项的标题可能会改变C)两个名称均为Mnu1的菜单项构成一个控件数组D)11.设窗体、框架、图片框（PictureBox）、图像框（Image）的名称分别是Form1、Frame1、Picture1、Image1，有下面4条语句：①Form1.Print"VB"②Frame1.Print"VB"③Picture1.Print"VB"④Image1.Print"VB"其中正确的是CA)①和②B)②和③C)①和③D)③和④12.在设计窗体时双击窗体的任何地方，可以打开的窗口是(A)。A)代码窗口B)属性窗口C)工程资源管理器窗口D)工具箱窗口13.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)。A)1B)2C)3D)414.为了使窗体左上角不显示控制框，需设置为False的属性是(C)。A)VisibleB)EnabledC)ControlBoxD)Caption15.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是(A)。A)单击窗体上没有控件的地方B)单击任意一个控件C)双击任意一个控件D)单击属性窗口的标题栏16.设窗体名称为frmTest，为了在程序代码中将窗体的标题改为"等级考试"，其代码应该是AA)frmTest.Caption="等级考试"B)Form1.Caption="等级考试"C)frmTest.Title="等级考试"D)Form1.Title="等级考试"17.为了在运行时能显示窗体左上角的控制框（即系统菜单），应执行的操作是BA)把窗体的ControlBox属性设置为False，其他属性任意B)把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为1到5中的一个数C)把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为0D)把窗体的ControlBox属性设置为Fale，并且把BorderStyle属性设置为1到5中的一个数18.为了通过属性窗口设置窗体的ControlBox属性值，下列正确的操作是DA)直接键入True或FalseB)利用弹出的对话框设置属性值C)选择ControlBox，然后按回车键D)双击ControlBox属性条19.以下关于窗体的叙述中，错误的是AA)执行UnloadForm1语句后，窗体Form1被隐藏，但仍在内存中B)当窗体的Enabled属性为False时，窗体不响应鼠标、键盘的操作C)当窗体的KeyPreview属性为True时，则窗体能优先响应键盘事件D)窗体的Load事件在加载窗体时触发20.对于窗体而言，在运行期间对其值改变无效的属性是DA)CaptionB)EnabledC)AutoRedrawD)BorderStyle21.下列描述中错误的是DA)窗体是对象B)窗体必须有Name属性C)窗体可以拖放和移动D)在设计阶段双击一个控件可以打开属性窗口22.窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。程序代码如下：Dimcolor(3)AsIntegerPrivateSubForm_Load()Callfill(color())EndSubPrivateSubfill(c()AsInteger)Form1.BackColor＝RGB(c(1)，c(2)，c(3))EndSubPrivateSubHSRed_Change()Callfill(color())EndSubPrivateSubHSGreen_Change()Callfill(color())EndSubPrivateSubHSBlue_Change()Callfill(color())EndSub关于以上程序，如下叙述中错误的是(C)。A)color是窗体级整型数组B)改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C)3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败D)fill函数定义中的形式参数是数组型参数23.在程序运行时，下面的叙述中正确的是(C)。A)用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B)用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C)只装入而不显示窗体，也会执行窗体的Form_Load事件过程D)装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程24.设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是(C)。A)Form1_MouseDownB)Win_MouseDownC)Form_MouseDownD)MouseDown_Form125.以下关于窗体的叙述中，错误的是(B)。A)Hide方法能隐藏窗体，但窗体仍在内存中B)使用Show方法显示窗体时，一定触发Load事件C)移动或放大窗体时，会触发Paint事件D)双击窗体时，会触发DblClick事件26.若要把一个窗体从内存中删除，应该使用的方法是AA)UnLoadB)HideC)LoadD)Show27.在程序运行时，不会引发窗体Resize事件的操作是CA)使用了窗体的"还原"按钮B)使用Move方法改变了窗体的大小C)使用Move方法改变了窗体的位置D)通过鼠标拖动边框调整了窗体的大小28.下面不响应键盘事件的对象是DA)窗体B)按钮C)复选框D)标签29.编写如下程序：PrivateSubForm_Click()Print"Welcome！"EndSubPrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"欢迎！"EndSubPrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"热烈欢迎！"EndSub程序运行后，单击窗体，输出结果为(A)。A)欢迎！热烈欢迎！Welcome!B)欢迎！Welcome！热烈欢迎！C)Welcome！欢迎！热烈欢迎！D)Welcome！热烈欢迎！欢迎！30.下列叙述中，错误的是AA)控件数组元素的下标不能重复，且必须是连续的B)控件数组中所有元素的类型必须是相同的C)窗体的Load事件发生在所有因用户操作而引发的事件之前D)一个窗体中，只能有一个命令按钮的Cancel属性被设置为True31.在VisualBasic中，所有标准控件都具有的属性是(B)。A)CaptionB)NameC)TextD)Value32.为了把ActiveX控件加到工具箱中，首先应采取的操作是AA)执行"工程"菜单中的"部件"命令B)执行"视图"菜单中的"工具箱"命令C)执行"工具"菜单中的"选项"命令D)执行"工程"菜单中的"引用"命令33.能够用于标识对象名称的属性是(A)。A)NameB)CaptionC)ValueD)Text34.假定窗体上有一个名称为txtMac的文本框，则执行语句txtMac="MyText"后的结果为BA)把字符串"MyText"存入变量txtMac中B)在文本框txtMac中显示字符串"MyText"C)把文本框txtMac的Name属性设置为MyTextD)把文本框txtMac的Value属性设置为MyText35.VisualBasic为每种控件规定了一个默认属性，在设置默认属性时，不必给出属性名。下列控件中默认属性为Text的控件是BA)框架（Frame）B)组合框（ComboBox）C)标签（Label）D)形状（Shape）36.编写如下程序：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimarr()AsIntegern=InputBox("请输入数值：")ReDimarr(n)Fori=1ToUBound(arr)arr(i)=iNextFori=1ToUBound(arr)\2temp=arr(i)arr(i)=arr(n-i+1)arr(n-i+1)=tempNextFori=1ToUBound(arr)Printarr(i);NextEndSub程序运行后，单击命令按钮Command1，并在输入对话框中输入7，输出结果为AA)7654321B)1234567C)3214765D)432156737.编写如下程序：PrivateSubCommand1_Click()DimaAsInteger,iAsIntegera=2Fori=1To3Printfun_s(a);NextiEndSubFunctionfun_s(aAsInteger)AsIntegerDimbAsIntegerStaticcAsIntegera=a+1b=b+1c=c+1fun_s=a+b+cEndFunction程序运行后，单击命令按钮Command1，输出结果为CA)456B)567C)579D)46838.默认属性是某种控件最常用或最重要的属性，在VisualBasic中设置这样的属性时，不必给出属性名。下列中默认属性不是Value的控件是DA)垂直滚动条（VscrollBar）B)复选框（CheckBox）C)命令按钮（CommandButton）D)列表框（ListBox）39.窗体上有一个名称为Combo1的组合框，引用Combo1中最后一个列表项应使用的表达式是AA)Combo1.List(Combo1.ListCount-1)B)Combo1.List(ListCount)C)Combo1.List(ListCount-1)D)Combo1.List(Combo1.ListCount)40.在窗体上添加"控件"的正确的操作方式是(C)。A)先单击工具箱中的控件图标，再单击窗体上适当位置B)先单击工具箱中的控件图标，再双击窗体上适当位置C)直接双击工具箱中的控件图标，该控件将出现在窗体上D)直接将工具箱中的控件图标拖动到窗体上适当位置41.为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是(A)。A)按住Alt键，不要松开，然后单击每个要选中的控件B)按住Shift键，不要松开，然后单击每个要选中的控件C)按住Ctrl键，不要松开，然后单击每个要选中的控件D)拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内42.以下叙述中错误的是(D)。A)在通用过程中，多个形式参数之间可以用逗号作为分隔符B)在Print方法中，多个输出项之间可以用逗号作为分隔符C)在Dim语句中，所定义的多个变量可以用逗号作为分隔符D)当一行中有多个语句时，可以用逗号作为分隔符43.以下叙述中错误的是(C)。A)续行符与它前面的字符之间至少要有一个空格B)VisualBasic中使用的续行符为下划线(_)C)以撇号(′)开头的注释语句可以放在续行符的后面D)VisualBasic可以自动对输入的内容进行语法检查44.下列有语法错误的赋值语句是(D)。A)y＝7＝9B)s＝m＋nC)Text1.Text＝10D)m＋n＝1245.设程序中分别将a、b、c、d定义为布尔型、整型、字符串型、日期型变量，下列赋值语句错误的是AA)a=#True#B)C)c=5&10D)d=#2013/01/01#46.以下叙述中错误的是AA)事件过程可以像通用过程一样由用户指定过程名B)在Sub过程中可以调用其它过程C)在Sub过程中不能定义其它过程D)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型47.输入VisualBasic源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用AA)冒号（:）B)分号（;）C)下划线（_）D)连字符（-）48.VisualBasic源程序的续行符为CA)冒号（:）B)分号（;）C)下划线（_）D)连字符（-）49.下列打开"代码窗口"的操作中错误的是(A)。A)按F4键B)单击"工程资源管理器"窗口中的"查看代码"按钮C)双击已建立好的控件D)执行"视图"菜单中的"代码窗口"命令50.设计窗体时，双击窗体上没有控件的地方，打开的窗口是(A)。A)代码窗口B)属性窗口C)工具箱窗口D)工程窗口51.以下叙述中，错误的是BA)标准模块不属于任何一个窗体D)一个应用程序可以有多个窗体52.在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是(D)。A)B)C)D)53.在VisualBasic环境下设计应用程序时，系统能自动检查出的错误是(A)。A)语法错误B)逻辑错误C)逻辑错误和语法错误D)运行错误54.下面关于VB应用程序的叙述中正确的是CA)VB应用程序只能解释运行B)VB应用程序只能编译运行C)VB应用程序既能解释运行，也能编译运行D)VB应用程序必须先编译，然后解释运行55.以下关于VB的叙述中，错误的是AA)VB的窗体模块只包含由控件组成的窗体B)在VB集成开发环境中，既可以运行程序，也可以调试程序C)VB采用事件驱动的编程机制D)56.以下关于VB的叙述中，错误的是BA)VB采用事件驱动的编程机制B)如果程序中有Sub_Main过程时，则一定从该过程开始执行C)工程文件中包含多个窗体时，可以指定启动窗体D)VB程序既可以编译执行，也可以解释执行57.能够被窗体或控件所识别的操作称为AA)事件B)方法C)过程D)属性§2.3程序设计基础1.下面为单精度实型（即单精度浮点型）变量的是CA)x$B)x&C)x!D)x#2.为了建立随机文件，要求文件的每条记录应包含多个不同数据类型的数据项，则记录应使用的数据类型是AA)记录类型B)字符串类型C)字符串数组D)变体类型3.长整型常数的类型说明符为CA)%B)#C)&D)@4.双精度浮点数的类型说明符为BA)%B)#C)&D)@5.VB变量x!的数据类型是AA)单精度类型B)字符串类型C)整型D)双精度类型6.如果在程序中直接使用了没有声明的变量，则它的数据类型是DA)字符串型B)整型C)逻辑型D)变体型7.若在窗体模块的声明部分声明了如下自定义类型和数组：PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是(C)。A)Printarr.Code(2)，arr.Caption(2)B)C)Printarr(2).Code，arr(2).CaptionD)PrintCode(2)，Caption(2)8.以下自定义数据类型的语句中，正确的是(B)。A)TypestudentIDAsString*20nameAsString*10ageAsIntegerEndstudentB)TypestudentIDAsString*20nameAsString*10ageAsIntegerEndTypeC)TypestudentIDAsStringnameAsStringageAsIntegerEndstudentD)TypeIDAsString*20nameAsString*10ageAsIntegerEndTypestudent9.设有以下定义语句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是BA)a=12B)a.x=12C)point=12D)point.x=1210.以下能正确定义数据类型TelBook的代码是AA)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeB)TypeTelBookNameAsString*10TelNumAsIntegerEndTelBookC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookD)TypedefTelBookNameString*10TelNumIntegerEndType11.某人在窗体模块中定义了如下自定义类型：TypeRecnumAsIntegernameAsStringEndType但发现程序不能运行，关于这一问题，下面叙述中正确的是DA)自定义类型不能写在窗体模块中B)自定义类型只能写在标准模块中C)在TypeRec前面添加关键字Public就可解决问题D)在TypeRec前面添加关键字Private就可解决问题12.设有下面的类型和变量定义，PrivateTypeRecnameAsStringscore(5)AsIntegerEndTypeDimstudentAsRec则下面正确的语句是BA)student="张三"B)student.score(2)=75C)student(3).score=69D)score(4)=7713.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()DimyAsxy.a＝InputBox("")Ify.a\2＝y.a/2ThenElsey.b＝Fix(y.a/2)EndIfEndSub对以上程序，下列叙述中错误的是(D)。A)x是用户定义的类型B)InputBox函数弹出的对话框中没有提示信息C)D)Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回14.下列符号常量的声明中不合法的是CB)ConstaAsDouble=5+8C)ConstaAsInteger="25"D)Consta="OK"15.窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenxCaption＝"计算机等级考试"ElsexPicture＝LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序，下列叙述中错误的是(A)。A)程序运行时会出错B)单击图片框，在图片框中显示一幅图片C)过程中的x是控件变量D)单击标签，在标签中显示一串文字16.以下变量名中合法的是(C)。A)x2－1B)printC)str_nD)2x17.以下选项中，不合法的VisualBasic的变量名是(B)。A)a5bB)_xyzC)a_bD)andif18.以下变量名中合法的是(C)。A)x－2B)12abcC)sum_totalD)print19.以下合法的VB变量名是(D)。A)#_1B)123_aC)stringD)x_12320.以下合法的VB变量名是(D)。A)_xB)2yC)a#bD)x_1_x21.下列合法的变量名是(B)。A)sum－aB)num_9C)print$D)5avg22.以下合法的VB变量名是BA)_aB)yPrintC)a-bD)Type23.以下不合法的VB变量名是CA)filenameB)readC)_yD)e524.下面变量定义中错误的是AA)PublicmodAsIntegerB)StaticbufC)DimchAsString*10D)Dima!(-5To-1)25.下列说法中，错误的是BA)变量名长度不能超过255个字符B)变量名的第一个字符可以是字母或数字C)变量名只能由字母、数字和下划线组成D)变量名不能使用保留字26.下列说法中，错误的是AA)变量名长度不能超过127个字符B)变量名的第一个字符必须是字母C)变量名不能使用保留字D)变量名只能由字母、数字和下划线组成27.以下可作为VisualBasic合法变量名的是BA)A3#1B)BasicC)TabD)D%328.以下合法的VB变量名是AA)x_yB)PrintC)_bD)m-n29.以下合法的VB变量名是AA)x_B)3xC)varnameD)print30.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为(C)。A)DimpiAsIntegerB)Dimpi(7)AsIntegerC)DimpiAsSingleD)DimpiAsLong31.下面程序运行时，若输入395，则输出结果是(B)。PrivateSubCommand1_Click()Dimx%x＝InputBox("请输入一个3位整数")PrintxMod10，x\100，(xMod100)\10EndSubA)395B)539C)593D)35932.设窗体文件中有下面的事件过程：PrivateSubCommand1_Click()Dimsa%＝100PrintaEndSub其中变量a和s的数据类型分别是(C)。A)整型，整型B)变体型，变体型C)整型，变体型D)变体型，整型33.执行语句DimX，YAsInteger后(D)。A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量，Y被定义为变体类型变量D)X被定义为变体类型变量，Y被定义为整型变量34.某人编写了向随机文件中写一条记录的程序，代码如下：TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubCommand1_Click()DimpAsRTypep.Name＝InputBox("姓名")p.Tel＝InputBox("电话号")Open"Books.dat"ForRandomAs#1Put#1，，pClose#1EndSub该程序运行时有错误，修改的方法是()。A)在类型定义"TypeRType"之前加上"Private"B)DimpAsRType必须置于窗体模块的声明部分C)应把Open语句中的ForRandom改为ForOutput(36)有如下程序：PrivateSubForm_Click()DimsAsInteger，pAsIntegerp＝1Fori＝1To4Forj＝1Tois＝s＋jNextjp＝p*sNextiPrintpEndSub程序运行后，单击窗体，则输出结果是(A)。A)在类型定义"TypeRType"之前加上"Private"B)DimpAsRType必须置于窗体模块的声明部分C)应把Open语句中的ForRandom改为ForOutputD)35.有如下数据定义语句：DimX，YAsInteger以上语句表明(C)。A)X、Y均是整型变量B)X是整型变量，Y是变体类型变量C)X是变体类型变量，Y是整型变量D)X是整型变量，Y是字符型变量36.为了声明一个长度为128个字符的定长字符串变量StrD，以下语句中正确的是(D)。A)DimStrDAsStringB)DimStrDAsString(128)C)DimStrDAsString[128]D)DimStrDAsString*12837.有如下数据定义语句：Dima,bAsIntegerDimx%,yasInteger执行上述语句后，不是整型变量的是AA)aB)bC)xD)y38.语句x=x+1的正确含义是CA)变量x的值等于表达式x+1的值B)将变量x的值存放到变量x+1中C)将变量x的值加1后赋予变量xD)将变量"x+1"的值存放到变量x中39.有如下程序代码：PrivateSubForm_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSubFunctionf(mAsInteger)AsIntegerStaticbAsIntegerb=b+1f=m*bEndFunction运行程序，单击窗体后，窗体上显示的是AA)12B)3C)6D)940.编写如下程序：PrivateSubCommand1_Click()StaticxAsIntegerIfxThenx=x+10Elsex=x+1PrintxEndSub程序运行后，第三次单击命令按钮Command1时，输出的结果为DA)1B)3C)10D)2141.对于语句DimVar1,Var2AsString*10，下列说法中正确的是DA)Var1和Var2都被定义为定长字符串变量B)Var1被定义为变长字符串变量，Var2被定义为定长字符串变量C)Var1被定义为定长字符串变量，Var2被定义为变长字符串变量D)Var1被定义为变体变量42.对于语句DimVar1#,Var2AsInteger，下列说法中正确的是BA)Var1#和Var2都被定义为整型变量B)Var1被定义为双精度型变量，Var2被定义为整型变量C)Var1被定义为长整型变量，Var2被定义为整型变量D)Var1#被定义为变体变量，Var2被定义为整型变量43.编写如下程序：PrivateSubCommand1_Click()Dima%,b%,c%a=8:b=3Doc=a-bPrintc;a=b:b=cLoopUntilAbs(c)>10EndSub程序运行后，单击命令按钮Command1，输出结果是CA)5B)5-27-9C)5-27-916D)一直输出，是死循环44.编写如下程序：PrivateSubCommand1_Click()DimkAsIntegerx=1Fork=1To3x=x*fun(k)NextkPrintxEndSubFunctionfun(xAsInteger)AsIntegerStaticaa=a+1fun=a*xEndFunction程序运行后，单击命令按钮Command1，输出结果为BA)6B)36C)3D)3045.设有以下程序代码：PrivateSubCommand1_Click()StaticaAsIntegerprocaPrintaEndSubSubproc(xAsInteger)x=x+1EndSub运行程序，3次单击命令按钮，第3次单击后显示的是CA)0B)1C)3D)446.窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认，若密码正确，弹出信息框显示"密码正确"，若密码错误，弹出信息框显示"密码错误，请重新输入"，但最多允许输出3次，若还不正确，则弹出信息框显示"密码错误，不能再输入"，且命令按钮变为无效。某人编写了如下程序：PrivateSubCommand1_Click()DimnumAsIntegernum=num+1IfText1.Text="123456"ThenMsgBox"密码正确"ElseIfnum=3ThenCommand1.Enabled=FalseMsgBox"密码错误，不能再输入"ElseMsgBox"密码错误，请重新输入"EndIfEndSub调试时发现有错误需要修改，下面正确的修改方案是CA)把ElseIfnum=3Then改为ElseIfnum>3ThenB)把Command1.Enabled=False改为Command1.Enabled=TrueC)把DimnumAsInteger改为StaticnumAsIntegerD)把num=num+1改为num=num+347.有如下通用过程：SubSa(aAsInteger,bAsInteger)b=at=a/bb=tModbEndSub在窗体上画一个Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=5y=4Sax,yPrintx;yEndSub运行程序，单击命令按钮，输出结果是DA)11B)54C)14D)5148.有如下程序代码：FunctionSum(nAsInteger)StatickAsIntegerk=k+n+1Sum=kEndFunctionPrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To3s=s+Sum(i)NextiPrintsEndSub运行程序，单击窗体，输出结果为DA)6B)9C)12D)1649.设有如下程序：OptionBase1Dima(3，4)AsInteger，b(4，3)AsIntegerPrivateSubCommand1_Click()'循环1Fori＝1To3Forj＝1To4b(j，i)＝a(i，j)NextjNexti'循环2x＝b(1，1)Fori＝1To4Forj＝1To3Printb(i，j)；Ifx<b(i，j)Thenx＝b(i，j)NextjPrintNextiEndSub程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是(B)。A)窗体模块中，不能使用Dim声明a、b数组B)"循环1"可以正常运行C)"循环2"中循环变量i、j的终值不对，所以不能正常运行D)程序可以正常运行，x中保存的是数组b中所有元素中最小的数50.有如下语句序列：Dima，bAsIntegerPrintaPrintb执行以上语句序列，下列叙述中错误的是(A)。A)输出的a值是0B)输出的b值是0C)a是变体类型变量D)b是整型变量51.下列关于数组的叙述中，正确的是AA)数组名的命名规则与简单变量相同B)VisualBasic支持数组的隐式定义C)使用Static语句定义任何类型的数组时，都把该数组的全部元素初始化为0D)使用Dim语句定义任何类型的数组时，都将把数组的全部元素初始化为空字符串52.下面程序片段中有错误CSubpric()PublicxAsIntegerx=Array(1,2,3,4,5)……EndSub为了避免出错，正确的修改方案是A)把PublicxAsInteger改为PublicxAsVariantB)把PublicxAsInteger改为Dimx(5)C)把PublicxAsInteger改为Staticx53.下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。PrivateSubCommand1_Click()Dima()AsIntegern=0Dox=InputBox("请输入一个自然数，输入-1结束")Ifx<>-1Thenn=n+1___________a(n)=xEndIfLoopUntilx=-1Fork=1Tons=s+a(k)NextPrints/nEndSub以上程序不完整，应在横线处填写的是BA)ReDima(n)B)ReDimPreservea(n)C)ReDimaD)ReDima()§2.4常用标准控件1.如果改变驱动器列表框的Drive属性，则将触发的事件是(A)。A)ChangeB)ScrollC)KeyDownD)KeyUp2.任何控件都具有的属性为DA)CaptionB)ForeColorC)FontNameD)Name3.在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是(A)。A)PrivateSubText1_Change()Label1.Caption＝Str(Len(Text1.Text))EndSubB)PrivateSubText1_Click()Label1.Caption＝Str(Len(Text1.Text))EndSubC)PrivateSubText1_Change()EndSubD)PrivateSubLabel1_Change()Label1.Caption＝Str(Len(Text1.Text))EndSub4.设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是(B)。A)PrivateSubTimer1_Timer()Label1.Caption＝TrueEndSubB)PrivateSubTimer1_Timer()Label1.Caption＝Time$EndSubC)PrivateSubTimer1_Timer()Label1.Interval＝1EndSubD)PrivateSubTimer1_Timer()Label1.Caption＝TimerNextkEndSub5.为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为(D)。A)BackColorB)BorderStyleC)ForeColorD)BackStyle6.VisualBasic控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为Caption的控件是(B)。A)列表框(ListBox)B)标签(Label)C)文本框(TextBox)D)组合框(ComboBox)7.为了使标签Label1透明且不具有边框，以下正确的属性设置是BA)Label1.BackStyle=0Label1.BorderStyle=1B)Label1.BackStyle=0Label1.BorderStyle=0C)Label1.BackStyle=1Label1.BorderStyle=1D)Label1.BackStyle=1Label1.BorderStyle=08.决定标签内容显示位置的属性是CA)TextB)NameC)AlignmentD)Caption9.设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是A)Label1.BackStyle=2B)Command1.Style=1C)Text1.ScrollBars=4D)Check1.Value=2参考答案：D10.下列不包含滚动条的控件是A)列表框B)标签C)组合框D)文本框参考答案：B11.要使标签中的文本靠右显示，应将其Aligment属性设置为A)0-LeftJustifyB)1-RightJustifyC)2-CenterD)3参考答案：B12.下列有关控件的叙述中，正确的是A)命令按钮不响应DblClick事件B)标签的主要作用是显示文本信息，它不响应Click事件C)标签中的文本信息通过Text属性显示D)在设计阶段，图片框中建立的控件可以拖拽到图片框之外参考答案：A13.窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为()。A)PrivateSubLabel1_Click()EndSubB)PrivateSubLabel1_Change()EndSubC)PrivateSubText1_Click()EndSubD)PrivateSubText1_Change()EndSub参考答案：D14.以下控件中，能够作为容器使用的是A)图片框B)形状控件C)图像框D)标签参考答案：A15.在窗体上画1个名称为Command1的命令按钮，1个名称为Label1的标签，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimsAsIntegerFori=1To5Forj=1Tois=s+jNextjNextiLabel1.Caption=sEndSub程序运行后，单击命令按钮Command1，则标签中显示的内容是A)15B)20C)35D)55参考答案：C16.下面不响应键盘事件的对象是A)窗体B)按钮C)复选框D)标签参考答案：D17.在窗体上画Text1、Text2两个文本框，并编写如下程序：PrivateSubForm_Load()Text2.PasswordChar="$"EndSubPrivateSubText1_Change()EndSub运行程序，在Text1文本框中输入"ABCDEFG"，则产生的结果是A)在Text2中同步显示与Text1同样内容B)在Text2中同步显示"abcdefg"C)在Text2中同步显示与Text1中字符数量相同的"$"D)在Text1中显示"$"，而在Text2中不显示任何内容参考答案：C18.窗体上有1个名称为Text1的文本框和1个名称为Label1的标签。运行以下程序，在文本框中输入VisualBasic，则标签中显示内容为basic的是A)PrivateSubText1_Change()Label1.Caption=LCase(Mid(Text1.Text,7))EndSubB)PrivateSubText1_Change()Label1.Caption=UCase(Left(Text1.Text,5))EndSubC)PrivateSubText1_Change()Label1.Caption=UCase(Right(Text1.Text,5))EndSubD)PrivateSubText1_Change()Label1.Caption=LCase(Left(Text1.Text,5))EndSub参考答案：A19.如果把文本框的Enabled属性设置为False并运行程序，则以下叙述中正确的是A)文本框中的文本变为灰色，且不能将光标置于文本框上B)文本框中的文本变为灰色，可以将光标置于文本框上，但不能改变文本框中的内容C)文本框中的文本变为灰色，可以改变文本框中的内容D)文本框中的文本正常显示，可以将光标置于文本框上，但不能改变文本框中的内容参考答案：A20.窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序：PrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Click()EndSub程序运行后，在Text1和Text2中依次输入100和200，并单击命令按钮Command1，则输出结果为A)100B)200C)300D)100200参考答案：D21.窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0Text1(1).FontSize＝Text1(0).FontSize*2Text1(1).Text＝Text1(0).TextCase1Text1(0).FontSize＝Text1(1).FontSize/2Text1(0).Text＝Text1(1).TextCaseElseMsgBox"执行Else分支"EndSelectEndSub关于上述程序，以下叙述中错误的是()。A)Index用于标识数组元素B)本程序中CaseElse分支的语句永远不会被执行C)向任何一个文本框输入字符，都会在另一个文本框中显示该字符D)下标为0的文本框中显示的字符尺寸将越来越小参考答案：D22.在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为()。A)B)Text1.Visible＝FalseC)D)Text1.Enabled＝False参考答案：B23.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为()。A)0B)1C)2D)3参考答案：D24.在窗体上画一个名称为Combo1的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如图所示。运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下：PrivateSubCommand1_Click()IfText1.Se1Length<>0ThenElseCombo1.AddItemText1EndIfEndSub程序中横线处应该填写的是()。A)B)C)D)参考答案：C25.为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为()。A)0B)1C)2D)3参考答案：C26.若要使文本框能够输入多行文本，应该设置的属性是()。A)MultiLineB)WordWrapC)ScrollBarsD)AutoSize参考答案：A26.为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是()。A)AutoSizeB)AlignmentC)MultilineD)MaxLength参考答案：C27.窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框，其Text属性值为"VBProgramming"。运行程序后，选中其中的"VB"，并执行如下事件过程：PrivateSubCommand1_Click()Text1.SelText="C++"EndSub则文本框中显示的内容为A)VBB)VBProgrammingC)文本框被清空D)C++Programming参考答案：D28.将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因可能是A)文本框中没有内容B)文本框的MultiLine属性值为FalseC)文本框的MultiLine属性值为TrueD)文本框的Locked属性值为True参考答案：B29.文本框的Locked属性被设置为True后产生的效果是A)光标不能进入文本框B)不能使文本框中的文本左右滚动C)不能修改文本框中的文本D)在程序中不能引用文本框的内容参考答案：C30.为使文本框具有初始值"VB"，在设计阶段正确的操作是A)选中该文本框，在属性窗口中把Text属性的值改为"VB"B)选中该文本框，在属性窗口中把Caption属性的值改为"VB"C)双击该文本框，在弹出的窗口中输入"VB"D)单击该文本框，在该文本框中直接输入"VB"参考答案：A31.以下控件中，能显示滚动条的是A)文本框B)形状C)标签D)图片框参考答案：A32.如果将文本框的一个属性设置为True,则运行时不能对该文本框中的内容进行编辑，这个属性是A)LockedB)MultiLineC)TabStopD)Visible参考答案：A33.以下关于文本框Text1的叙述中，错误的是A)Text1.MaxLength=20表示文本框允许输入的最大字符数为20B)Text1.PasswordChar="@"表示在文本框中输入的字符都显示为"@"C)a=Text1.Caption表示把在文本框中输入的内容赋给变量aD)Text1.Enabled=False表示把文本框设置为禁用参考答案：C34.以下关于文本框的叙述中，正确的是A)当Enabled属性为False时，其Tab顺序不起作用B)当TabStop属性为False时，不能接收从键盘输入的数据C)当获得焦点时，触发LostFocus事件D)若PassWord属性设为"a"，则输入到文本框的字符将显示为"*"参考答案：A35.窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码：PrivateSubCheck1_Click(IndexAsInteger)IfIndex=1AndCheck1(1).ValuethenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfIfCheck1(2).value=1thenText1.FontBold=TrueEndIfIfCheck1(2).value=0ThenText1.FontBold=FalseEndIfEndSub但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是A)将IfIndex=1AndCheck1(1).ValueThen改为IfCheck1(1).ValueThenB)将第1个If条件中的Check1(1).Value改为Check1(1).Value=TrueC)将第2个If条件中的Check1(2).Value=1改为Check1(2).Value=TrueD)将第3个If条件中的Check1(2).Value=0改为Check1(2).Value=False参考答案：A36.对于文本框控件，下列说法错误的是A)当Locked属性值为True时，可以通过程序代码修改文本框内容B)当Locked属性值为False时，用户可以直接编辑修改文本框内容C)MaxLength属性值既可以在设计阶段设定，也可以在运行时设定D)当文本框可以显示多行文本时，MaxLength属性用来确定每行最大字符数参考答案：D37.为了改变文本框中所显示文本的颜色，需设置的属性为A)FontColorB)BackColorC)ForeColorD)FillColor参考答案：C38.对于文本框，用来设置允许输入的最大字符数的属性为A)LengthB)MaxLengthC)SelLengthD)MultiLine参考答案：B39.窗体上有2个名称分别为Text1和Text2的文本框，1个名称为Command1的命令按钮。单击Command1时，Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是A)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart,Text1.SelLength)EndSubB)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,,Text1.SelLength,Text1.SelStart)EndSubC)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart+1,Text1.SelLength)EndSubD)PrivateSubCommand1_Click()Text2.Text=Mid(Text1.Text,Text1.SelStart-1,Text1.SelLength)EndSub参考答案：C40.为了使文本框中的文本能够水平滚动，应采取的正确方法是A)把文本框的ScrollBars属性设置为1-HorizontalB)把文本框的MultiLine属性设置为TrueC)