首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Labell的标签:一个名称为Timerl的计时器,其Enabled和Interva属性分别为True和1000。编写如下程序: Dim nAs Integer Private Sfb Timer1 Timer() ch=Chr(n+As
窗体上有一个名称为Labell的标签:一个名称为Timerl的计时器,其Enabled和Interva属性分别为True和1000。编写如下程序: Dim nAs Integer Private Sfb Timer1 Timer() ch=Chr(n+As
admin
2015-12-09
80
问题
窗体上有一个名称为Labell的标签:一个名称为Timerl的计时器,其Enabled和Interva属性分别为True和1000。编写如下程序:
Dim nAs Integer
Private Sfb Timer1 Timer()
ch=Chr(n+Asc(“A”)):Labell.Caption=eh: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声明,是一r窗体级变量;在计时器的Timer事件中每次令n加1,如果超过了4则将其除4取余;即最后循环显示字符“A”、“B”、“C”、“D”。
转载请注明原文地址:https://kaotiyun.com/show/M8Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:FunctionFun(aAsInteger)Staticcb=0:b=b+2:c=c+2F=a*b*cEndFunctionPrivateSubCommand1_Click()DimaAsInteg
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print______NextEndSub
要使文本框获得输入焦点,则应采用文本框控件的
计时器文件设置时间间隔的属性是
要获得当前驱动器应使用驱动器列表框的属性是
下列程序运行时输出的结果是OptionBase1PrivateSubForm_Click()Dimx(10)AsInteger,y(5)AsIntegerFori=1to10x(i)=10-i+1NextF
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输山文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommand1_Click()x=Val(Text
下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出:否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?",vblnformation+vbYesNo,"提示:")Ifa=__
Text文本框接受的最长字符数由文本框的______属性确定。
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_TxtTime.text=TimeEndSub在下画线上应填入的内容是
随机试题
______’sfamegenerallyrestsuponhisnovelsandstorieswiththeinternationaltheme.
Whenthelittlegirlawoke,shefoundherself()byagroupofsoldiers.
心脏病患者,反复发作心悸不适,来诊当天自觉较好。作心电图P波消失呈锯齿状,频率300次/分,室率75次/分。最可能的诊断是
28岁妇女,月经周期紊乱,婚后3年不孕。应在何时诊刮
有关胸内压的叙述,下列哪项不正确
价值工程的核心是对产品进行()分析。
对于大众来说,科学无处不在,它完全可以成为社会流行文化的一部分,享受科学文化知识就像看书、读报、听音乐、看电影一样。近日,由中国科协主办的“典赞·2016科普中国”活动揭晓了2016年度十大“科学”流言终结榜,同时揭晓的还有年度十大科学传播事件等榜单。
对产品采用标识制度是为了()。
标志着元朝法律遂告定型的法典是()。
Thesnowrangersareemployeesof______.Whatistheprimarydutyofthesnowranger?
最新回复
(
0
)