电科19秋《VB程序设计》在线作业【满分答案】

19秋《VB程序设计》在线作业1-0001

试卷总分:100    得分:100

一、 单选题 (共 20 道试题,共 100 分)

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(“Enter the Firstinteger”) b=InputBox(“Enter the Secondinteger”) 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

正确答案:？

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用来设置鼠标当前位置的坐标

正确答案:？