窗体上有一个名称为Labell的标签、一个名称为Timerl的计时器,其Enabled和Interval属性分别为 True和1000。编写如下程序: Dim n As Integer Private Sub Timerl_Timer()

admin2013-11-29  36

问题 窗体上有一个名称为Labell的标签、一个名称为Timerl的计时器,其Enabled和Interval属性分别为 True和1000。编写如下程序:
    Dim n As 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

解析 Asc函数返回字符的ASCII,Chr函数将数值转换成相应的ASCII码字符。计时器间隔Interval属性设置为1000,则计时器事件每1秒钟发生一次。n的值每次调用计时器事件过程都会加l,n=n Mod 4又会使n值只能为0、l、2、3,因此程序运行后每1秒Label1标签将依次显示“A”、“B”、“C”、“D”。
转载请注明原文地址:https://kaotiyun.com/show/uXQp777K
0

随机试题
最新回复(0)