[单项选择]阅读程序：
Private Sub Form_Click( )
Dim i As Integer, sum As Integer
For i=2 To 10
If i Mod 2＜＞0 Then
Print i；
Else
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是______。
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20

更多"阅读程序： Private Sub Form_Click( ) "的相关试题:

[单项选择]有如下程序：
Private Sub Form_Click( )
Dim s As Integer, p As Integer
p=1
For i=1 To4
For j=1 To i
s=s+j
Next j
P=P * s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是( )。
A. 90
B. 180
C. 400
D. 800

查看答案

[单项选择]阅读程序
SUB P(B( ) AS INTEGER)
FOR I=1 TO 4
B(I) =2*I
NEXT I
END SUB
PRIVATE SUB COMMAND1_CLICK( )
DIM A( 1 TO 4) AS INTEGER
A(1)=5
A(2) =6
A(3) =7
A(4) =8
P A( )
FOR I = 1 TO 4
MSGBOX A(I)
NEXT I
END SUB
运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。
A. 出错
B. 10, 12, 14, 16
C. 5, 6, 7, 8
D. 2, 4, 6, 8

查看答案

[单项选择]在过程定义中有语句：
Private Sub GetDma(ByVal dab As Integer)
其中“ByVal”的含义是______。
A. 传值调用
B. 传址调用
C. 形式参数
D. 实际参数

查看答案

[单项选择]有如下程序：
Private Sub Form_Click（　）
Dimi As Integer,sumASInteger
sum=0
For i=2To 10
If i Mod2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Nexti
Print sum
EndSub
程序运行后，单击窗体，输出结果为( )。
A. 12
B. 30
C. 24
D. 18

查看答案

[单项选择]有如下程序:: 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 i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18

查看答案

[单项选择]阅读下列程序。
Private Sub Command1_Click（　）
Dim i As Integer，k As Integer
k=2
For i=1 To 3
Print Fun(k)；
Next
End Sub
Function Fun(j As Integer)
Static b
a=0
a=a + 1
b=b + 1
Fun=a*b+j
End Function
程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356

查看答案

[单项选择]单击按钮时，以下程序运行后的输出结果是　　Private Sub proc1(x As Integer，y As Integer，z As Integer)　　　　x=3*z　　　　y=2*z　　　　z=x+y　　End Sub　　Private Sub Command1_Click（　）　　　　Dim x As Integer，y As Integer，Z As Integer　　　　x=1：y=2：z=3　　　　Call proc1(x，x，z)　　　　Print x；x；z　　　　Call proc1(x，y，y)　　　　Print x；y；y　　End Sub

A. 6 6 12 `
B. 9 5 10 6101051010
C. 9 6 12
D. 9 10 10 910155410

查看答案

[单项选择]若有如下程序：
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)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Function
单击命令按钮，执行程序，输出结果是( )。
A. 2 3 4
B. 3 4 5
C. 5 6 7
D. 3 5 6

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

查看答案

我来回答:

提交