更多"有如下程序：
Private Sub Command1 Clic"的相关试题:
[单项选择]有如下程序：
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 Click( ) Dim sum AS Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum＝sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序： Private Sub Command1_Click( ) Dim sum As Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3＋3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]设有如下程序：
Private Sub Command1_Click（ ）
Dim sum As Double, x As Double
sum＝0
n＝0
For i＝1 To 5
x＝n/i
n＝n+1
sum＝sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序： Private Sub Command1_Click（ ） Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]设有如下程序： Private Sub Command1_Click（ ） Dim Sum As Double， x As Double sum=0 n = 0 For i= 1 To 5 x = n / i n = n + 1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]设有如下程序： Private Sub Command1_Click（ ） Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[单项选择]有如下事件过程：
Private Sub Command1_Click( )
Dim m AS Integer，n AS Integer
m=2：n=1
Print "m="；m；"n="；n
Call TOD(m，n)
Print "m="；m；"n="；n
End Sub
Sub TOD(x，y)
x=x^2
y=y^3
End Sub
程序运行后，输出的结果为( )。
[单项选择]阅读下列程序： Private Sub Command1_Click（ ） Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
