首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有“数字时钟”窗体如下: 在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”, 显示时间的文本框名称为“时钟”,计时器间隔已设置为500。 请在空白处填入适当的语句,使程序可以完成指定的功能。
有“数字时钟”窗体如下: 在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”, 显示时间的文本框名称为“时钟”,计时器间隔已设置为500。 请在空白处填入适当的语句,使程序可以完成指定的功能。
admin
2013-03-30
54
问题
有“数字时钟”窗体如下:
在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”,
显示时间的文本框名称为“时钟”,计时器间隔已设置为500。
请在空白处填入适当的语句,使程序可以完成指定的功能。
Dim flag As Integer
Private Sub Form_Load()
flag=1
End Sub
Private Sub Timer1_Timer() ’“计时器触发”事件过程
时钟=Time ’在“时钟”文本框中显示当前时间
End Sub
Private Sub开关_Click() ’“开关”按钮的单击事件过程
If 【 】Then
时钟.Visible=False
flag=0
Else
时钟Visible=True
flag=1
End If
End Sub
选项
答案
flag=1
解析
题面要求单击该按钮可以显示或隐藏时钟,在本程序中,变量flag的值有两个:0或1,作用是反映按钮的开关状态。根据子过程Form_Load()可以知道,flag的初始值为1;下面看子过程开关_Click(),根据程序中的If-Else语句可以知道,当变量flag=1时,执行“时钟.Visible=False”语句,将时钟的Visible属性设置为False,并将flag的值改为0;如果变量flag=0时,则执行“时钟.Visible=True”语句,将时钟的Visible属性设置为True,并将flag的值改为1,所以本空填“flag=1”。
转载请注明原文地址:https://www.kaotiyun.com/show/r6rp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在数据表的设计视图中,数据类型不包括______类型。
在向数据表中输入数据时,若要求所输入的字符必须是字母,则应该设置的输入掩码是【】。
某数据库表中有一个Name字段,查找Name不为空的记录的准则可以设置为()。
以下程序运行后,消息框的输出结果是_________。a=sqr(3)b=sqr(2)c=a>bMsgboxc+2
建立了一个窗体,窗体中有一命令按钮,单击此按钮,将打开一个查询,查询名为“qT”,如果采用VBA代码完成,应使用的语句是【】。
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【】。
在关于报表数据源设置的叙述中,以下正确的是________。
已建立的“tEmployee”表,表结构及表内容如下表所示:若要确保输入的联系电话值只能为8位数字,应将该字段的输入掩码设置为________。
将两个关系拼接成一个新的关系,生成的新关系中包含满足条件的元组,这种操作称为()。
建立一个基于“学生”表的查询,要查找“出生日期”(数据类型为日期/时间型)在1980-06-06和1980-07-06间的学生,在“出生日期”对应列的“准则”行中应输入的表达式是()。
随机试题
ThemomentIgothome,IfoundI______myjacketontheplayground.
护理的工作范畴包括( )。
简支梁AB的剪力图和弯矩图如图示,该梁正确的受力图是()。
一般通过()了解求助者的既往史,寻找有价值的资料。
()是指工作性质和特征相近的若干职组的集合。
阅读下面这首诗,写一篇不少于500字的鉴赏评论文章。山坡羊.潼关怀古元.张养浩峰峦如聚,波涛如怒,山河表里潼关路。望西都,意踌躇。伤心秦汉经行处,宫阙万间都做了土。兴,百姓苦;
一不法分子进入某小学行凶,作为教育部门负责安全的副局长。你该如何处理?
求α1=(2,0,1,1),α2=(-1,-1,-1,-1),α3=(1,-1,0,0),α4=(0,-2,-1,-1)的秩和一个最大无关组,并将其余向量用该最大无关组表示.
下列叙述中正确的是
Ingeneral,oursocietyisbecomingoneofgiantenterprisesdirectedbyabureaucraticmanagementinwhichmanbecomesasmall,
最新回复
(
0
)