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