首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要求:去
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要求:去
admin
2018-05-08
30
问题
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题项目工程。 步骤2:分析并编写程序代码。 程序提供代码 Dim n As Integer Private Sub Form_Click() Timerl.Enabled=? End Sub Private Sub Form Load() Timerl.Interval=? Timerl.Enabled=False Textl.ForeColor=0 n=0 End Sub Private Sub Timerl_Timer() n=? If n Mod 5=0 Then Textl.Text=Time() End If If n Mod 8=0 Then If Textl.ForeColor=?Then Textl.ForeColor=8L HFF Else Textl.ForeColor=0 End If End If End Sub 程序结束 第1个?处填入:True 第2个?处填入:1000 第3个?处填入:n+1 第4个?处填入:0 步骤3:调试并运行程序,关闭程序后按题目要求存盘
解析
程序初始化时,将Timerl控件的Interval属性设置为1000,Enabled属性设置为False,即程序开始时Timerl控件不可用。当程序开始运行时,单击窗体将Timerl的Enabled属性设置为True,在Timerl_Timer事件中通过设置一个计数器变量n,用于实现单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,及文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。
转载请注明原文地址:https://kaotiyun.com/show/RvGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列数据结构中,能够按照“先进后出"原则存取数据的是
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+lNexti
关于变量作用域,下列叙述中正确的是()。
有下面事件过程:PrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指()。
在黑盒测试方法中,设计测试用例的主要根据是()。
随机试题
急性肾功能衰竭少尿期主要死亡原因是
如图所示水下有一半径为R=0.1m的半球形侧盖,球心至水面距离H=5m,作用于半球盖上水平方向的静水压力是:
依据《价格法》,价格监督检查的对象包括()。
厂房跨度大于12m时,单跨厂房的两边应有采光侧窗,窗户的宽度应不小于开间长度的()。
下列机构从业人员中,不必遵守《银行业从业人员职业操守》的是()。
他所钟爱的那一批现代主义作家,刚好______了他的现实需要,他的经历,在一定程度上就是加缪、卡夫卡、昆德拉等著作的现实映射。苦苦寻找一种理解世界方式的阿乙,在这些小说里看到了窥视它的_______。依次填入画横线部分最恰当的一项是()。
我国公务员缺席同西方文官制度强调的文官“政治中立”具有本质区别的是( )。
调查发现,男女生各半的一个100人的班级,20%患有色盲症,其余正常;如果女生有色盲5人,则正常男生的人数是()人。
辛亥革命失败的根本原因在于______。
A、Shelaterfoundjazzwasherfavorite.B、Sheneededtoearnmoneybyplayingjazz.C、Shewasofferedanopportunitytosingj
最新回复
(
0
)