[问答题] 在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写

[问答题] 在名称为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所示。表 3对象对象名属性名属性值窗体Form1CaptionForm命令按钮Cmd1Caption清除文本框Text1TextAAAA ② 分析：按试题要求在窗体上画一个文本框和一个命令按钮，并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。 ③ 编程代码： Private Sub Cmd1_C1ick() Text1. Text＝"" End sub2．① 窗体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