vb习题参考答案更新.docVIP

第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 第8章 文 件 一、判断题 1．× 2．√ 3．× 4．√ 5．√ 6．× 7．√ 8．× 9．√ 10．√ 11．× 12．× 13．√ 14．× 15．× 二、选择题 1．A 2．C 3．B 4．B 5．A 6．C 7．C 8．B 9．C 10．B 11．D 12．B 三、填空题 1．ChDir 2．FileLen 3．Change 4．EOF 5．Line Input 四、程序阅读题 程序1. y= 1 a= 1 程序2. NO. 1 3 程序3. y= 3 a= 2 NO. 2 4 窗体：36 25 16 9 4 1