电子科大17春〔VB程序设计〕在线作业1.docVIP

2017秋17春电子科大17春《VB程序设计》在线作业1 一、单选题（共 20 道试题，共 100 分。） 1. 定时器控件Interval属性最多只能设置（ ）。 A. 1分多钟 B. 半分多钟 C. 2分多钟 D. 10分钟 正确答案： 2. DataCombo控件的RowSource属性是表示（ ）。 A. 给DataComebo控件提供列表项的字段 B. 目的表的数据源 C. 给DataCombo控件提供列表项的数据源 D. 更新目的表的字段 正确答案： 3. 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，该属性是（ ）。 A. Autosize B. Stretch C. Autoredraw D. Appearance 正确答案： 4. 在下列动作中，不能引发命令按钮Click事件的是（ ）。 A. 在按钮上单击鼠标左键 B. 在按钮上单击鼠标右键 C. 把焦点转移到按钮上，然后按回车 D. 如果按钮有快捷字母键，按Alt+快捷字母键 正确答案： 5. 能够触发文本框Chang事件的操作是（ ）。 A. 文本框失去焦点 B. 文本框获得焦点 C. 设置文本框的焦点 D. 改变文本框的内容 正确答案： 6. 设有如下通用过程： 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 正确答案： 7. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为（ ）。 A. 命令按钮移动到距窗体左边界、上边界各500的位置 B. 窗体移动到距屏幕左边界、上边界各500的位置 C. 命令按钮向左、上方向各移动500 D. 窗体向左、上方向各移动500 正确答案： 8. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() S = 0 For i = 1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是（ ）。 A. 1 B. 5 C. 27 D. 45 正确答案： 9. 在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是（ ）。 A. CommonDialog1.Filter=“*.DOC|*.doc” B. CommonDialog1.Filter=“文本文件（.doc）|（*.doc）” C. CommonDialog1.Filter=“text(.doc)||(*.doc)” D. CommonDialog1.Filter=“text(.doc)(*.doc)” 正确答案： 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. 设在菜单编辑器中定义了一个菜单项，名为Menu1,为了在运行时隐藏该菜单项应使用的语句是（ ）。 A. Menu1.Enabled=True B. Menu1.Enabled=False C. Menu1.Visible=True D. Menu1.Visible=False 正确答案： 12. 窗体的MouseDown事件过程如下： Form_MouseDown(Button