首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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(
admin
2019-06-20
36
问题
窗体上有一个名称为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://kaotiyun.com/show/mMUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommand1_Click()Text2.Text=UCas
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()StaticxAsLon
窗体上有1个名称为Label1的标签;1个名称为List1,且含有若干表项的列表框。为了使得单击List1中某个表项时,在Label1中相应地显示该表项,应使用的程序代码为
下面关于控件数组的叙述中正确的是
窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是
下面关于命令按钮的叙述中错误的是
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中正确的是(
随机试题
在出版工作中,编辑工作处于()的地位。
库血的有效保存期是【】
A、 B、 C、 D、 C
VTS通过发布消息的方式提供服务,下列发布的消息中不包括()。
绞吸式挖泥船在()情况下分层施工。
下列报告文学中()是散文作家、诗人、小说家魏巍的作品。
根据下面材料回答下列题。假设2001一2005年间,该县GDP逐年稳定增长且每年增幅相同。那么2004年该县GDP约比2001年增长了()。
Caller:Hello.I’mringingabouttheflatadvertisedintoday’sSTAR.______?Mrs.Green:Yes,itis.Twoorthreepeoplehaveru
=_______
在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填______。PrivateSub
最新回复
(
0
)