第 1 页:单选题 |
第 5 页:操作题 |
第 8 页:参考答案 |
三、简单应用题
(1)本题主要考查列茅,框控件的使用。
列表框控件用于显示可供单一或多个选择的列表项。。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按Ctrl+Enter键换行再输入下一项),也可以在程序运行时通过代码:列表框名.Addhem“项目”加入;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListIn dex属性用于设置或返回刈表框中当前所选列表项的索引号;Sorted属性用于设置或返回列表框中的列表项是否按字母顺序排序,值为True时保持排序;RemoveItem方法用于删除指定索引号的列表项。
根据题意,新建“标准EXE”工程,将一个List控件和一个文本框控件添加到窗体上,列表框的名称为List1,List属性加入以下项“AAAAA”、“BBBBB”、“CCCCC”、“DDDDD”、“11111”、“22222”、“33333”和“44444”,文本框的名称为Text1、MuhiLine属性为True、ScrollBar属性为2。双击List1进入代码编写窗口,补充后的具体代码如一:
Private Sub List1_DbtClick()
Text1.Text=Text1.Text+Listl.List(List1.ListIndex)+vbCrLf ’将选中的项加到Text1中显 示
List1.Removehem List1.Listlndex’删除选中项
End Sub
单击 按钮运行程序,并按要求保存。
(2)本题主要考查计时器控件的使用。计时器是否启用通过Enabled属性设置,值为True时启用,值为False不启用。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置,Interval属性的单位
为毫秒,缺省值为0,此时计时器也不启用。
根据题意,将一个标签、两个命令按钮和一个计时控件添加到窗体中,标签的名称为Label1、Caption属性为60,命令按钮的名称分别为Command1和Command2,Caption属性分别为“开始”和“停止”,Timer的名称为Timer1。双击Commandl进入代码窗口,补充后的代码如下:
Private Sub Command1_Click()
Timer1.Interval=1000
’将Timer1的间隔_乏为l秒
End Sub
Private Sub Command2_Click()
Timer1.Interval=0 ’将Timer1的间隔设为0
End Sub
Private Sub Timer1_Timer()
Label1.Caption=Val(Label1.Caption)-1
’每个间隔Label1的计数减l
If Label1.Caption=0 Then
Label1.Caption=60
’当Label1的计数等于0时,Label1重新回到60
End Sub
单击 按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |