首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer1_Timer() ch=Chr(n+
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer1_Timer() ch=Chr(n+
admin
2020-04-18
43
问题
窗体上有一个名称为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
解析
本题中的变量n在窗体的声明段使用Dim声明,是一个窗体级变量;在计时器的Timer事件中每次令n加1,如果超过了4则将其除4取余;即最后循环显示字符“A”、“B”、“C”、“D”。
转载请注明原文地址:https://kaotiyun.com/show/8cTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Commandl),然后编写如下事件过程:PrivateSubCommandl_Cick()x=0DoWhilex
命令按钮Command1的单击事件过程如下:PrivateSubCommand1_Click() Dima(10,10)AsInteger x=0 Fori=1To3 Forj=1To3 a(i,j
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动"按钮,则将数组a中的最大值移动到数组的最前面,其他
若在窗体模块的声明部分声明了如下自定义类型和数组:PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)P
以下叙述中错误的是()。
下列合法的变量名是
下列关于顺序文件的描述中,正确的是
以下关系表达式中,其值为True的是
随机试题
生态系统中的物质流动是循环进行的,而能量流动是单向递减的。
重症哮喘发作时可见
男性,16岁,因右侧腰部酸胀,劳累后加重就诊,无发热和肾绞痛史。超声显示:右肾中度积水。尿常规正常初步诊断应考虑为()
真菌引起的医院感染中,最常见的致病菌是
患者,女性,40岁。6个月前无明显诱因出现粪便表面有时带血及黏液,伴大便次数增多,每日3~4次,时有排便不尽感,但无腹痛。曾于当地医院按“慢性细菌性痢疾”治疗无效。发病以来体重下降3kg。术后5天,患者仍无排便,以下措施错误的是
望月楼常常呈塔形耸立在清真寺前,它的主要功用是()。
“二元一次方程组的应用”的教学片段。师:同学们,我们之前列一元一次方程解应用题的步骤是什么?其关键点是哪两点?生1:①审题,即分析题目中的已知量、未知量以及数量关系;②找出题目中的等量关系;③设未知数;
漫画题:一台电脑里面出来八个字:虚假新闻,诽谤诬陷。坐在电脑前的人露出恐惧的表情,身子往后躲。请谈谈你对这幅漫画的理解。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
有以下程序#includeintfun(intx){intp;if(x==0||x==1)return(3);p=x-fun(x-2);returnp;}main(){printf("%d\n",fun(7));}
最新回复
(
0
)