更多"窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时"的相关试题:
[单项选择]在窗体上画一个名称为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的命令按钮和一个名为Timed的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1. Enabled=True
EndSub
Private Sub Form_Load（ ）
Timer1. Interval=10
Timed. Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1. Left=Command1. Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（）。
A. 命令按钮每10秒向左移动一次
B. 命令按钮每10秒向右移动一次
C. 命令按钮每10毫秒向左移动一次
D. 命令按钮每10毫秒向右移动一次
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1.Text)
Select Case x
Case Is＜-10.Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是______。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]
窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr（ ）
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a（ ） As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) ＜ a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（）。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0
[单项选择]
窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Comand1_Click（ ）
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr（ ）
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a（ ） As Integer)
n=Ubound(a)
For i=n To 2 step -1
For j=1 To n-1
if a(j)< p>
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（）
A. 12345
B. 54321
C. 01234
D. 43210
[单项选择]
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer
a=8
b=12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时，单击命令按钮，则输出结果是（）。
A. 3 3 2
B. 3 8 2
C. 8 8 12
D. 3 8 12
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(6) As Integer
For k=1 To 6
arr(k)=k
Next k
prog arr（ ）
For k=1 To 6
Print arr(k)；
Next k
End Sub
Sub prog(a（ ）As Integer)
n=UBound(a)
For i=n To 2 Step-1
For j=1 To n-1
If a(j)＜a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是______。
A. 0 1 2 3 4 5
B. 1 2 3 4 5 6
C. 5 4 3 2 1 0
D. 6 5 4 3 2 1
[单项选择]
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Command1_Click（ ）
Dim m As Integer , n As Integer
m=InputBox(“输入第一个数”)
n=InputBox(“输入第二个数”)
Do While m<>n
Do While m>n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是（）。
A. 求数值m和n的最大公约数
B. 求数值m和n的最小公倍数
C. 求数值m和n 中的较大数
D. 求数值m和n中的较小数
[填空题]设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click（ ）
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load（ ）
Me.TimerInterval=1000
End Sub
Private Sub [12]
Me!text1=Now（ ）
End Sub
[填空题]
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下：
Private Sub run11_Click ( )
Select Case num2
Case O
result= "O分"
Case 60 T0 84
result= "通过"
Case Is >= 85
result= "优秀"
Case Else
result="不合格"
End Select
MsgBox result
End Sub
打开窗体，在文本框中输入80，单击命令按钮，输出结果是（）。
