北语19春《VB程序设计》在线作业2（含答案）参考

网院作业

19春《VB程序设计》在线作业2
1.[单选题]下列哪种说法正确的是（   ）。
奥鹏19春答案
奥鹏北京语言大学
    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)
End  Sub
程序运行后，单击命令按钮，在文本框中显示的值是（   ）。
    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
End  Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（   ）。    奥鹏作业答案
奥鹏北京语言大学
    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
End  Sub
运行上面的程序，单击命令按钮，其输出结果是（   ）。
    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
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.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
End  Sub
程序运行后，单击命令按钮，先后在两个输入框中分别输入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
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
    正确答案:————
奥鹏在线作业答案
奥鹏北京语言大学