内容发布更新时间 : 2024/12/22 18:53:01星期一 下面是文章的全部内容请认真阅读。

For c=0 to 9 For d=0 to 9

X=1000*a+100*b+10*c+d

If a+b+c+d=10*a+b and a*b*c*d=10*c+d then print x Next d,c,b,a

第三题：20分

3、设计一个如下界面的菜单程序，要求效果：单击菜单项可调出相应功能。提示：Shell函数的格式为shell 路径，１。程序结果保存为3.frm和3.vbp。

程序结果保存为3.frm和3.vbp。

参考程序：

Private Sub Mnote_Click() Shell \End Sub

Private Sub MExit_Click() End End Sub

第四题：25分

编程实现如下程序，当在列表框中单击某一学生姓名时，在文本框出现学生的籍贯。相应的学生信息如下表：

序号 1 2 3 姓名 王芸姗 林丽菲 张雪涛 籍贯 安徽 辽宁 陕西

要求的程序界面：

程序结果保存为4.frm和4.vbp。 参考答案：

Dim a, b

Private Sub Form_Load()

a = Array(\王芸姗\林丽菲\张雪涛\ b = Array(\安徽\辽宁\陕西\ For i = LBound(a) To UBound(a) List1.AddItem a(i) Next i End Sub

Private Sub List1_Click() Text1 = b(List1.ListIndex) End Sub

第五题：25分

用形状控件在窗体上画一个蓝色小球，运行时可用上、下、左、右四个方向键控制其移动。 程序界面为：程序结果保存为5.frm和5.vbp。

参考程序：

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。

参考程序：

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。

参考答案：

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