首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有“数字时钟”窗体如下: 在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”, 显示时间的文本框名称为“时钟”,计时器间隔已设置为500。 请在空白处填入适当的语句,使程序可以完成指定的功能。
有“数字时钟”窗体如下: 在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”, 显示时间的文本框名称为“时钟”,计时器间隔已设置为500。 请在空白处填入适当的语句,使程序可以完成指定的功能。
admin
2009-09-28
57
问题
有“数字时钟”窗体如下:
在窗口中有按钮“[开/关]时钟”,单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”,
显示时间的文本框名称为“时钟”,计时器间隔已设置为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://kaotiyun.com/show/ybwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
C++系统预定义了4个用于标准数据流的对象,下列选项中不属于此类对象的是()。
下面是重载为非成员函数的运算符的函数原型,其中错误的是()。
有如下类定义:classMyClass{public:private:intdata;};若要为MyClass类重载流输入运算符“>>”,使得程序中可以“cin>>obj;”的形式改
()使一个函数可以定义成对许多不同数据类型完成同一个任务。
下列给定程序中,函数fun的功能是:在形参s所指字符串中的每个数字字符之后插入一个*号。例如,形参s所指的字符串为“det35adh3kjsdf7”,执行后结果为“det3*5*adh3*kjsdf7*”。请在程序的中括号处填入正确的内容并将中括
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是()。
运算符重载时不需要保持的性质是()。
下列控制格式输入输出的操作符中,能够设置浮点数精度的是()。
请打开考生文件夹下的解决方案文件proj2,其中在编辑窗口内显示的主程序文件中定义有类Base和Derived,以及主函数main。程序文本中位于每行“//****found****”下面的一行内有一处或多处下画线标记,请在每个下画线标记处填写合适的内容,
Access数据库中,主要用来输入或编辑字段数据的位于窗体设计工具箱,一种交互式控件是指______。
随机试题
切断中脑头端网状结构,动物将
全科医疗作为一种基层医疗保健,它不是
医疗机构开展诊疗活动必须符合的条件是
无机结合料稳定基层原材料的技术要求中,对粉煤灰的要求指标有()。
下列各项中,按车船应纳税额全额计征车船税的有()。
国务院证券管理机构或国务院授权的部门,应当自受理证券发行申请文件起( )内作出决定,不予核准或审批的,应当作出说明。
2012年9月,甲与佳艺数码相机销售公司签订合同,担任该公司的经理,双方签汀的协议中约定甲在同该公司解除劳动合同后3年内不得自己开业销售数码相机。关于该项约定,下列说法正确的有()。
“四面荷花三面柳,一城山色半城湖”是哪个城市风景的写照?()
微分方程的通解(其中C为任意常数)是
TheAeroscraftisnotaBlimpbecauseitismuchlargerthanthelatterthough______.ThepowerthattheAeroscraftneedsispr
最新回复
(
0
)