22春电子科技大学《VB程序设计》课程在线作业1

王老师

答案来历：熊猫奥鹏（www.xmdd188.com）VB程序设计-[电子科技大学]《VB程序设计》课程在线作业1
试卷总分:100  得分: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
EndSub
程序运转后，单击指令按钮，先后在两个输入框平分别输入123和123，则输出成果是（ ）。
A、246
B、123
C、456
D、123123
正确答案:

第2题,在窗体上画一个称号为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 Is10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
EndSub
程序运转后，假如在文本框Text1中输入10，然后单击指令按钮，则在Text2中显现的内容是（ ）。
A、10
B、20
C、30
D、40
正确答案:

第3题,指出下面哪个句子不是写文件句子（ ）。
A、Print
B、Output
C、Write
D、Put
正确答案:

第4题,窗体上有一组合框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)
正确答案:

答案来历：熊猫奥鹏（www.xmdd188.com）,设组合框Combo1中有三个项目，则以下能删去最终一项的句子是（ ）。
A、Combo1.RemoveItem Text
B、Combo1.RemoveItem 2
C、Combo1.RemoveItem 3
D、Combo1.RemoveItem Combo1.Listcount
正确答案:

第6题,设有如下通用过程：
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
正确答案:

第7题,为了把一个记载型变量的内容写入文件中指定的方位，要运用句子（ ）。
A、Get文件号，记载号，变量名
B、Get文件号，变量名，记载号
C、Put文件号，变量名，记载号
D、Put文件号，记载号，变量名
正确答案:

第8题,鄙人列动作中，不能引发指令按钮Click事情的是（ ）。
A、在按钮上单击鼠标左键
B、在按钮上单击鼠标右键
C、把焦点搬运到按钮上，然后按回车
D、假如按钮有方便字母键，按Alt+方便字母键
正确答案:

第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)
EndSub
程序运转后，单击指令按钮，在文本框中显现的值是（ ）。
A、12
B、13
C、14
D、15
正确答案:

答案来历：熊猫奥鹏（www.xmdd188.com）,设有如下程序：
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
正确答案:

第11题,在调用"翻开"或"保留"文件对话框时，假如需求指定文件列表框列出的文件类型是.doc文件，则正确的描绘格局是（ ）。
A、CommonDialog1.Filter="*.DOC|*.doc"
B、CommonDialog1.Filter="文这篇文章件（.doc）|（*.doc）"
C、CommonDialog1.Filter="text(.doc)||(*.doc)"
D、CommonDialog1.Filter="text(.doc)(*.doc)"
正确答案:

答案来历：熊猫奥鹏（www.xmdd188.com）,假如要在菜单中增加一个分隔线，则应将其Caption特点设置为（ ）。
A、*
B、=
C、&
D、-
正确答案:

第13题,下列哪个特点设置文本框中文字的对齐方法（ ）。
A、SelLength
B、Alignment
C、Multiline
D、ScrollBars
正确答案:

第14题,以下能判别是不是抵达文件尾的函数是（ ）。
A、BOF
B、LOC
C、LOF
D、EOF
正确答案:

答案来历：熊猫奥鹏（www.xmdd188.com）,下面叙说错误的是（ ）。
A、驱动器列表框DriveListBox显现当时系统中有用磁盘驱动器
B、目录列表框DirListBox显现当时驱动器分层目录树
C、文件列表框FileListBox显现选定目录中的一切文件
D、文件列表框FileName特点是设定答应显现文件名的文件类型
正确答案:

第16题,设a=10,b=5,c=1,履行句子Print abc后，窗体上显现的是（ ）。
A、True
B、False
C、1
D、犯错信息
正确答案:

第17题,在窗体上画一个称号为Command1的指令按钮，然后编写如下事情过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num6
Print num;
num = num + 2.4
Loop
EndSub
程序运转后，单击指令按钮，则窗体上显现的内容是（ ）。
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、很多据输出
正确答案:

第18题,以下关于焦点的叙说中，错误的是（ ）。
A、假如文本框的TabStop特点为False，则不能接纳从键盘输入的数据
B、当文本框失掉焦点时，触发LostFocus事情
C、当文本框的Enabled特点为False时，其Tab次序不起效果
D、能够用TabIndex特点改动Tab次序
正确答案:

第19题,履行句子：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据可以履行的操作是（ ）。
A、只能写，不能读
B、只能读，不能写
C、既能够读，也能够写
D、不能读，不能写
正确答案:

答案来历：熊猫奥鹏（www.xmdd188.com）,Sub过程与Function函数的最底子差异是（ ）。
A、Function过程能够有参数，而Sub过程不可以以
B、两种过程参数的传递方法不一样
C、Sub过程无回来值，但Function过程有回来值
D、Sub过程是句子级调用，能够运用Call或直接运用过程名，但Function过程是在表达式中调用
正确答案: