问题
问答题
在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。要求：编写程序，以实现试题要求的功能。注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
答案
参考答案：
解析：① 对象主要属性设置如表3所示。
| 对象 | 对象名 | 属性名 | 属性值 |
| 窗体 | Form1 | Caption | Form |
| 命令按钮 | Cmd1 | Caption | 清除 |
| 文本框 | Text1 | Text | AAAA |
③ 编程代码：
Private Sub Cmd1_C1ick()
Text1. Text＝""
End sub
2．① 窗体Load事件过程的程序如下：
Private Sub Form_Load()
List1.AddItem"项目1"
List1.AddItem"项目2"
List1.AddItem"项目3"
List1.Addltem"项目4"
End Sub
② 命令按钮Click事件的程序如下：
Private Sub Command1_Click()
For i＝0 To List1.ListCount—1
If List1. Selected(i)＝True
Then
Text1. Text＝List1. List
(i)
End If
Next i
End Sub