0514《VB程序设计》在线作业

《VB程序设计》在线作业
(单选题) 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: 窗体上有一组合框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)
(单选题) 3: 在窗体中添加一个命令按钮，然后编写如下程序： 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
(单选题) 4: 在下列动作中，不能引发命令按钮Click事件的是（）。

A: 在按钮上单击鼠标左键
B: 在按钮上单击鼠标右键
C: 把焦点转移到按钮上，然后按回车
D: 如果按钮有快捷字母键，按Alt+快捷字母键
(单选题) 5: ADO数据控件的RecordSoure属性是表示（）。

A: 与ADO数据控件连接的数据库
B: 与数据库的连接方式
C: 数据库类型
D: ADO数据控件可访问的数据来源
(单选题) 6: 为了保留动态数组中原有元素的值，需要使用关健字（）。

A: Static
B: Preserve
C: Option Base
D: Option Compare
(单选题) 7: 能够触发文本框Chang事件的操作是（）。

A: 文本框失去焦点
B: 文本框获得焦点
C: 设置文本框的焦点
D: 改变文本框的内容
(单选题) 8: 当拖动滚动条中的滚动块时，将触发滚动条的哪个事件（）。

A: Move
B: Change
C: Scroll
D: SetFocus
(单选题) 9: 在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是（）。

A: Enabled
B: Visible
C: Interval
D: Timer
(单选题) 10: 设有如下程序： 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
(单选题) 11: 设有如下通用过程： 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
(单选题) 12: 使文本框获得焦点的方法是（）。

A: GotFocus
B: Change
C: ListFocus
D: SetFocus
(单选题) 13: 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（）。

A: Autosize
B: Stretch
C: Autoredraw
D: Appearance
(单选题) 14: 下列哪种说法正确的是（）。

A: 通用对话框是Visual Basic 6.0的内部标准控件
B: 要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0”
C: 打开“部件”对话框只有一种方法
D: 程序运行过程中，通用对话框在窗体中是可见的
(单选题) 15: 设有语句：x=InputBox("输入数值","0","示例") 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）。

A: 变量x的值是数值10
B: 在inputbox对话框标题栏中显示的是“示例”
C: 0是默认值
D: 变量x的值是字符串“10”
(单选题) 16: 设在菜单编辑器中定义了一个菜单项，名为Menu1,为了在运行时隐藏该菜单项应使用的语句是（）。

A: Menu1.Enabled=True
B: Menu1.Enabled=False
C: Menu1.Visible=True
D: Menu1.Visible=False
(单选题) 17: 下列哪些方法不属于通用对话框（）。

A: ShowColor
B: ShowFont
C: ShowPrint
D: ShowList
(单选题) 18: 在窗体上画一个名称为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
(单选题) 19: 用下面语句定义的数组，其元素个数是（）。

Dim A (-3 To 5) As Integer A: 6
B: 7
C: 8
D: 9
(单选题) 20: 在窗体上画一个命令按钮（其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。