三、简单应用题

　　42(1)在窗体上建立一个名称为List1的列表框和一个名为Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列，Text1中的项目按照加入的先后顺序排列。当双击List1某个项目时，该项目从列表框中消失，并出现在Text1中。程序运行时的窗体界面如图26-3所示。

　　图26-3

　　注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3.vbp与sj3.frm。

　　(2)在考生文件夹下有一个工程文件sj4.vbp与窗体文件sj4.frm，在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击"开始"按钮，就开始倒计数，每隔1秒，文本框中的数减1;单击"停止"按钮，则停止计数，初始计数为60，当计数到0时，则重新从60开始倒计数。要求：修改适当的控件的属性，并去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。程序运行效果如图26-4所示。

　　图26-4

　　注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4.vbp与sj4.frm。

　　参考解析：

　　(1)本题主要考查列表框控件的使用。

　　列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按Ctrl+Enter键换行再输入下一项)，也可以在程序运行时通过代码：列表框名.AddItem "项目"加入;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListIndex属性用于设置或返回列表框中当前所选列表项的索引号;Sorted属性用于设置或返回列表框中的列表项是否按字母顺序排序，值为True时保持排序;RemoveItem方法用于删除指定索引号的列表项。

　　根据题意，新建"标准EXE"工程，将一个List控件和一个文本框控件添加到窗体上，列表框的名称为List1，List属性加入以下项"AAAAA"、"BBBBB"、"CCCCC"、"DDDDD"、"11111、"22222"、"33333"和"44444"，文本框的名称为Text1、MultiLine属性为True、ScrollBar属性为2。双击List1进入代码编写窗口，补充后的具体代码如下：

　　Private Sub List1_DblClick()

　　Text1.Text = Text1.Text + List1.List(List1.ListIndex) + vbCrLf

　　'将选中的项加到Text1中显示

　　List1.RemoveItem List1.ListIndex '删除选中项

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　(2)本题主要考查计时器控件的使用。计时器是否启用通过Enabled属性设置，值为True时启用，值为False不启用。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置，Interval属性的单位为毫秒，缺省值为0，此时计时器也不启用。

　　根据题意，将一个标签、两个命令按钮和一个计时控件添加到窗体中，标签的名称为Label1、Caption属性为60，命令按钮的名称分别为Command1和Command2，Caption属性分别为"开始"和"停止"，Timer的名称为Timer1。双击Command1进入代码窗口，补充后的代码如下：

　　Private Sub Command1_Click()

　　Timer1.Interval = 1000 '将Timer1的间隔设为1秒

　　End Sub

　　Private Sub Command2_Click()

　　Timer1.Interval = 0 '将Timer1的间隔设为0

　　End Sub

　　Private Sub Timer1_Timer()

　　Label1.Caption = Val(Label1.Caption) - 1 '每个间隔Label1的计数减1

　　If Label1.Caption = 0 Then

　　Label1.Caption = 60 '当Label1的计数等于0时，Label1重新回到60

　　End If

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机等级考试时间安排(各地略有不同)

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题