首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer 1——Timer() ch:Chr(
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer 1——Timer() ch:Chr(
admin
2015-11-24
70
问题
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:
Dim n As Integer
Private Sub Timer 1——Timer()
ch:Chr(n+Asc(“A”)):Labell.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/6CLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处合适的语句是()。PrivateSubForm_Click(
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句()。
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
有如下一个函数过程:FunctionFun(aAsInteger)Staticcb=0:b=b+1:c=c+1Fun=a+b+cEndFunction在窗体上添加一个命令按钮,事件过程如下:PrivateSubCo
假定有如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle)IfButton=2ThenPopupMenupopFormEnd
有如下函数过程。FunctionFun(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley0reminder=xModyx=yy=reminderLoop
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsIntegerOpen______As#1Fori=1To10Print#1,iNext
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是
随机试题
在房间中利用火炉进行取暖时,其传热方式为()。
下列作品出自同一作家的是()
胃蛋白酶作用的最适pH是
患儿,8岁。因发热,关节肿痛而入院,经检查确定为风湿性关节炎,查体时未发现心脏异常,医生嘱其服用阿司匹林,其总疗程一般为
由十各行业生产性质和条件的不同,建筑系数和场地利用系数的大小必然有所差异,就一般工业项目而言,其建筑系数应不低于()。
下列境内纳税义务人书面申请海关无需进行价格质疑和磋商,依法审查确定进出口的是()。
法国后印象派的代表画家是()
1979年4月召开的中共中央工作会议决定对国民经济实行的方针是()。
在xOy坐标平面上,连续曲线L过点M(1,0),其上任意点P(x,y)(x≠0)处的切线斜率与直线OP的斜率之差等于ax(常数a>0).求L的方程;
Theevolutionofsexratioshasproduced,inmostplantsandanimalswithseparatesexes,approximatelyequalnumbersofmalesa
最新回复
(
0
)