[单项选择]阅读程序：
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 num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5

查看答案

[单项选择]阅读程序：
Private Sub Form_Click（　）
　　Dim num As Integer， digit As Integer
　　num = InputBox("输入数据")
　　Do While num ＜＞ 0
　　　　digit = num Mod 10
　　　　num = num / 10
　　　　Print digit;
　　Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为________。
A. 1　3　7　5　9
B. 5　4　3　2　1
C. 2　4　6　8　10
D. 1　2　3　4　5

查看答案

[单项选择]有如下程序： 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 Form_Click（　）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 105
B. 1
C. 120
D. 15

查看答案

[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[填空题]阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) ＞ a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是______。

查看答案

[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click（　）
　　Dim art,Sum
　　Sum=0
　　art=Array(1,3,5,7,9,11,13,15,17,19)
　　For i=1 To 10
　　If arr(i)/3=arr(i)/3 Then
　　Sum=Sum+art(i)
　　End If
　　Next i
　　Pdnt Sum
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 13
B. 14
C. 27
D. 15

查看答案

[单项选择]阅读下列程序： 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+r 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 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 　　程序运行后，输出的结果是( )。

查看答案

[单项选择]有如下程序：
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 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
　　程序运行后，输出的结果是
A. 1　1　*　#
B. 1　1　*　#
C. 1　1　*　#
D. 1　1　*　#

查看答案

我来回答:

提交