首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2015-08-28
42
问题
窗体上有一个名称为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/T9Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
记时器控件能有规律的以一定时间间隔触发【】事件,并执行该事件过程中的程序代码。
在窗体上画一个名称为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:PrivateSubCommand1_Click()n=Text1.TextSelect
下面的程序是找出两个正整数a和b,使得a<b、a+b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。OptionExplicitDimaAsInteger,bAsInteger,nAsInteger,cAsI
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
在程序设计阶段,当双击窗体上的某个控件时,所打开的窗口是______。
程序如下:PrivateSubform_Activate()DimaAsIntegerfori=4To5a=fun(i)Printa,NextiEndSubPrivateFu
随机试题
账项调整的主要内容包括()
下列有关简化眼的叙述,错误的是
土工织物厚度指在2kPa法向压力下,其顶面与底面之间的距离,单位为mm。()
证券公司董事会在严格遵守监管法规的基础上,根据公司()情况确定自营业务规模、可承受的风险限额等。
有位历史老师教学生记忆明朝迁都北京的历史年代时,指导学生把1421记成“一事二益”,这种方法是()。
根据《中华人民共和国义务教育法》的规定,为了缩小学校之间办学条件的差距,县级以上人民政府及其教育行政部门应当促进学校()
OURKIDSAREAMAZING-especiallycomparedwitheverybodyelse’s(whoseemtocryallthetime).Howdoyoushowyourloveforyour
新殖民主义是二战后殖民主义的主要形式,其核心是“政治兼并”。
有以下程序yoidfun(inta,intb,intc){a=b;b=c;c=a;}main(){inta=10,b=20,c=30;fun(a,b,c);printf(’’%d,%d,%d\n’’,C,b,a);)程序运行后的输
Ifyouwerestartingatopuniversitytoday,whatwoulditlooklike?Youwouldstartbygatheringverybestmindsfrom【M1】____
最新回复
(
0
)