首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要求:去掉程序中
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要求:去掉程序中
admin
2020-07-22
45
问题
考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后,程序按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题项目工程 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim n As Integer Private Sub Form_Click() Timer1.Enabled=
True
End Sub Private Sub Form_Load() Timer1.Interval=
10000
Timer1.Enabled=FalSe Text1.ForeColor=0 n=0 End Sub Private Sub Timer1_Timet() n=
n+1
If n Mod 5=0 Then Text1.Text=Time() End If If n Nod 8=
0
Then If Text1.ForeColoE=0 Then Text1.ForeColor=&HFF Else Text1.ForeColor=0 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/efHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列可以打开立即窗口的操作是()。
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
窗体的单击事件过程如下:PrivateSubForm_Click()Dimm(10)Fork=1To10m(k)=11-kNextkPrintm(4)
以下过程定义中正确的过程首行是( )。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
软件生命周期中的活动不包括( )。
在软件开发中,需求分析阶段产生的主要文档是()。
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
随机试题
当韦尔奇接手通用电气时,美国正面临着日本、韩国等企业的强大竞争,不少行业在进口产品的冲击下不断衰落,例如钢材、纺织、造船、家电、汽车等。韦尔奇上任伊始,对公司的状况极为不满,认为公司染上了不少美国大公司都有的“恐龙症”,机构臃肿、部门林立、等级森严、层次繁
在编制年度财务会计报告之前,必须进行财产清查。()
乙公司年初未分配利润借方余额为200万元,本年利润总额为800万元。本年所得税费用为150万元,按净利润的10%提取法定盈余公积,提取任意盈余公积25万元,向投资者分配利润25万元。不考虑其他纳税调整事项,乙公司年末“利润分配一未分配利润”科目余额为(
在通货膨胀持续期,为了减轻通货膨胀对企业造成的不利影响,企业应当采取的防范措施包括()。
程序性知识也称为__________,是个人缺乏有意识的提取线索,只能借助于某种作业形式间接推测其存在的知识。
幼儿背诵儿歌时,比较容易记住前后的内容,中间的内容较难记忆且容易遗忘,这是()影响的结果。
社区警务战略的要求是:以社区为依据,立足社区,警民共建。()
3.5A英寸1.44MB软盘的每个扇区的容量是______。
What______toTomyesterday?
A、mockMichaelB、consoleMichaelC、criticizeMichaelD、persuadeMichaelB
最新回复
(
0
)