电子科技大学22春“计算机应用技术”《VB程序设计》离线作业（一）辅导答案38

书山有路勤为径，学海无涯苦作舟！ 住在富人区的她电子科技大学22春“计算机应用技术”VB程序设计离线作业（一）辅导答案一.综合考核(共50题)1.如果要改变窗体的标题，则需要设置的属性是()。A.NameB.CaptionC.BorderstyleD.BackColor参考答案：B2.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是()。A.CommonDialog1.Filter=“文本文件(.doc)|(*.doc)”B.CommonDialog1.Filter=“text(.doc)|(*.doc)”C.CommonDialog1.Filter=“text(.doc)(*.doc)”D.CommonDialog1.Filter=“*.DOC|*.doc”参考答案：D3.在窗体上画一个名称为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参考答案：D4.定义一个常量PI，可以使用下列语句中的()。A.Set PI=3.14159B.PI=3.14159C.Const PI=3.14159D.Const PI参考答案：C5.以下声明语句中错误的是()。A.Const var1=123B.Dim var2=ABCC.Public a，b as integerD.Static a as single参考答案：B6.窗体上有一组合框Combol,窗体加载时的代码如下： Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。A.Textl.Text=Combol.List(3)B.Textl.Text=Combol.List(2)C.Textl.Text=Combol.List(1)D.Textl.Text=Combol.List(0)参考答案：B7.在窗体上画一个名称为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参考答案：D8.程序流程是指在一个程序中语句的执行次序。()A.正确B.错误参考答案：A9.窗体上有一组合框Combol，窗体加载时的代码如下：Private Sub _Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响”End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。A.Textl.Text=Combol.List(3)B.Textl.Text=Combol.List(2)C.Textl.Text=Combol.List(1)D.Textl.Text=Combol.List(0)参考答案：B10.在窗体上画一个名称为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参考答案：D11.VB集成开发环境可以()。A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序参考答案：D12.能够触发文本框Chang事件的操作是()。A.设置文本框的焦点B.文本框获得焦点C.文本框失去焦点D.改变文本框的内容参考答案：D13.设在菜单编辑器中定义了一个菜单项，名为Menu1，为了在运行时隐藏该菜单项应使用的语句是()。A.Menu1.Visible=TrueB.Menu1.Visible=FalseC.Menu1.Enabled=TrueD.Menu1.Enabled=False参考答案：B14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。A.无数据输出B.1 3.4 5.8C.1 4 7D.1 3 5参考答案：D15.设有如下程序： 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参考答案：B16.在VB中，工程文件的扩展名是()。A.frmB.vbpC.basD.frx参考答案：B17.设有语句：x=InputBox(输入数值,0,示例) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是()。A.在inputbox对话框标题栏中显示的是“示例”B.变量x的值是数值10C.变量x的值是字符串“10”D.0是默认值参考答案：C18.在窗体上画一个名称为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参考答案：D19.下列说法中正确的是为了保存一个Visual Basic应用程序，应当()。A.只保存窗体模块文件.frmB.只保存工程文件.vbpC.分别保存工程文件和标准模块文件.basD.分别保存工程文件、窗体文件和标准模块文件参考答案：D20.窗体的过程Form_MouseDown (Button As Integer，Shift As Integer，X As Single，YAs Single)，有4个参数，关于这些参数，正确的描述是()。A.通过Button参数判定当前按下的是键盘上哪一个键B.Shift参数只能用来确定是否按下Shift键C.Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x，y用来设置鼠标当前位置的坐标参考答案：D21.当一个工程含有多个窗体时，其中的启动窗体是()。A.第一个添加的窗体B.最后一个添加的窗体工程属性C.在“工程属性”对话框中指定的窗体D.启动Vosual Basic时建立的窗体参考答案：C22.执行语句：Open Tel.dat For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是()。A.既可以读，也可以写B.只能读，不能写C.只能写，不能读D.不能读，不能写参考答案：A23.设有如下通用过程： 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参考答案：D24.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为()。A.=B.-C.*D.&参考答案：B25.用来设置粗体字的属性是()。A.FontItalicB.FontNameC.FontBoldD.FontSize参考答案：C26.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是()。A.Combo1.RemoveItem TextB.Combo1.RemoveItem 2C.Combo1.RemoveItem 3D.Combo1.RemoveItem Combo1.Listcount参考答案：B27.ADO数据控件的RecordSoure属性是表示()。A.数据库类型B.与数据库的连接方式C.与ADO数据控件连接的数据库D.ADO数据控件可访问的数据来源参考答案：D28.下列哪个属性设置文本框中文字的对齐方式?()A.SelLengthB.AlignmentC.MultilineD.ScrollBars参考答案：B29.在Visual Basic 6.0中，改变控制的位置可以通过设置()属性来实现。A.Width和TopB.Width和HeightC.Left和TopD.Left和Height参考答案：C30.设a=3,b=5,则以下表达式值为真的是()。A.ab) or (b0)B.a=b And b10C.(a0)D.(-3=5a) And (b0)参考答案：A31.设a=10，b=5，c=1，执行语句Print abc后，窗体上显示的是()。A.TrueB.FalseC.1D.出错信息参考答案：B32.事件可以由用户引发，也可以由系统引发。()A.正确B.错误参考答案：A33.假定有如下事件过程：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表示按下的是鼠标左键参考答案：D34.关于复选框和单选按钮的Value属性，说法正确的是()。A.复选框的Value属性有3个值B.复选框的Value属性有2个值C.单选按钮的Value属性有3个值D.Value属性的值都是True或False参考答案：A35.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。()A.正确B.错误参考答案：B36.有关控件数组特点，下面表达正确的是()。A.Name相同，TabIntex不同B.Name相同，Intex不同C.Name相同，ID不同D.Name相同，Caption也相同参考答案：B37.用下面语句定义的数组，其元素个数是()。 Dim A( -3 To 5) As IntegerA.9B.8C.7D.6参考答案：A38.窗体上有一组合框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参考答案：B39.在窗体上有一个文本框控件，名称为TxtTime;一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为 Private Sub Timer1 TxtTime.text=Time End Sub 在横线上应填入的内容是()。A.VisibleB.TimerC.IntervalD.Enabled参考答案：B40.可以与ADO数据控件绑定的控件必须具有()属性。A.RecordSourceB.DataSourceC.ConnectionstringD.Caption参考答案：B41.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=-5 If x0 Then y=x2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是()。A.-5B.25C.1D.-1参考答案：A42.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。A.通用对话框B.文本框C.图片框D.单选按钮参考答案：B43.在窗体上画一个命令按钮(其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参考答案：C44.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()。A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口参考答案：C45.在窗体中添加一个命令按钮，然后编写如下程序： 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参考答案：B46.要使一个文本框对象能够显示多行文字，应设置该对象的()属性值为True。A.TextB.MultiLineC.StyleD.Visible参考答案：B47.在窗体上画一个命令按钮(其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参考答案：C48.DataCombo控件的RowSource属性是表示()。A.给DataComebo控件提供列表项的字段B.给DataCombo控件提供列表项的数据源C.目的表的数据源D.更新目的表的字段参考答案：B49.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_ Click() Dim num As Integer num = 1 Do Until num 6 Print num;num = num+2.4 Loop End Sub程序运行后，单击命令按钮，则窗体上显示的内容是()。A.无数据输出B.1 3.4 5.8C.1 4 7D.1 3 5参考答案：D50.设有如下通用过程： 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参考答案：D