问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图3—79所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
【正确答案】正确答案：第1小题 步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4—49所示。
步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。 参考代码： Private Sub C1_Click() Form1．BackColor=&HFF& End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题 步骤1：新建一个“标准EXE”工程。 步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表4—50设置它们的相关属性。
步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。 参考代码： Private Sub C1_Click() Form1．BackColor=&HFF& End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题 步骤1：新建一个“标准EXE”工程。 步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表4—50设置它们的相关属性。【答案解析】解析：第1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为“&HFF&”。 第2小题：当形状控件的Shape属性值是3时显示为圆：形状控件的填充色样式通过FillStyle属性设置，其中0为实线、1为透明、2为水平线、3为垂直线、4为向上对角线、5为向下对角线、6为交义线、7为对角交叉线，缺省值为1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的Click事件过程中，用语句将列表框中所选的值(通过其Text属性返回)作为形状控件的填充参数。