题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-01-09 21:54:50

[单项选择]在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每隔一秒钟在文本框中显示一次当前的时间。程序为:
Private Sub Timer1. ______( )
TxtTime. text=Time
End Sub
在下划线上应填入的内容是______。
A. Enabled
B. Visible
C. Interval
D. Timer

更多"在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为"的相关试题:

[单项选择]在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1。为了使得每一秒钟在文本框中显示一次当前的时间,应将Interval属性值设置为
A. 1)
B. 10
C. 100
D. 1000
[单项选择]在窗体上有一个文本框控件,名称为TxtTime,一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序如下:
Private Sub Timer1_______( )
TxtTime. text=Time
End Sub
在下画线上应填入的内容是( )。
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上有一个文本框控件,名称为TxtTime一个计时器控件,名称为Timer1,要求每1秒钟在文本框中显示一次当前的时间,程序为:
Private Sub Timer1 ______( )
TxtTime. text=Time
End Sub
在下划线上应填入的内容是 ______。
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间。程序为
Procedure Timer1 ______( )
  ThisForm.TxtTime.Value=Time
EndProc
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timerl_ ______
TextTime.text=Time
End Sub
在下划线上应填入的内容是( )。
A. Ena bled
B. ViSible
C. Interval
D. Timer
[单项选择]窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为2000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timer( )
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF&'&HFF&为红色
Else
Text1.ForeColor=&HC000&'&HC000&为绿色
End If
End Sub
以下叙述中正确的是______。
A. flag的值只可能取0或1
B. 程序有逻辑错误,Else分支总也不能被执行
C. 每次执行此事件过程时,flag的初始值均为1
D. 程序执行后,文本框中的文字每2秒改变一次颜色
[单项选择]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:

Private Sub Timer1_

TxtTime.text=Time

End Sub

在下画线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Time
[单项选择]在窗体上有一个文本框控件,名称为TextTime;--个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_ ______
TxtTime.text=Time
End Sub
在下画线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Time
[单项选择]窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:
Private Type x
a As Integer
b As Integer
End Type
Private Sub Command1_Click( )
Dim y As x
y.a=InputBox(" ")
If y.a/2=y.a/2 Then
y.b=y.a * y.a
Else
y.b=Fix(y.a/2)
End If
Text1.Text=y.b
End Sub
对以上程序,下列叙述中错误的是( )
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数,y.b的值为该偶数的平方
D. Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
[单项选择]设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框只能显示信息,不能接收输入信息,以下能实现该操作的语句是
A. Text1.MaxLength=0
B. Text1.Enabled=False
C. Text1.Text=False
D. Text1.Index=0

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码