[问答题] 注意：下面出现的“考生文件夹”均为C:wexam25160002。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画一个

[问答题] 注意：下面出现的“考生文件夹”均为C:wexam25160002。 请根据以下各小题的要求设计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。表 27—1控 件属 性设置值文本框NameFontTextText1黑体"程序设计"按钮NameCaptionC1"改变字体"　　第二步：编写程序代码．　　参考代码：　　　　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。表 27—2控 件属 性设置值图片框NameHeightWidthPicturePic118001600装入Pic1.bmp 第二步：编写程序代码。 参考代码： Option Explicit Private Sub Form_DblClick() P1.Picture = LoadPicture() End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。