第7章对话框与菜单程序设计
一、判断题
1．√2．√3．√4．×5．×6．×7．√8．√9．√10．√
二、选择题
1．D 2．A 3．C 4．C 5．B 6．D 7．A 8．B 9．D 10．B
三、填空题
1．窗体控制菜单、下拉式菜单、快捷菜单2．ShowFont
3．打开文件、另存为、颜色、字体、打印对话框4．工程、部件
5．CommonDialog1.Action =3、CommonDialog1.ShowColor
6．提示信息、对话框类型、对话框标题7．Click
8．工具9．代码窗口、Click 10．相同、正
四、程序阅读题
程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。

程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。

五、程序填空题
1．（1）Int(Rnd*100) （2）Str(i) （3）Exit For
2．（1）False （2）Date （3）CommonDialog1.Color （4）m1
六、程序设计题
程序1．界面设计略，过程设计如下：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.FileName
End Sub
程序2．界面设计略，过程设计如下：
Private Sub Command1_Click()
CommonDialog1.ShowSave
List1.AddItem CommonDialog1.FileName
End Sub
程序3．界面设计如图10-9、表10-2所示，过程设计如下：
Private Sub Sqr_Click()
Shape1.Shape = 1
End Sub
Private Sub Rec_Click()
Shape1.Shape = 0
End Sub
Private Sub Oval_Click()
Shape1.Shape = 2
End Sub
Private Sub Circle_Click()
Shape1.Shape = 3
End Sub
Private Sub Rrec_Click()
Shape1.Shape = 4
End Sub
Private Sub RSqr_Click()
Shape1.Shape = 5
End Sub
Private Sub Shp_Click()
Shape1.FillStyle = 2
End Sub
Private Sub Shzh_Click()
Shape1.FillStyle = 3
End Sub
Private Sub Xiex_Click()
Shape1.FillStyle = 4
End Sub
Private Sub ShPJ_Click()
Shape1.FillStyle = 6
End Sub
Private Sub XJ_Click()
Shape1.FillStyle = 7
End Sub
Private Sub FillColor_Click()
CommonDialog1.ShowColor
Shape1.FillColor = CommonDialog1.Color End Sub
Private Sub Exit_Click()
End
End Sub。