更多"在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下："的相关试题:
[单项选择]在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As String*10
Private Sub Command1 Click（ ）
a="1234"
b=Len(
A. 5
B. 10
C. 40
[单项选择]在窗体中有一个标签Lbl和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As String*10
Private Sub Command1_Click（ ）
a="1234"
b=Len(a)
Me.Lb1.Caption=b
End Sub
打开窗体后单击命令按钮，窗体中显示的内容是( )。
A. 4
B. 5
C. 10
D. 40
[单项选择]
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a AS String*10
Private Sub Command1_Click（ ）
a=“1234”
b=Len(a)
Me.Lb1．Caption=b
End Sub
打开窗体后单击命令按钮，窗体中显示的内容是( )。
A. 4
B. 5
C. 10
D. 40
[单项选择]执行以下Command1的Click事件过程在窗体上显示
Option Base 1
Private Sub Command1 Click（ ）
Dim a
a= Array("a"， "b"， "C"， "d"， "e"， "f"， "g")
Print a(1)； a(3)； a(5)
End Sub
A. ab；
B. bdf
C. ace
D. 出错
[单项选择]在窗体上画一个按钮Command1，编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2；3，4)
j=1
For i=4 To Step-1
s=s+a(i)*j
j=j*10
Next j
Print s
End Sub
运行程序后，最后的输出结果为( )。
A. 1234
B. 12
C. 34
D. 4321
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Prirate Sub Command1_Click（ ）
d=0
c=10
x=Array(10,12,21,32,24)
For i=1 To 5
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next I
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A. 89
B. 99
C. 23
D. 77
[单项选择]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr=Array(1, 2, 3, 4, 5)
j=1
For i=5 To 1 Step -1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click（ ）
Dim c As Integer，d As Integer
d=0
c=6
x=Array(2，4，6，8，10，12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A. 10
B. 16
C. 12
D. 20
[填空题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap（【 】）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b（ ） As Integer)
n =【 】
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
【 】
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
[单项选择]在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click（ ） Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A. ABCD
B. abcd
C. 出错信息
D. 1 2 3 4
[单项选择]在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Pdvate Sub Command1_Click（ ）
Dim c As Integer,d As Integer
d=0
c=6
X=Array(2,4,6,8,10,12)
For i=1 To 6
If X(i)>c Then
d=d+X(i)
c=X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输山的结果是( )。
A. 10
B. 12
C. 16
D. 20
