2. 计算机
  3. 窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer1_Timer() 　　ch＝Chr(

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer1_Timer() 　　ch＝Chr(

admin2020-07-22  64
问题 窗体上有一个名称为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"。
转载请注明原文地址:https://jikaoti.com/ti/5WS0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)