更多"某人设计了如下程序用于计算并输出7!(7的阶乘)。 Private "的相关试题:
[单项选择]有如下程序：
Private Sub Command1 Click（ ）
Dim a As Single
Dim b As Single
a=5：b=4
Call S(a，B)
End Sub
Sub S(x As Single，y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为（ ）。
A. java.exe
B. javadoc.exe
C. jdb.exe
D. javaprof.exe
[单项选择]有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
A. 0 1
B. 30 30
C. 4 30
D. 2 12
[单项选择]下面程序计算并输出的是
Private Sub Command1_Click（ ）
a=10
s=0
Do
s=s+a*a*a
a=a-1
Loop until a＜=0
Print s
End sub
A. 13+23+33+…103的值
B. 10!+…+3!+2!+1!的值
C. (1+2+3+…+10)3的值
D. 10个103的和
[单项选择]有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer, Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Integer a=2 For i=1 To 3 Print Gad (
[单项选择]
有如下程序：
Option Base !
Private Sub Command1_Click（ ）
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 Then
Sum=Sun+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是（ ）。
A. 数组定义语句不对，应改为Dim arr
B. 没有指明For循环的终值
C. 应在For语句之前增加Sum=0
D. Next a应改为Next
[单项选择]设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)；
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序：
Option Base （ ）
Private Sub Form_Click（ ）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序： Private Sub Form_Click（ ） A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是
A. 6
B. 5
C. 4
D. 3
[单项选择]设有如下程序：
Private Sub search(a( )As Variant，ByVal key As Variant，index%)
Dim I%
For I=LBound(
A. To UBound(a)
[单项选择]设有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer, x As String, y As String
x="ABCDEFG"
For i=4 To 1 Step-1
y=Mid(x, i, i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为( )。
A. ABCCDEDEFG
B. AABBCDEFG
C. ABCDEFG
D. AABBCCDDEEFFGG
[单项选择]有如下程序：
Private Sub Command1_Click（ ）
s = 0
Do
s=(s+1) ( (s+2)
N=N+1
Loop Until s＞=10
Print N；s
End Sub
运行后的输出结果是
A. 0 1
B. 30 30
C. 4 30
D. 2 12
[单项选择]
现有如下一段程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(3,5,7,9)
x=1
For i=4 to 1 Step -1
S=s+a ( i )*x
x=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是（ ）。
A. 9753
B. 3579
C. 35
D. 79
[单项选择]编写如下程序：
Private Sub Command1_Click（ ）
x="abcd"
y="1234"
For i=1 To 4
z=z+Mid(x，i，1)+Left(y，1)
Next i
Print z
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A. abcd1234
B. a1b2c3d4
C. a1b1c1d1
D. 1234abcd
[单项选择]设有如下程序：
Private Sub search(a（ ）As Variant，ByVal key As Variant，index%)
Dim I％
For I = Lbound(
A. To Ubound(
[单项选择]有如下程序段：
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print G(
