题目内容
（请给出正确答案）
A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属性设置为False
C．把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D．把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
如果结果不匹配，请 联系老师 获取答案
更多“某人在窗体上画了一个名称为Timer 1的计时器和一个名称为…”相关的问题
A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属性设置为False
C．把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D．把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。
[程序5.1说明]
下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。
[Visual Basic代码]
Private Sub Form. Load ()
Dim x As String*1
X=(1) (“请输入单个字符”，“字符”)
Select Case UCase ((2) )
Case (3)。
Print X+“是字母字符”
Case (4)
Print X+ “是数字字符”
Case Else
Print X+“是其他字符”
End Select
[程序5.2说明]
在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。
[Visual Basic代码]
Private Sub Fom_Load ()
Timer1.Interval=1000
EndSub
Private Sub Timer1_ timer() (5)
EndSub
窗体的左右两端各有1直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interva1属性设置为1000，并编写了如下程序：
Private Sub Timer1 Timer（）
For k=Line1．X1 To Line2．X1 Step 100
If Shape1．Left+Shape1．width＜Line2．X1 Then
Shape1．Left=Shape1．Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（）。
A.把计时器的Interval属性设置为1
B.把For k=line1．X1 To Line2．X1 Step 100和Next k两行删除
C.把For k=Line1．X1 To Line2．X1Step 100改为For k=Line2．X1 To Line1．X1 Step 100
D.把If Shape1．Left+Shepe1．Width＜Line2．X1 Then改为If Shape1．Left＜Line2．X1 Then
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b＞= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后，窗体上显示的结果是______。
A．101
B．6
C．5
D．4
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的值是()
A. 4
B. 5
C.6
D. 7
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 2
For J=1 To I
Print String(I，"Hello")；
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．H HH HH
B．H HHHH
C．HHHHH
D．H HH HHHH
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在横线处应填入的内容为()
A．Left(c,n)
B．Right(c,n)
C．Mid(c,n,1)
D．Mid(c,n,n)
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是()。
A．3
B．4
C．5
D．6
