电子科技大19春《VB程序设计》在线作业123
19春《VB程序设计》在线作业1奥鹏作业答案可以联系微信761296021
1.[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.无数据输出
正确答案:——B——
2.[单选题]当一个工程含有多个窗体时，其中的启动窗体是（ ）。
A.启动Vosual Basic时建立的窗体
B.第一个添加的窗体
C.最后一个添加的窗体工程属性
D.在“工程属性”对话框中指定的窗体
正确答案:——D——
3.[单选题]设有如下程序：
Option Base 0
Private Sub Form_Click()
Dima
Dim I As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For I=0 To 3
Print a(5 - I);
NextI
EndSub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
A.4321
B.5432
C.6543
D.7654
正确答案:——C——
4.[单选题]DataCombo控件的RowSource属性是表示（ ）。
A.给DataComebo控件提供列表项的字段
B.目的表的数据源
C.给DataCombo控件提供列表项的数据源
D.更新目的表的字段
正确答案:————
5.[单选题]如果要改变窗体的标题，则需要设置的属性是（ ）。
A.Caption
B.Name
C.BackColor
D.Borderstyle
正确答案:————
6.[单选题]在窗体上画一个命令按钮（其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
EndSub
运行上面的程序，单击命令按钮，其输出结果是（ ）。
A.4321
B.1234
C.34
D.12
正确答案:————
7.[单选题]下列控件哪一个具有Align属性（ ）。
A.图像框
B.图片框
C.标签
D.列表框
正确答案:————
8.[单选题]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
SelectCase 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
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A.10
B.20
C.30
D.40
正确答案:————
9.[单选题]定义一个常量PI，可以使用下列语句中的（ ）。
A..PI=3.14159
B.Set PI = 3.14159
C.Const PI = 3.14159
D.Const PI
正确答案:————
10.[单选题]在窗体上画一个名称为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)
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A.12
B.13
C.14
D.15
正确答案:————
11.[单选题]下列列表框属性中哪一项不是数组（ ）。
A.Selected
B.ListCount
C.List
D.Index
正确答案:————
12.[单选题]如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A.*
B.=
C.&
D.-
正确答案:————
13.[单选题]在窗体中添加一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("Enter the Firstinteger")
b=InputBox("Enter the Secondinteger")
Print b+a
EndSub
程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。
A.246
B.123
C.456
D.123123
正确答案:————
14.[单选题]为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A.Get文件号，记录号，变量名
B.Get文件号，变量名，记录号
C.Put文件号，变量名，记录号
D.Put文件号，记录号，变量名
正确答案:————
15.[单选题]ADO控件的RecordSet对象表示（ ）。
A.使用ADO控件连接的表
B.使用ADO控件返回的查询结果
C.使用ADO控件建立的筛选条件 奥鹏作业答案
D.使用ADO控件添加的数据
正确答案:————
16.[单选题]代码Command1.Caption=”退出”,其中Command1是（ ），Caption是（ ）,“退出”是（ ）。请选择一个正确答案（ ）。
A.方法，事件，属性
B.对象，属性，值
C.对象，方法，值
D.方法，对象，值
正确答案:————
17.[单选题]设有如下通用过程：
Public Sub Fun(a(),ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
EndSub
在窗体上画一个名称为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
EndSub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
A.10
B.15
C.25
D.24
正确答案:————
18.[单选题]刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
A.单选按钮
B.图片框
C.通用对话框
D.文本框
正确答案:————
19.[单选题]图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。
A.Autosize
B.Stretch
C.Autoredraw
D.Appearance
正确答案:————
20.[单选题]窗体的MouseDown事件过程如下：
Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)
其中有4个参数，关于这些参数，正确的描述是（ ）。
A.通过Button参数判定当前按下的是哪一个鼠标键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt键和Ctrl键
D.参数x、y用来设置鼠标当前位置的坐标
正确答案:————
19春《VB程序设计》在线作业2
1.[单选题]下列哪种说法正确的是（ ）。
A.通用对话框是Visual Basic 6.0的内部标准控件
B.要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”
C.打开“部件”对话框只有一种方法
D.程序运行过程中，通用对话框在窗体中是可见的
正确答案:——B——
2.[单选题]设a=3,b=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)
正确答案:——B——
3.[单选题]在窗体上画一个名称为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)
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A.12
B.13
C.14
D.15
正确答案:——A——
4.[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.无数据输出
正确答案:————
5.[单选题]设组合框Combo1中有三个项目，则以下能删除最后一项的语句是（ ）。
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
正确答案:————
6.[单选题]为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A.Get文件号，记录号，变量名
B.Get文件号，变量名，记录号
C.Put文件号，变量名，记录号
D.Put文件号，记录号，变量名
正确答案:————
7.[单选题]在窗体上画一个命令按钮（其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
EndSub
运行上面的程序，单击命令按钮，其输出结果是（ ）。
A.4321
B.1234
C.34
D.12
正确答案:————
8.[单选题]窗体上有一组合框Combol,窗体加载时的代码如下：
Private Sub Form_Load()
Combol. AddItem“电视机”
Combol. AddItem“录像机”
Combol. AddItem“VCD”
Combol. AddItem“组合音响”
End Sub
要在文本框Textl中显示列表中的第三个项目，则正确的语句的是（ ）。
A.Textl.Text=Combol.List(0)
B.Textl.Text=Combol.List(1)
C.Textl.Text=Combol.List(2)
D.Textl.Text=Combol.List(3)
正确答案:————
9.[单选题]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
SelectCase 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
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A.10
B.20
C.30
D.40
正确答案:————
10.[单选题]在窗体中添加一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("Enter the Firstinteger")
b=InputBox("Enter the Secondinteger")
Print b+a
EndSub
程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。
A.246
B.123
C.456
D.123123
正确答案:————
11.[单选题]代码Command1.Caption=”退出”,其中Command1是（ ），Caption是（ ）,“退出”是（ ）。请选择一个正确答案（ ）。
A.方法，事件，属性
B.对象，属性，值
C.对象，方法，值
D.方法，对象，值
正确答案:————
12.[单选题]目录列表框的Path属性的作用是（ ）。
A.显示当前驱动器或指定驱动器上的目录结构
B.显示当前驱动器或指定驱动器上的某目录下的文件名
C.显示根目录下的文件名
D.显示该路径下的文件
正确答案:————
13.[单选题]可以与ADO数据控件绑定的控件必须具有（ ）属性。
A.Connectionstring
B.Caption
C.DataSource
D.RecordSource
正确答案:————
14.[单选题]执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A.只能写，不能读
B.只能读，不能写
C.既可以读，也可以写
D.不能读，不能写
正确答案:————
15.[单选题]以下能判断是否到达文件尾的函数是（ ）。
A.BOF
B.LOC
C.LOF
D.EOF
正确答案:————
16.[单选题]为了保留动态数组中原有元素的值，需要使用关健字（ ）。
A.Static
B.Preserve
C.Option Base
D.Option Compare
正确答案:————
17.[单选题]如果要改变窗体的标题，则需要设置的属性是（ ）。
A.Caption
B.Name
C.BackColor
D.Borderstyle
正确答案:————
18.[单选题]窗体的MouseDown事件过程如下：
Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)
其中有4个参数，关于这些参数，正确的描述是（ ）。
A.通过Button参数判定当前按下的是哪一个鼠标键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt键和Ctrl键
D.参数x、y用来设置鼠标当前位置的坐标
正确答案:————
19.[单选题]在下列动作中，不能引发命令按钮Click事件的是（ ）。
A.在按钮上单击鼠标左键
B.在按钮上单击鼠标右键
C.把焦点转移到按钮上，然后按回车
D.如果按钮有快捷字母键，按Alt+快捷字母键
正确答案:————
20.[单选题]设有如下通用过程：
Public Sub Fun(a(),ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
EndSub
在窗体上画一个名称为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
EndSub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
A.10
B.15
C.25
D.24
正确答案:————
19春《VB程序设计》在线作业3
1.[单选题]代码Command1.Caption=”退出”,其中Command1是（ ），Caption是（ ）,“退出”是（ ）。请选择一个正确答案（ ）。
A.方法，事件，属性
B.对象，属性，值
C.对象，方法，值
D.方法，对象，值
正确答案:——B——
2.[单选题]以下叙述中正确的是（ ）。
A.窗体的Name属性指定窗体的名称，用来标识一个窗体
B.窗体的Name属性的值是显示在窗体标题栏中的文本
C.可以在运行期间改变对象的Name属性的值
D.对象的Name属性值可以为空
正确答案:——A——
3.[单选题]为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A.Get文件号，记录号，变量名
B.Get文件号，变量名，记录号
C.Put文件号，变量名，记录号
D.Put文件号，记录号，变量名
正确答案:——D——
4.[单选题]在Visual Basic6.0中，改变控制的位置可以通过设置（ ）属性来实现。
A.Left和Top
B.Width和Height
C.Left和Height
D.Width和Top
正确答案:————
5.[单选题]使文本框获得焦点的方法是（ ）。
A.GotFocus
B.Change
C.ListFocus
D.SetFocus
正确答案:————
6.[单选题]在窗体上画一个名称为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)
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A.12
B.13
C.14
D.15
正确答案:————
7.[单选题]下列哪种说法正确的是（ ）。
A.通用对话框是Visual Basic 6.0的内部标准控件
B.要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”
C.打开“部件”对话框只有一种方法
D.程序运行过程中，通用对话框在窗体中是可见的
正确答案:————
8.[单选题]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
SelectCase 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
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A.10
B.20
C.30
D.40
正确答案:————
9.[单选题]Sub过程与Function函数的最根本区别是（ ）。
A.Function过程可以有参数，而Sub过程不可以
B.两种过程参数的传递方式不同
C.Sub过程无返回值，但Function过程有返回值
D.Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
正确答案:————
10.[单选题]下列哪个属性设置文本框中文字的对齐方式（ ）。
A.SelLength
B.Alignment
C.Multiline
D.ScrollBars
正确答案:————
11.[单选题]定义一个常量PI，可以使用下列语句中的（ ）。
A..PI=3.14159
B.Set PI = 3.14159
C.Const PI = 3.14159
D.Const PI
正确答案:————
12.[单选题]以下关于焦点的叙述中，错误的是（ ）。
A.如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
正确答案:————
13.[单选题]设在菜单编辑器中定义了一个菜单项，名为Menu1,为了在运行时隐藏该菜单项应使用的语句是（ ）。
A.Menu1.Enabled=True
B.Menu1.Enabled=False
C.Menu1.Visible=True
D.Menu1.Visible=False
正确答案:————
14.[单选题]执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A.只能写，不能读
B.只能读，不能写
C.既可以读，也可以写
D.不能读，不能写
正确答案:————
15.[单选题]下列属性中哪个不是图片框的属性（ ）。
A.Align
B.Picture
C.Stretch
D.AutoRedraw
正确答案:————
16.[单选题]设有语句：x=InputBox("输入数值","0","示例")
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ）。
A.变量x的值是数值10
B.在inputbox对话框标题栏中显示的是“示例”
C.0是默认值
D.变量x的值是字符串“10”
正确答案:————
17.[单选题]窗体上有一组合框Combol,窗体加载时的代码如下：
Private Sub Form_Load()
Combol. AddItem“电视机”
Combol. AddItem“录像机”
Combol. AddItem“VCD”
Combol. AddItem“组合音响”
End Sub
要在文本框Textl中显示列表中的第三个项目，则正确的语句的是（ ）。
A.Textl.Text=Combol.List(0)
B.Textl.Text=Combol.List(1)
C.Textl.Text=Combol.List(2)
D.Textl.Text=Combol.List(3)
正确答案:————
18.[单选题]用下面语句定义的数组，其元素个数是（ ）。
Dim A (-3 To 5) As Integer
A.6
B.7
C.8
D.9
正确答案:————
19.[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.无数据输出
正确答案:————
20.[单选题]在窗体中添加一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("Enter the Firstinteger")
b=InputBox("Enter the Secondinteger")
Print b+a
EndSub
程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。
A.246
B.123
C.456
D.123123
正确答案:————
无忧答案网附件是答案，请核对题目下载
页:
[1]