首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
32
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) s=0:j=1 Fori=4To1Step-1 s=s+a(i)*
在窗体上画三个名称分别为Text1、List1和Command1的文本框、列表框和命令按钮,且List1中有若干列表项,Text1的内容为空,然后编写如下事件过程:PrivateSubCommandlClick()DimiAsInteg
设a=10,b=4,c=5,d=7,表达式a>bAndNotc
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#2Print"Tlextl"
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( )。
下列关于线性表的叙述中,不正确的是()。
下列程序执行后,变量a的值为()。Dima,b,C,dAsSinglea=10:b=20:c=40Ifb>aThend=a:a=b:b=dEndIfIfc>aThen
表达式Abs(-5)+Len("ABCDE")的值是()。
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
随机试题
患儿,5月,反复阵发性哭闹,发作时面色苍白,呕吐3次,为胃内容物。体检腹部扪及腊肠样块物,肛指检查指套上有果酱样大便。最可能的诊断为:
患者,男性,20岁,大二学生。2周来突然兴奋话多,言语夸大,说自己是中国的乔布斯,能开很多家公司,每个都可以进入世界500强。连夜搞发明创造,吃饭都狼吞虎咽,说要分秒必争。家人朋友劝阻他就发脾气,说他们智障者,不配与自己说话。针对该患者宜首选的药物是
Thesedaysmostpeople,especiallyyounggirls,liketolookslim.Ourgrandfather’s【21】weredifferent【22】ours,butnowadays【23】
呼吸中枢兴奋剂应用于下述哪种疾病
关于诉讼代理人的代理权消灭,下列说法正确的是:()
魏某系收购废旧物品小贩,他答应某钢铁广的青年工人赵某:如果赵某从厂里偷出钢锭,他将如数收购。赵某遂陆续从厂内共偷出价值3000元的钢锭交于魏某。二人的行为属于:
以下说法符合《中华人民共和国矿产资源法》规定的是()。
企业定额的作用表现在( )。
以下与“书山有路勤为径,学海无涯苦作舟”判断不同的是()。
Hetalkstoughbuthasatenderheart.
最新回复
(
0
)