[单项选择题] 窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As Integ

[单项选择题] 窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写 如下程序： Dim n As Integ

[单项选择题] 窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写

如下程序：

Dim n As Integer

Private Sub Timer1_Timer()

ch = Chr( n + Asc( "A" ) )

Label1. 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的值每次调用计时器事件过程都会加1，n=n Mod 4又会使n值只能为0、1、2、3，因此程序运行后每1秒Label1标签将依次显示“A”、“B”、“C”、“D”。