问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—142所示。要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为vbsj1.vbp,窗体文件名为vbsj1.frm。(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条,其名称分别为Cmd1(标题为“设置”)和Vsb1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:Max=窗体高度Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框,则在窗体上显示滚动框的位置值。程序的运行情况如图3—143所示。要求:不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。
【正确答案】正确答案:第1小题 步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个命令按钮,设置相关属性,其属性及值如表4—83所示。

步骤2:打开代码编辑窗口,编写按钮的Click事件过程中。 参考代码: Private Sub cmdChange_Click() BackColor=&HFF& End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,按表4—84在窗体中画出控件并设置其相关属性。

【答案解析】解析:第1小题:本题需在命令按钮的单击事件过程中,通过语句设置窗体的BackColor属性值为“&HFF&”。 第2小题:本题其实就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性,并且在水平滚动条的Change事件过程中,用Print方法把表示水平滚动条滑块位置的Value属性值输出到窗体上。