电子科技大学17秋《VB程序设计》在线作业123参考答案
17秋《VB程序设计》在线作业1一、单选题:【20道,总分:100分】
1.ADO控件的RecordSet对象表示( )。 (满分:5)
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据
2.设a=3,b=5,则以下表达式值为真的是( )。 (满分:5)
A. a>=b And b>10
B. a>b) or(b>0)
C.(a<0) Eqv(b>0)
D.(-3=5>a) And(b>0)
3.关于复选框和单选按钮的Value属性，说法正确的是( )。 (满分:5)
A. 复选框的Value属性有2个值
B. 单选按钮的Value属性有3个值
C. Value属性的值都是True或False
D. 复选框的Value属性有3个值
4.下列哪些方法不属于通用对话框( )。 (满分:5)
A. ShowColor
B. ShowFont
C. ShowPrint
D. ShowList
5.Sub过程与Function函数的最根本区别是( )。 (满分:5)
A. Function过程可以有参数，而Sub过程不可以
B. 两种过程参数的传递方式不同
C. Sub过程无返回值，但Function过程有返回值
D. Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
6.在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1Click( )S = 0For i = 1 To 15x=2*i-1if x Mod 3=0 Thens=s+1Next iLabel1.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是( )。 (满分:5)
A. 1
B. 5
C. 27
D. 45
7.在窗体中添加一个命令按钮，然后编写如下程序：Private Sub Command1Click( )Dim a As Integer, b As Integera=InputBox("Enter the Firstinteger")b=InputBox("Enter the Secondinteger")Print b+aEndSub程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是( )。 (满分:5)
A. 246
B. 123
C. 456
D. 123123
8.当拖动滚动条中的滚动块时，将触发滚动条的哪个事件( )。 (满分:5)
A. Move
B. Change
C. Scroll
D. SetFocus
9.使文本框获得焦点的方法是( )。 (满分:5)
A. GotFocus
B. Change
C. ListFocus
D. SetFocus
10.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Dim Array1(10,10) As IntegerDim i As Integer, j As IntegerFor i= 1 To 3For j = 2 To 4Array1(i,j) = i + jNext jNext iText1.Text = Array1(2,3) + Array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是( )。 (满分:5)
A. 15
B. 14
C. 13
D. 12
11.代码Command1.Caption=”退出”,其中Command1是( )，Caption是( ),“退出”是( )。请选择一个正确答案( )。 (满分:5)
A. 方法，事件，属性
B. 对象，属性，值
C. 对象，方法，值
D. 方法，对象，值
12.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Move 500,500EndSub程序运行后，单击命令按钮，执行的操作为( )。 (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
13.下面叙述错误的是( )。 (满分:5)
A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
B. 目录列表框DirListBox显示当前驱动器分层目录树
C. 文件列表框FileListBox显示选定目录中的所有文件
D. 文件列表框FileName属性是设定允许显示文件名的文件类型
14.在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为：PrivateSubTimer1( )( )TxtTime.text=TimeEndSub在横线上应填入的内容是( )。 (满分:5)
A. Enabled
B. Visible
C. Interval
D. Timer
15.当一个工程含有多个窗体时，其中的启动窗体是( )。 (满分:5)
A. 启动Vosual Basic时建立的窗体
B. 第一个添加的窗体
C. 最后一个添加的窗体工程属性
D. 在“工程属性”对话框中指定的窗体
16.指出下面哪个语句不是写文件语句( )。 (满分:5)
A. Print
B. Output
C. Write
D. Put
17.设有如下通用过程：Public Sub Fun(a( ),ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程Private Sub Command1Click( ) Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr( ), n)Text1.Text = nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是( )。 (满分:5)
A. 10
B. 15
C. 25
D. 24
18.以下关于焦点的叙述中，错误的是( )。 (满分:5)
A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B. 当文本框失去焦点时，触发LostFocus事件
C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
D. 可以用TabIndex属性改变Tab顺序
19.在窗体上创建一个名称为Text1的文本框，并编写如下程序：Private Sub FormLoad( )ShowText1.Text=""Text1.SetFocusEndSubPrivate Sub FormMouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single)Print "程序设计"EndSubPrivate Sub Text1KeyDown(KeyCode As Integer,Shift As Integer)Print "Visual Basic";EndSub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是( )。 (满分:5)
A. Visual Basic
B. “程序设计”
C. “A程序设计”
D. “Visual Basic程序设计”
20.设组合框Combo1中有三个项目，则以下能删除最后一项的语句是( )。 (满分:5)
A. Combo1.RemoveItem Text
B. Combo1.RemoveItem 2
C. Combo1.RemoveItem 3
D. Combo1.RemoveItem Combo1.Listcount
17秋《VB程序设计》在线作业2
一、单选题:【20道,总分:100分】
1.窗体的MouseDown事件过程如下：FormMouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)其中有4个参数，关于这些参数，正确的描述是( )。 (满分:5)
A. 通过Button参数判定当前按下的是哪一个鼠标键
B. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt键和Ctrl键
D. 参数x、y用来设置鼠标当前位置的坐标
2.当拖动滚动条中的滚动块时，将触发滚动条的哪个事件( )。 (满分:5)
A. Move
B. Change
C. Scroll
D. SetFocus
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。 (满分:5)
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
4.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是( )。 (满分:5)
A. Autosize
B. Stretch
C. Autoredraw
D. Appearance
5.下列列表框属性中哪一项不是数组( )。 (满分:5)
A. Selected
B. ListCount
C. List
D. Index
6.在窗体上创建一个名称为Text1的文本框，并编写如下程序：Private Sub FormLoad( )ShowText1.Text=""Text1.SetFocusEndSubPrivate Sub FormMouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single)Print "程序设计"EndSubPrivate Sub Text1KeyDown(KeyCode As Integer,Shift As Integer)Print "Visual Basic";EndSub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是( )。 (满分:5)
A. Visual Basic
B. “程序设计”
C. “A程序设计”
D. “Visual Basic程序设计”
7.在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为：PrivateSubTimer1( )( )TxtTime.text=TimeEndSub在横线上应填入的内容是( )。 (满分:5)
A. Enabled
B. Visible
C. Interval
D. Timer
8.设有语句：x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是( )。 (满分:5)
A. 变量x的值是数值10
B. 在inputbox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量x的值是字符串“10”
9.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是( )。 (满分:5)
A. 单选按钮
B. 图片框
C. 通用对话框
D. 文本框
10.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Dim Array1(10,10) As IntegerDim i As Integer, j As IntegerFor i= 1 To 3For j = 2 To 4Array1(i,j) = i + jNext jNext iText1.Text = Array1(2,3) + Array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是( )。 (满分:5)
A. 15
B. 14
C. 13
D. 12
11.下列控件哪一个具有Align属性( )。 (满分:5)
A. 图像框
B. 图片框
C. 标签
D. 列表框
12.在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是( )。 (满分:5)
A. CommonDialog1.Filter=“*.DOC|*.doc”
B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C. CommonDialog1.Filter=“text(.doc)( )(*.doc)”
D. CommonDialog1.Filter=“text(.doc)(*.doc)”
13.以下关于焦点的叙述中，错误的是( )。 (满分:5)
A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B. 当文本框失去焦点时，触发LostFocus事件
C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
D. 可以用TabIndex属性改变Tab顺序
14.设a=3,b=5,则以下表达式值为真的是( )。 (满分:5)
A. a>=b And b>10
B. a>b) or(b>0)
C.(a<0) Eqv(b>0)
D.(-3=5>a) And(b>0)
15.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Move 500,500EndSub程序运行后，单击命令按钮，执行的操作为( )。 (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
16.ADO控件的RecordSet对象表示( )。 (满分:5)
A. 使用ADO控件连接的表
B. 使用ADO控件返回的查询结果
C. 使用ADO控件建立的筛选条件
D. 使用ADO控件添加的数据
17.设有如下程序：Option Base 0Private Sub FormClick( )DimaDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 - I);NextIEndSub程序运行后，单击窗体，则在窗体上显示的是( )。 (满分:5)
A. 4321
B. 5432
C. 6543
D. 7654
18.目录列表框的Path属性的作用是( )。 (满分:5)
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
19.Sub过程与Function函数的最根本区别是( )。 (满分:5)
A. Function过程可以有参数，而Sub过程不可以
B. 两种过程参数的传递方式不同
C. Sub过程无返回值，但Function过程有返回值
D. Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
20.用下面语句定义的数组，其元素个数是( )。Dim A(-3 To 5) As Integer (满分:5)
A. 6
B. 7
C. 8
D. 9
17秋《VB程序设计》在线作业3
一、单选题:【20道,总分:100分】
1.能够触发文本框Chang事件的操作是( )。 (满分:5)
A. 文本框失去焦点
B. 文本框获得焦点
C. 设置文本框的焦点
D. 改变文本框的内容
2.在Visual Basic6.0中，改变控制的位置可以通过设置( )属性来实现。 (满分:5)
A. Left和Top
B. Width和Height
C. Left和Height
D. Width和Top
3.以下关于焦点的叙述中，错误的是( )。 (满分:5)
A. 如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B. 当文本框失去焦点时，触发LostFocus事件
C. 当文本框的Enabled属性为False时，其Tab顺序不起作用
D. 可以用TabIndex属性改变Tab顺序
4.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1Click( )n = Text1.TextSelectCase nCase 1 To 20x = 10Case 2,4,6x = 20Case Is<10x = 30Case 10x = 40End SelectText2.Text = xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是( )。 (满分:5)
A. 10
B. 20
C. 30
D. 40
5.关于复选框和单选按钮的Value属性，说法正确的是( )。 (满分:5)
A. 复选框的Value属性有2个值
B. 单选按钮的Value属性有3个值
C. Value属性的值都是True或False
D. 复选框的Value属性有3个值
6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为( )。 (满分:5)
A. *
B. =
C. &
D. -
7.为了把一个记录型变量的内容写入文件中指定的位置，要使用语句( )。 (满分:5)
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
8.将命令按钮设为默认命令按钮，应设置为True的属性是( )。 (满分:5)
A. Value
B. Cancel
C. Default
D. Enabled
9.窗体的MouseDown事件过程如下：FormMouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)其中有4个参数，关于这些参数，正确的描述是( )。 (满分:5)
A. 通过Button参数判定当前按下的是哪一个鼠标键
B. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt键和Ctrl键
D. 参数x、y用来设置鼠标当前位置的坐标
10.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Dim Array1(10,10) As IntegerDim i As Integer, j As IntegerFor i= 1 To 3For j = 2 To 4Array1(i,j) = i + jNext jNext iText1.Text = Array1(2,3) + Array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是( )。 (满分:5)
A. 15
B. 14
C. 13
D. 12
11.使文本框获得焦点的方法是( )。 (满分:5)
A. GotFocus
B. Change
C. ListFocus
D. SetFocus
12.当一个工程含有多个窗体时，其中的启动窗体是( )。 (满分:5)
A. 启动Vosual Basic时建立的窗体
B. 第一个添加的窗体
C. 最后一个添加的窗体工程属性
D. 在“工程属性”对话框中指定的窗体
13.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEndSub程序运行后，单击命令按钮，在窗体上显示的是( )。 (满分:5)
A. 11
B. 10
C. 9
D. 8
14.设有语句：x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是( )。 (满分:5)
A. 变量x的值是数值10
B. 在inputbox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量x的值是字符串“10”
15.设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是( )。 (满分:5)
A. True
B. False
C. 1
D. 出错信息
16.下列哪个属性设置文本框中文字的对齐方式( )。 (满分:5)
A. SelLength
B. Alignment
C. Multiline
D. ScrollBars
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Move 500,500EndSub程序运行后，单击命令按钮，执行的操作为( )。 (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
18.下列属性中哪个不是图片框的属性( )。 (满分:5)
A. Align
B. Picture
C. Stretch
D. AutoRedraw
19.定时器控件Interval属性最多只能设置( )。 (满分:5)
A. 1分多钟
B. 半分多钟
C. 2分多钟
D. 10分钟
20.在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为：PrivateSubTimer1( )( )TxtTime.text=TimeEndSub在横线上应填入的内容是( )。 (满分:5)
A. Enabled
B. Visible
C. Interval
D. Timer
页:
[1]