VB期末考试试题及答案 (1)

一、单项选择题（共10分）

参考程序：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode

Case vbKeyUp: Shape1.Move Shape1.Left, Shape1.Top - 100 Case vbKeyDown: Shape1.Move Shape1.Left, Shape1.Top + 100 Case vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top Case vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top End Select End Sub

第六题：20分

颜色拾取程序：单击“选取颜色”按钮后，出现种颜色后，改变文本框的背景色。界面如下：程序

调色板，选中某结果保存为6.frm和6.vbp。

页脚内容26

一、单项选择题（共10分）

参考程序：

Private Sub Command1_Click() CommonDialog1.ShowColor

Text1.BackColor = CommonDialog1.Color End Sub

第七题：20分

数据库浏览程序，显示NWIND.MDB中Employees表中的Photo字段。提示：数据库的位置在d:\\program files\\microsoft visual studio\\vb98，照片显示采用OLE控件。程序结果保存为7.frm和7.vbp。

页脚内容27

一、单项选择题（共10分）

参考答案：

采用data控件，设置属性Databasename和Recordsource； Ole控件的属性设置是Datasource和datafield

页脚内容28