在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl和Text2,分别用来表示两个计数器;还有两个计时器Timerl和Timer2。Timerl用于变换Textl的计数;Timer2用于控制Text2的计数。运行时,单击“开

admin2009-08-26  29

问题 在考生文件夹下有一个工程文件sj5.vbp,窗体上有两个文本框,名称分别为Textl和Text2,分别用来表示两个计数器;还有两个计时器Timerl和Timer2。Timerl用于变换Textl的计数;Timer2用于控制Text2的计数。运行时,单击“开始”按钮后,Textl每当到5的倍数则停止,Text2开始计数,当Text2计数到6的倍数则Textl开始计数,交替进行。程序运行时的窗体界面如图49—5所示。

    注意:在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

选项

答案 本题主要考查考生分析和阅读程序的能力。计时器在设计时是可见的,但运行时不可见,它是否启用取决于其Enabled属性值,值为True时启用,为False时不启用。启用后间隔多长时间触发一次其Timer事件是由其Interval属性值决定的,IntervaI属性的单位为毫秒,缺省值为0,此时计时器也不启用。判断一个数是否可以被另一个数整除,要用Mod运算符,如果计算结果为0,则表示可以整除,否则不能整除。补充后的代码如下: Private Sub Commandl_Click() Timerl.Interval=1000’按开始键启动Textl计数 End Sub Private Sub Timerl Tliner() Textl.Text=Textl.Text+1 ’每个一个间隔Textl加1 If Textl.Text Mod 5=0 Then’当Textl的数是5的倍数 Timerl.Interval=0 ’停止Textl计数 Timer2.Interval=1000 ’启动Text2计数 End If End Sub Private Sub Timer2_Timer() Text2.Text=Text2.Text+1’每个一个间隔Text2加1 If Text2.Text Mod 6=0 Then’当Text2的数是6的倍数 Timer2.Interval=0 ’停止Text2计数 Timerl.Interval=1000馆动Textl计数 End If End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)