(1)在窗体上建立一个名称为Listl的列表框和一个名为Text1的文本框。编写程序,实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列,Text1中的项目按照加入的先后顺序排列。当双击List1某个项目时,该项目从列表框中消失,并出现在

admin2010-07-13  33

问题 (1)在窗体上建立一个名称为Listl的列表框和一个名为Text1的文本框。编写程序,实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列,Text1中的项目按照加入的先后顺序排列。当双击List1某个项目时,该项目从列表框中消失,并出现在Text1中。程序运行时的窗体界面如图2-3所示。
    注意:考生完成程序编写后,将工程文件与窗体文件保存到考生文件夹下,文件名分别为sj3.vbp与sj3。frm。
(2)在考生文件夹下有一个工程文件sj4.vbp与窗体文件sj4.frm,在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能:单击“开始”按钮.就开始倒计数,每隔1秒,文本框中的数减1;单击“停止”按钮,则停止计数,初始计数为60,当计数到0时,则重新从60开始倒计数。如图2-4所示。

    注意:修改适当的控件的属性,并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。考生完成程序编写后,将工程文件与窗体文件保存到考生文件夹下,文件名分别为sj4.vbp与Sj4.frm。

选项

答案 (1)本题主要考查列表框控件的使用。 列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按Ctrl+Enter键换行再输入下一项),也可以在程序运行时通过代码:列表框名.AddItem“项目”加入;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListIndex属性用于设置或返回列表框中当前所选列表项的索引号;Sorted属性用于设置或返回列表框中的列表项是否按字母顺序排序,值为True时保持排序;RemoveItem方法用于删除指定索引号的列表项。 根据题意,新建“标准EXE”工程,将一个List控件和一个文本框控件添加到窗体上,列表框的名称为List1,List属性加入以下项“AAAAA”、“BBBBB”、“CCCCC”、“DDDDD”、“1111”、“22222”、“33333”和“44444”。文本框的名称为Textl、MuhiLine属性为True、ScrollBar属性为2。双击Listl进入代码编写窗口.补充后的具体代码如下: Private Sub Listl_DblClick() Textl.Text=Textl.Text+Listl.List(Listl.ListIndex)+vbCrLf ’将选中的项加到Textl中显示 Listl.Removehem Listl.Listlndex’删除选中项 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查计时器控件的使用。计时器是否启用通过Enabled属性设置,值为True时启用,值为False不启用。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置,Interval属性的单位为毫秒.缺省值为0,此时计时器也不启用。 根据题意,将一个标签、两个命令按钮和一个计时控件添加到窗体中,标签的名称为Labell、Caption属性为60,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“开始”和“停止”,Timer的名称为Timerl。双击Command1 进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() Timerl.Interva1=1000 ’将Timerl的间隔设为1秒 End Sub Private Sub Command2_Click() Timerl.Interva1=0’将Timerl的间隔设为0 End Sub Private Sub Timerl_Timer() Labell.Caption=Val(Labell.Caption)-1 ’每个间隔Labell的计数减1 If Labell.Caption=0 Then Labell.Caption=60 ’当Labell的计数等于0时,Labell重新回到60 End If End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/8yg0FFFM
0

最新回复(0)