问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
问答题
在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件Point11(香蕉图标)装入图像框Image1中，如图1所示。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
【正确答案】[操作步骤]
第1步：建立一个新的标准EXE工程，保持窗体所有属性不变。
第2步：添加一个图片框控件，将其Width和Height都设置为1000。
第3步：在图片框上画一个图像框控件，将其BorderStyle属性设置为1-Fixed Single；保持图像框为选中状态，单击其Picture属性，再单击“选取文件”按钮，在弹出的“加载图片”对话框中选中考生目录下的图标文件Point11.ICO，再单击“打开”按钮。
第4步：调试、运行并保存程序。
第1步：建立一个新的标准EXE工程，保持窗体所有属性不变。
第2步：添加一个图片框控件，将其Width和Height都设置为1000。
第3步：在图片框上画一个图像框控件，将其BorderStyle属性设置为1-Fixed Single；保持图像框为选中状态，单击其Picture属性，再单击“选取文件”按钮，在弹出的“加载图片”对话框中选中考生目录下的图标文件Point11.ICO，再单击“打开”按钮。
第4步：调试、运行并保存程序。
【答案解析】[解析] 本题主要考查图片框(PictureBox)和图像框(Image)控件的使用。PictureBox是一个容器型控件，可以在PictureBox控件上面加上其他控件。这些控件随PictureBox移动而移动，其Top和Left属性是相对PictureBox而言，与窗体无关。在PictureBox控件上绘制其他控件时，鼠标的起始位置必须在图片框范围内。PictureBox和Image控件都可以显示图片，图片内容由Picture属性决定。
问答题
在名称为Form1的窗体上有一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。
要求：
①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2。
②运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框。如图2所示。
[*]
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
要求：
①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2。
②运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框。如图2所示。
[*]
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】[操作步骤]
第1步：建立一个新的标准EXE工程，保持窗体所有属性不变。
第2步：在窗体上添加一个命令按钮控件，将其Caption属性设置为“保存文件”。
第3步：添加外部控件。右键单击工具箱，并在弹出的快捷菜单上选择“部件”菜单，在弹出的“部件”对话框中找到Microsoft Common Dialog Control 6.0(SP6.0)选项，并在其前面的复选框上单击打上勾号，再单击对话框中的“确定”按钮。此时，工具箱上会添加上一个通用对话框(CommonDialog)控件按钮，在窗体上建立一个通用对话框。
第4步：设置通用对话框的属性，如表1所示。
第5步：编写代码。编写命令按钮的Click事件过程。
Private Sub Command1_Click()
CommonDialog1.ShowSave
End Sub
第6步：调试并运行程序。最后按题目要求保存工程。
第1步：建立一个新的标准EXE工程，保持窗体所有属性不变。
第2步：在窗体上添加一个命令按钮控件，将其Caption属性设置为“保存文件”。
第3步：添加外部控件。右键单击工具箱，并在弹出的快捷菜单上选择“部件”菜单，在弹出的“部件”对话框中找到Microsoft Common Dialog Control 6.0(SP6.0)选项，并在其前面的复选框上单击打上勾号，再单击对话框中的“确定”按钮。此时，工具箱上会添加上一个通用对话框(CommonDialog)控件按钮，在窗体上建立一个通用对话框。
第4步：设置通用对话框的属性，如表1所示。
表1
|
Private Sub Command1_Click()
CommonDialog1.ShowSave
End Sub
第6步：调试并运行程序。最后按题目要求保存工程。
【答案解析】[解析] 本题需要用到外部控件Microsoft Common Dialog Control，使用外部控件前需要先加载外部控件到工具箱中。