首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
84
问题
窗体上有一个名称为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/lmLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当一个工程含有多个窗体时,其中的启动窗体是()。
用户在组合框中输入或选择的数据可以通过()属性来获得。
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
在窗体上有一个名称为List1列表框和一个名称为Command1的按钮,List1的MultiSelect属性设置为2。当单击Command1按钮时,将会把所有选中的选项全部删除。下列程序缺少的一句是______。PrivateSubCommand1_
在一个窗体上添加命令按钮控件,名为Command1,事件过程如下,则该过程的执行结果为______。OptionBase1PrivateSubCommand1_Click()Dima(5)AsIntegerDimkAs
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
关于结构化程序设计原则和方法的描述错误的是()。
在考生文件夹中有一个工程文件execise32.vbp,相应的窗体文件为execise32.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“小于500的整数之和”的命令按钮。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这
下列叙述中错误的是()。
随机试题
老年人感染时,用药原则是
A.败血症B.脓血症C.毒脓败血症D.菌血症E.毒血症局部化脓灶的细菌栓子间歇性进入血液循环并在机体其他组织器官形成转移性脓肿的疾病称为
脐疝的疝环是
我国的国债回购业务开始于()。
下列关于水泥混凝土路面原材料的说法,错误的是()。
长江股份有限公司(以下简称长江公司)为增值税一般纳税人,适用的所得税税率为25%。长江公司2019年度财务报告批准报出日为2020年4月3日,2019年所得税汇算清缴结束日为2020年3月28日。长江公司2019年实现利润总额5200万元,新增可抵扣暂时
下列不是合同的生效要件的是()。
Neverunderestimatethelearningpowerofplay.OneofParks’findingsisthatchildren【C1】______valuablelearningopportunitie
有下列程序:main(){intk=5;while(--k)printf("%d",k-=3);printf("\n");}执行后的输出结果是()。
在过程定义中有语句:PrivateSubGetData(ByValdataAsInteger)其中"ByVal"的含义是( )。
最新回复
(
0
)