1. 在名称为Form1的窗体上画一个名称为Text1的文本框,通过属性窗口设置文本框属性,在文本框中显示“AAAA”(如图2—1所示);再建立一个名称为Cmd1,标题为“清除”的命令按钮,编写适当的事件过程。要求程序运行后,如果单击“清除”命令按钮,则清

admin2009-03-17  42

问题 1. 在名称为Form1的窗体上画一个名称为Text1的文本框,通过属性窗口设置文本框属性,在文本框中显示“AAAA”(如图2—1所示);再建立一个名称为Cmd1,标题为“清除”的命令按钮,编写适当的事件过程。要求程序运行后,如果单击“清除”命令按钮,则清除文本框中所显示的信息。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sit3.vbp。
2.在考生文件夹中有工程文件sit4.vbp,它包含一个窗体文件form1。在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为Command1,标题为“复制”。要求程序运行后,在列表框中自动建立四个列表项,分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中(程序运行结果如图2—2)。
要求:编写程序,以实现试题要求的功能。
注意:存盘时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

选项

答案① 对象主要属性设置如表3所示。 [*] ② 分析:按试题要求在窗体上画一个文本框和一个命令按钮,并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。 ③ 编程代码: 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_Cllek() For i=0 To List1.ListCount—1 If List1. Selected(i)=True Then Text1. Text=List1. List (i) End If Next i End Sub

解析
转载请注明原文地址:https://kaotiyun.com/show/Mk1p777K
0

最新回复(0)