电子科技大学22春“计算机应用技术”《VB程序设计》综合作业三辅导答案5

书山有路勤为径，学海无涯苦作舟！ 住在富人区的她电子科技大学22春“计算机应用技术”VB程序设计综合作业三辅导答案一.综合考核(共50题)1.可以与ADO数据控件绑定的控件必须具有()属性。A.RecordSourceB.DataSourceC.ConnectionstringD.Caption参考答案：B2.下列哪种说法正确的是()。A.通用对话框是Visual Basic 6.0的内部标准控件B.要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”C.程序运行过程中，通用对话框在窗体中是可见的D.打开“部件”对话框只有一种方法参考答案：B3.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10，10) As Integer Dim I， j As Integer For I=1 To 3 For j=2 To 4 array1(I， j)=I+j Next j Next I Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。A.15B.14C.13D.12参考答案：D4.下列哪个属性设置文本框中文字的对齐方式?()A.SelLengthB.AlignmentC.MultilineD.ScrollBars参考答案：B5.在表达式y=InputBox(“a”，“b”，“c”)中，c为输入函数对话框的()。A.标题B.提示C.默认值D.帮助文件名参考答案：C6.以下关于焦点的叙述中，错误的是()。A.当文本框的Enabled属性为False时，其Tab顺序不起作用B.当文本框失去焦点时，触发LostFocus事件C.如果文本框的TabStop属性为False，则不能接收从键盘输入的数据D.可以用TabIndex属性改变Tab顺序参考答案：C7.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName=“”CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt ”CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=“VBTest”CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是()。A.该对话框被设置为“打开”对话框B.在该对话框中指定的文件名为空C.该对话框的标题为VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt)参考答案：D8.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。A.4321B.34C.1234D.12参考答案：C9.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是()。A.设计状态B.编写代码状态C.运行状态D.中断状态参考答案：B10.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是()。A.StretchB.AutosizeC.AutoredrawD.Appearance参考答案：A11.指出下面哪个语句不是写文件语句?()A.WriteB.PutC.PrintD.Output参考答案：D12.设a=10，b=5，c=1，执行语句Print abc后，窗体上显示的是()。A.TrueB.FalseC.1D.出错信息参考答案：B13.设有如下程序： Option Base 0 Private Sub_Click() Dim a Dim I As Integer a=Array(1，2，3，4，5，6，7，8，9) For I=0 To 3 Print a(5I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是()。A.7654B.6543C.5432D.4321参考答案：B14.如下数组声明语句，()是正确的。A.Dim a3，4As IntegerB.Dim a(3，4)As IntegerC.Dim a(n，n)As IntegerD.Dim a34As Integer参考答案：B15.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。A.通用对话框B.文本框C.图片框D.单选按钮参考答案：B16.列表框和组合框主要的不同在于前者能选择多个项目，后者不能。()A.正确B.错误参考答案：B17.下面叙述错误的是()。A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器B.目录列表框DirListBox显示当前驱动器分层目录树C.文件列表框FileListBox显示选定目录中的所有文件D.文件列表框FileName属性是设定允许显示文件名的文件类型参考答案：D18.设在菜单编辑器中定义了一个菜单项，名为Menu1,为了在运行时隐藏该菜单项应使用的语句是()。A.Menu1.Visible=TrueB.Menu1.Visible=FalseC.Menu1.Enabled=TrueD.Menu1.Enabled=False参考答案：B19.在下列动作中，不能引发命令按钮Click事件的是()。A.把焦点转移到按钮上，然后按回车B.如果按钮有快捷字母键，按Alt+快捷字母键C.在按钮上单击鼠标左键D.在按钮上单击鼠标右键参考答案：D20.执行语句：Open “Tel.dat” For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是()。A.既可以读，也可以写B.只能读，不能写C.只能写，不能读D.不能读，不能写参考答案：A21.在窗体中添加一个命令按钮，然后编写如下程序：Private Sub Command1_Click() Dim a As Integer， b As Integer a=InputBox(“Enter the Firstinteger”) b=InputBox(“Enter the Secondinteger”) Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是()。A.456B.246C.123123D.123参考答案：B22.在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=“” Text1.SetFocus End Sub Private Sub Form. _MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print“程序设计”End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print“Visual Basic”; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是()。A.“程序设计”B.“Visual Basic程序设计”C.Visual BasicD.“A程序设计”参考答案：B23.以下选项中，不是VB标准控件的是()。A.命令按钮B.定时器C.通用对话框D.单选框参考答案：C24.假定有如下事件过程：PriVate Sub Form_MouseDown(button As Integer，Shift As Integer，x As Single，Y As Single) If Button=2 then PopupMenu popForm. End if End Sub 则以下描述中错误的是()。A.该过程的功能是弹出一个名称为popForm的菜单B.popForm是在菜单编辑器中定义的弹出式菜单的名称C.参数X、Y指出鼠标的当前位置D.Button=2表示按下的是鼠标左键参考答案：D25.用下面语句定义的数组，其元素个数是()。 Dim A (-3 To 5) As IntegerA.9B.8C.7D.6参考答案：A26.标签的默认属性是Caption属性。()A.正确B.错误参考答案：A27.如果要改变窗体的标题，则需要设置的属性是()。A.NameB.CaptionC.BorderstyleD.BackColor参考答案：B28.ADO控件的RecordSet对象表示()。A.使用ADO控件连接的表B.使用ADO控件返回的查询结果C.使用ADO控件添加的数据D.使用ADO控件建立的筛选条件参考答案：B29.要使一个文本框对象能够显示多行文字，应设置该对象的()属性值为True。A.TextB.MultiLineC.StyleD.Visible参考答案：B30.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。A.25B.24C.15D.10参考答案：D31.窗体的MouseDown事件过程如下：Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)其中有4个参数，关于这些参数，正确的描述是()。A.通过Button参数判定当前按下的是哪一个鼠标键B.参数x、y用来设置鼠标当前位置的坐标C.Shift参数只能用来确定是否按下Shift键D.Shift参数只能用来确定是否按下Alt键和Ctrl键参考答案：A32.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是()。A.TabStopB.EnabledC.VisibleD.TabIndex参考答案：D33.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1 2 y1=y1 2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是()。A.10 5B.12 5C.10 7D.12 7参考答案：D34.以下声明语句中错误的是()。A.Const var1=123B.Dim var2=ABCC.Public a，b as integerD.Static a as single参考答案：B35.窗体上有一组合框Combol，窗体加载时的代码如下： Private Sub _Load() Combol. AddItem“电视机”Combol. AddItem“录像机”Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。A.Textl.TextCombol.List3B.Textl.TextCombol.List2C.Textl.TextCombol.List1D.Textl.TextCombol.List0参考答案：B36.Sub过程与Function函数的最根本区别是()。A.两种过程参数的传递方式不同B.Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用C.Sub过程无返回值，但Function过程有返回值D.Function过程可以有参数，而Sub过程不可以加aopenxu0306优惠参考答案：C37.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。A.15B.14C.13D.12参考答案：D38.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=0 a=Array (1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a (i) * j j=j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。A.4321B.34C.1234D.12参考答案：C39.下面叙述错误的是()。A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器B.目录列表框DirListBox显示当前驱动器分层目录树C.文件列表框FileName属性是设定允许显示文件名的文件类型D.文件列表框FileListBox显示选定目录中的所有文件参考答案：C40.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程 Private Sub Command1_Click() n=Text1，Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case IsA.40B.30C.20D.10参考答案：D41.将命令按钮设为默认命令按钮，应设置为True的属性是()。A.ValueB.EnabledC.DefaultD.Cancel参考答案：C42.在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox(Enter the Firstinteger) b=InputBox(Enter the Secondinteger) Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是()。A.456B.246C.123123D.123参考答案：B43.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是()。A.Combo1.RemoveItem TextB.Combo1.RemoveItem 2C.Combo1.RemoveItem 3D.Combo1.RemoveItem Combo1.Listcount参考答案：B44.在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Clic() Dim a s=0 a=Array (1,2,3,4) j= 1 For i=4 To 1 Step-1 s=s+a(i) * j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。A.4321B.34C.1234D.12参考答案：C45.下列列表框属性中哪一项不是数组?()A.SelectedB.ListCountC.ListD.Index参考答案：B46.用来设置粗体字的属性是()。A.FontItalicB.FontNameC.FontBoldD.FontSize参考答案：C47.能够触发文本框Chang事件的操作是()。A.设置文本框的焦点B.文本框获得焦点C.文本框失去焦点D.改变文本框的内容参考答案：D48.下列说法中正确的是为了保存一个Visual Basic应用程序，应当()。A.只保存窗体模块文件.frmB.只保存工程文件.vbpC.分别保存工程文件和标准模块文件.basD.分别保存工程文件、窗体文件和标准模块文件参考答案：D49.为了使标签能自动调整大小以显示全部文本内容，应把标签的Autosize属性设置为true。()A.正确B.错误参考答案：A50.定义一个常量PI，可以使用下列语句中的()。A.Set PI=3.14159B.PI=3.14159C.Const PI=3.14159D.Const PI参考答案：C