题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-03-26 21:08:25

[单项选择]在窗体上画一个名称为Timet1的计时器、一个名称为Commandl的命令按钮和一个名称为Labell的标签。编写程序如下: Private Sub Command1_Click( ) Timer1.Enabled=True Timer1.Interval=1000 End Sub Private Sub Timerl Timer( ) Labell.Left=Labell.Left + 10 End Sub 当运行程序后,单击命令按钮,将会产生
A. 每秒钟显示一次系统时间
B. 每10秒钟显示一次系统时间
C. 每秒钟标签向右移一段距离
D. 每秒钟标签向左移一段距离

更多"在窗体上画一个名称为Timet1的计时器、一个名称为Commandl的"的相关试题:

[单项选择]在窗体上画一个名称为Timet1的计时器、一个名称为Commandl的命令按钮和一个名称为Labell的标签。编写程序如下:
Private Sub Command1_Click( )
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timerl Timer( )
Labell.Left=Labell.Left + 10
End Sub
当运行程序后,单击命令按钮,将会产生
A. 每秒钟显示一次系统时间
B. 每10秒钟显示一次系统时间
C. 每秒钟标签向右移一段距离
D. 每秒钟标签向左移一段距离
[单项选择]某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer( )

Label1.Caption=Time$

End Sub

在程序执行时发现未能实现上述目的,那么,应做的修改是( )。
A. 通过属性窗口把计时器的Interval属性设置为2000
B. 通过属性窗口把计时器的Enabled属性设置为False
C. 把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time$
D. 把事件过程中的Label1.Caphon=TimeS语句改为Label1.Caption=Timer1.Time
[单项选择]在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下:
Private Sub Command1_Click( )
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timerl_timer( )
Labell.Caption=Time
End Sub
当运行程序后,单击命令按钮,将在标签中显示的内容为
A. Time
B. True
C. 1000
D. 10:06:55
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:
Private Sub Command1_Click( )
Timer1. ______
End Sub
Private Sub Timer1_Timer( )
Text1. Text=Time
End Sub
在填空处应填入的内容是______。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口 中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单 击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序: Private Sub Command1_Click( ) Timer1.______ End Sub Private Sub Timer1_Timer( ) Text1.Text = Time End Sub 在下划线处应填入的内容是______。
A. Enabled = True
B. Enabled = False
C. Visible = True
D. Visible = False
[简答题]完成下列问题:
在名称为Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签,一个名称为Hscroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1,最大值为100,滚动条的宽度为3000、高度为300,滚动块的初始位置为20。程序运行后的窗体如图1所示。
[*]
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.1frm。
[单项选择]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click( ) Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption =y Label3.Caption =z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框,并把窗体的 KeyPreview 属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_ Load ( ) Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click( ) Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后,在键盘上输入ABCDEFG,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错

我来回答:

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

订单号:

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