奥鹏教育电子科技大学《VB程序设计》在线作业一

奥鹏电子科技大学平时在线作业

20春《VB程序设计》在线作业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:246
B:123
C:456
D:123123
答案问询微信：424329

在窗体上画一个名称为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 Is10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。
A:10
B:20
C:30
D:40
答案问询微信：424329

指出下面哪个语句不是写文件语句（ ）。
A:Print
B:Output
C:Write
D:Put
答案问询微信：424329

窗体上有一组合框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)
答案问询微信：424329

设组合框Combo1中有三个项目，则以下能删除最后一项的语句是（ ）。
A:Combo1.RemoveItem Text
B:Combo1.RemoveItem 2
C:Combo1.RemoveItem 3
D:Combo1.RemoveItem Combo1.Listcount
答案问询微信：424329

设有如下通用过程：
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:10
B:15
C:25
D:24
答案问询微信：424329

为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。
A:Get文件号，记录号，变量名
B:Get文件号，变量名，记录号
C:Put文件号，变量名，记录号
D:Put文件号，记录号，变量名
答案问询微信：424329

在下列动作中，不能引发命令按钮Click事件的是（ ）。
A:在按钮上单击鼠标左键
B:在按钮上单击鼠标右键
C:把焦点转移到按钮上，然后按回车
D:如果按钮有快捷字母键，按Alt+快捷字母键
答案问询微信：424329

在窗体上画一个名称为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:12
B:13
C:14
D:15
答案问询微信：424329

设有如下程序：
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:4321
B:5432
C:6543
D:7654
答案问询微信：424329

在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。
A:CommonDialog1.Filter=“*.DOC|*.doc”
B:CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C:CommonDialog1.Filter=“text(.doc)||(*.doc)”
D:CommonDialog1.Filter=“text(.doc)(*.doc)”
答案问询微信：424329

如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（ ）。
A:True
B:False
C:1
D:出错信息
答案问询微信：424329

在窗体上画一个名称为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:1 3.4 5.8
B:1 3 5
C:1 4 7
D:无数据输出
答案问询微信：424329

以下关于焦点的叙述中，错误的是（ ）。
A:如果文本框的TabStop属性为False，则不能接收从键盘输入的数据
B:当文本框失去焦点时，触发LostFocus事件
C:当文本框的Enabled属性为False时，其Tab顺序不起作用
D:可以用TabIndex属性改变Tab顺序
答案问询微信：424329

执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。
A:只能写，不能读
B:只能读，不能写
C:既可以读，也可以写
D:不能读，不能写
答案问询微信：424329

Sub过程与Function函数的最根本区别是（ ）奥鹏电子科技大学平时在线作业。
A:Function过程可以有参数，而Sub过程不可以
B:两种过程参数的传递方式不同
C:Sub过程无返回值，但Function过程有返回值
D:Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用
答案问询微信：424329