电子科大19春《VB程序设计》在线作业1 

(单选题)1: 在窗体上画一个名称为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: 无数据输出 正确答案:

(单选题)2: 当一个工程含有多个窗体时，其中的启动窗体是（A: 启动Vosual Basic时建立的窗体 B: 第一个添加的窗体

C: 最后一个添加的窗体工程属性

D: 在“工程属性”对话框中指定的窗体 正确答案:

(单选题)3: 设有如下程序： 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 正确答案:

(单选题)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 End Sub

运行上面的程序，单击命令按钮，其输出结果是（ ）。 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 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

正确答案:

(单选题)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) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 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(\b=InputBox(\Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入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 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

正确答案:

(单选题)18: 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。 A: 单选按钮 B: 图片框 C: 通用对话框 D: 文本框 正确答案:

(单选题)19: 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。 A: Autosize B: Stretch C: Autoredraw D: Appearance 正确答案: