问题
问答题
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画一个文本框，名称为Text1，字体为“黑体”，文本框中的初始内容为“程序设计”；再画一个命令按钮，名称为C1，标题为“改变字体”，如图27-1所示。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为“宋体”。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为sht1.vbp，窗体文件名为sjt1.frm。 (2) 在名称为Form1的窗体上画一个图片框，名称为P1，高为1800，宽为1600，并放入文件名为 picl.bmp的图片，如图27-2所示。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
答案
参考答案：
解析：文本框的文本由Text属性设置，字体由Font属性设置，在“属性”窗口中设置Font属性时，通过对话框来设置，在程序代码中设置Font属性时，可以使用文本框的FontName属性来设置字体名。命令按钮的标题由Caption属性设置，单击按钮触发Click事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性风表27-1。
| 控 件 | 属 性 | 设置值 |
| 文本框 | Name Font Text | Text1 黑体 "程序设计" |
| 按钮 | Name Caption | C1 "改变字体" |
参考代码：
Option Explicit
Private Sub C1_Click()
Text1.Font="宋体"
End Sub
Private Sub Form_Load()
Text1.FontName = "黑体"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
图片框的高由Height属性设置，宽由Width属性设置，在“属性”窗口中通过对话框装入图片，而如果要在程序代码中装入图片，应使用LoadPicture函数。其格式为：
图片框名.Picture=LoadPicture("文件名")
也可用该函数来删除图片框中的图片，用一个空字符出覆盖原来的图片即可。
双击窗体触发的事件时DblClick事件。
解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表27-2。
| 控 件 | 属 性 | 设置值 |
| 图片框 | Name Height Width Picture | Pic1 1800 1600 装入Pic1.bmp |
参考代码：
Option Explicit
Private Sub Form_DblClick()
P1.Picture = LoadPicture()
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。