更多"在窗体上画一个名称为Timer1的计时器、一个名称为Command1的"的相关试题:
[单项选择]在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Label1的标签。程序如下：
Private Sub Command1_Click( )
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_timer( )
Label1.Caption = Time
End Sub
当运行程序后，单击命令按钮，将在标签中显示的内容形式为________。
A. Time
B. True
C. 1000
D. 10:06:55
[单项选择]窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面事件过程：
Private Sub Command1_Click（ ）
Timer1.Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1.Interval=5
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1.Left=Command1.Left+5
End Sub
程序运行时，单击命令按钮，则产生的结果是______。
A. 命令按钮每5毫秒向左移动一次
B. 命令按钮每5毫秒向右移动一次
C. 命令按钮每5秒向左移动一次
D. 命令按钮每5秒向右移动一次
[单项选择]某人在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=，对应代码如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么应做的修改是( )
A. 通过属性窗口把计时器的Interval属性设置为2000
B. 通过属性窗口把计时器的Enabled属性设置为False
C. 把事件过程中的Label1.Caption＝Time$语句改为Timer1.Interval＝Time$
D. 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为Timer 1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Labe11．Caption：Times
End Sub
在程序执行时发现未能实现上述目的，那么，应做的修改是( )。
A) 通过属性窗口把计时器的Interval属性设置为2000
B) 通过属性窗口把计时器的Enabled属性设置为False
C) 把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D) 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为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
[单项选择]在窗体上画一个名称为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. 每秒钟标签向左移一段距离
[单项选择]
在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timerl，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Commandl_Click（ ）
Timerl.______
End Sub
Private Sub
Timerl_Timer（ ）
Text1.Text=Time
End Sub
在下划线处应填入的内容是（）。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[填空题]设计一个窗体，窗体上画一个名为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
[单项选择]在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[简答题]完成下列问题：
在名称为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. 出错
