电科20春《VB程序设计》在线作业1[答案]答案
20春《VB程序设计》在线作业1
试卷总分:100 得分:100
一、单选题 (共 20 道试题,共 100 分)
1.在窗体中添加一个命令按钮，然后编写如下程序： 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.456
B.246
C.123123
D.123
2.在窗体上画一个名称为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 Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A.40
B.30
C.20
D.10
3.指出下面哪个语句不是写文件语句（ ）。
A.Write
B.Put
C.Print
D.Output
4.窗体上有一组合框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)
5.设组合框Combo1中有三个项目，则以下能删除最后一项的语句是（ ）。
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem Combo1.Listcount
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem 2
6.设有如下通用过程： 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.25
B.24
C.15
D.10
7.为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A.Put文件号，记录号，变量名
B.Put文件号，变量名，记录号
C.Get文件号，记录号，变量名
D.Get文件号，变量名，记录号
8.在下列动作中，不能引发命令按钮Click事件的是（ ）。
A.把焦点转移到按钮上，然后按回车
B.如果按钮有快捷字母键，按Alt+快捷字母键
C.在按钮上单击鼠标左键
D.在按钮上单击鼠标右键
9.在窗体上画一个名称为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.15
B.14
C.13
D.12
10.设有如下程序： Option Base 0 Private Sub Form_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(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。
A.7654
B.6543
C.5432
D.4321
11.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A.CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
B.CommonDialog1.Filter=“text(.doc)||(*.doc)”
C.CommonDialog1.Filter=“text(.doc)(*.doc)”
D.CommonDialog1.Filter=“*.DOC|*.doc”
12.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A.=
B.-
C.*
D.&
13.下列哪个属性设置文本框中文字的对齐方式（ ）。
A.SelLength
B.ScrollBars
C.Multiline
D.Alignment
14.以下能判断是否到达文件尾的函数是（ ）。
A.LOF
B.LOC
C.EOF
D.BOF
15.下面叙述错误的是（ ）。
A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
B.目录列表框DirListBox显示当前驱动器分层目录树
C.文件列表框FileName属性是设定允许显示文件名的文件类型
D.文件列表框FileListBox显示选定目录中的所有文件
16.设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是（ ）。
A.出错信息
B.True
C.False
D.1
