首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval 属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer 1_Timer() ch=C
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval 属性分别为True和1000。编写如下程序: Dim n As Integer Private Sub Timer 1_Timer() ch=C
admin
2015-05-29
22
问题
窗体上有一个名称为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/8DQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是
在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1+Click()a=InputBox(“请输入日期(1~31)”)t=“旅游景点:”
有如下程序:PrivateSubFormClick()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiM
执行以下语句后,输出的结果是a$="Good"b$="Afternoom"Printa$+b$Printa$&b$
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text2.Text="’’Text1.S
以下叙述中错误的是
完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是
执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)……EndSub若焦点位于文本框中,则能够触发KeyPres
已知变量boo1Var是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句就是______。
随机试题
______实现了完全的国际化经营。
能使蛋白质沉淀而又不变性所用的沉淀剂和温度条件是
患者,男,25岁。自服苯巴比妥钠100片,神志障碍10小时。体格检查:深昏迷,呼吸不规则,血压100/60mmHg,双肺呼吸音清晰,心率120次/min,律齐,无杂音。此时最重要的抢救措施是
临终关怀的根本目的是为了
A、蔷薇科B、十字花科C、柏科D、豆科E、夹竹桃科大青叶来源于()
消防工程完成后,由()向公安消防机构提出申请,要求对竣工工程进行消防验收。
请阅读下列材料:杨老师正在备课,课题是初中信息技术《健康上网》。此前学生学习了网上信息浏览、电子邮件、网络购物、博客与微博等相关内容。学生通过本节课的学习,将会了解网络给青少年带来的负面影响,如网瘾、网络孤独与自闭、道德价值观偏差;认识健康上网的意义;自
英国工业革命基本完成的主要标志是()。
考生文件夹中有Excel工作表如下:按要求对此工作表完成如下操作:1.将表中各字段名的字体设为楷体、12号、斜体字。2.根据公式“销售额=各商品销售额之和”计算各季度的销售额。3.在合计一行中计算出各季度各种商品的销售额之和。
WhatAretheEthicsofCGIActorsAndWillTheyReplaceRealOnes?A)Digitalhumansarecomingtoascreennearyou.Ascom
最新回复
(
0
)