问答题
注意：下面出现的“”均为C：/wexam/25160002。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：
在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图24-1所示。要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画两个命令按钮，如图24-2所示，其名称分别为Cmd1和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图24-3所示。要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：
在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图24-1所示。要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画两个命令按钮，如图24-2所示，其名称分别为Cmd1和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图24-3所示。要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】[解析] 在窗体上建立好控件后，设置控件的属性。
在Visual Basic中，文本框的多行显示由MultiLine属性设置，垂直滚动条由ScrollBars属性设置，文本框中显示信息由 Text属性设置，字体由Font属性设置。窗体的标题由Caption属性设置。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表24-1。
表 24-1
第二步：调试并运行程序。
第三步：按题目要求存盘。
(2) [解析] 在窗体上建立控件后，先设置控件的属性，再编写事件过程。
单击命令按钮触发Click事件。利用按钮的Height和Width属性，来改变按钮的大小；利用按钮的Left和Top属性，来改变按钮的位置。解题步骤：
第一步：建立控件并设置其属性。程序中用到的控件及其属性见表24-2。
表 24-2
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Cmd1_Click()
Cmd1.Left=0
Cmd1.Top=0
End Sub
Private Sub Cmd2_Click()
Cmd2.Height=Cmd2.Height*2
Cmd2.Width=Cmd2.Width*2
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
答案考生文件夹
在Visual Basic中，文本框的多行显示由MultiLine属性设置，垂直滚动条由ScrollBars属性设置，文本框中显示信息由 Text属性设置，字体由Font属性设置。窗体的标题由Caption属性设置。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表24-1。
表 24-1
控 件 | 属 性 | 设 置 值 |
| 文本框 | MultiLine ScrollBars Text Font | True 2-Vertical 程序设计 黑体 规则 三号 |
| 窗体 | Caption | 设置文本框属性 |
第三步：按题目要求存盘。
(2) [解析] 在窗体上建立控件后，先设置控件的属性，再编写事件过程。
单击命令按钮触发Click事件。利用按钮的Height和Width属性，来改变按钮的大小；利用按钮的Left和Top属性，来改变按钮的位置。解题步骤：
第一步：建立控件并设置其属性。程序中用到的控件及其属性见表24-2。
表 24-2
控 件 | 属 性 | 设 置 值 |
| 按钮 | Caption | Cmd1 |
| 按钮 | Caption | Cmd2 |
参考代码：
Option Explicit
Private Sub Cmd1_Click()
Cmd1.Left=0
Cmd1.Top=0
End Sub
Private Sub Cmd2_Click()
Cmd2.Height=Cmd2.Height*2
Cmd2.Width=Cmd2.Width*2
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
答案考生文件夹
【答案解析】