更多"下面程序执行时，在窗体上显示的是 Private Sub Comma"的相关试题:
[单项选择]下面程序执行时，在窗体上显示的是( )
Private Sub Command1_Click（ ）
Dim a(10)
For k=1 To 10
a(k)=11 - k
Next k
Print a(a(3)/a(7)Mod a(5))
End Sub
A. 3
B. 5
C. 7
D. 9
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click（ ）
Dim d
d=Array("a"，"b"，"c"，"d")
Print d(1);d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Prirate Sub Command3_Click（ ）
Dim d
d=Array("a","b","c","d")
Print d(1)；d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click( )
Dim d
d=Array("a"，"b"，"c"，"d")
Print d(1)；d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]窗体上有一个名为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
[单项选择]程序运行时，当在空文本框中依次输入1234时，窗体上显示的是( )。
Private sub Text1_Change（ ）
Print Text1;
End Sub
A. 1234
B. 12
C. 1121231234
D. 10
[单项选择]单击窗体上Commandl命令按钮时，执行如下事件过程：
Private Sub Commandl＿Click（ ）
a$="Software and hardware"
b$=Right(a$，8)
c$=Mid(a$，l，8)
Msgbox a$，，b$，c$，l
EndSub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software andhardware
B. software
C. hardware
D. l
[单项选择]窗体上命令按钮的事件过程如下：
Private Sub Command1_Click（ ）
A. )。 "269834"
B. 269834
C. 158 D) 程序运行出错
[填空题]控件是窗体上用于显示数据、 【13】 和装饰窗体的对象。
[单项选择]执行以下程序，在窗体上输出( )。
Private Sub Command1_Click（ ）
Dim a(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Debug.Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。
A. 2 32
B. 12 3
C. 2 2
D. 12 32
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox(“请输入一个数学”)
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Dim a（ ）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下：
Prirate Sub Command1_Click（ ）
Dim d1 AS Date
Dim d2 As Date
d1=#12/25/2009#
d2=#1/5/2010#
MsgBox DateDiff("ww"，d1，d2)
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是
A. 1
B. 2
C. 10
D. 11
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[单项选择]单击窗体上Com mand l命令按钮时，执行如下事件过程：
Private Sub Commandl_C1ick（ ）
a$＝"software and hardware"
b$=Right(a$，8)
C$=Mid(b$，1，8)
Msgbox c$
End sub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hard WaJe
B. software
C. hardware
D. and
