(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有

admin2017-12-14  21

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有,则自动选中首个列表项(呈蓝色光条显示);如果有,且不是最后一个列表项,则自动选中后一个列表项,如果选中的是最末一项,则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是:用户在文本框中输入一个计时时间(单位:分),并单击“开始”按钮后,系统将开始倒计时,每隔1秒显示1次剩余时间,当到达计时长度时,系统倒计时结束,并弹出信息框显示“时间到!”,程序运行界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。

选项

答案(1)本题考查List控件的属性使用,ListCount为列表框中列表的项数;Listlndex为被选中的列表项的索引号,ListIndex值为一1表示没有列表项被选中;ListCount为列表项的总个数,最后一项表示为Listl.I.istCount—1。程序中使用三个if语句,判断三种不同情况。 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符…”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl—Click() If List1.ListCount=0 Then Exit Sub EndIf If Listl.Listhadex=一1 Then Listl.ListIndex=0 Else If Listl.ListIndex<List1 List Count-1Then List1.List Index=List1 List Index+1 Else Listl.Listlndex=0 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符一”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dimt AsInteger Pdvate Sub Coumandl—CHck() t=60*Val(Text1.Text) Timerl. Enanled=True End Sub Private Sub Timerl_Timer() Dimm,sAsInteger If t<=0 Then Timerl.Enabled=False Ms异Box“时间到!” Else t=t-1 m=Int(t/60) s=t Mod 60 Label4.c8ption=“剩余”&m&“分”&s&“秒” End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)