窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序: Dim nAs Integer PriVate Sub Timerl_Timer()

admin2019-06-11  25

问题 窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:
    Dim nAs Integer
    PriVate Sub Timerl_Timer()
    ch=Chr(n+Asc(”A”)):Labell.Caption=ch:n=n+1:n=n Mod 4
    End Sub
    运行程序,将在标签中

选项 A、不停地依次显示字符“A”、“B”、  “C”、  “D”,直至窗体被关闭
B、依次显示字符“A”、“B”、“C”、“D”各一次
C、每隔1秒显示字符“A”一次
D、每隔1秒依次显示26个英文字母中的一个

答案A

解析 本题中的变量n在窗体的声明段使用Dim声明,是一个窗体级变量;在汁时器的Timer事件中每次令n加1,如果超过了4则将其除4取余;即最后循环显示字符“A”、“B”、“C”、“D”。
转载请注明原文地址:https://jikaoti.com/ti/9iN0FFFM
0

最新回复(0)