更多"程序段如下：Private Sub Command1_ Click（ "的相关试题:
[单项选择]
现有如下一段程序：
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( )
Dim a As Integer
a=2
For i=1 To 3
Print G(
[单项选择]有如下程序段：
Private Sub Form_Click（ ）
Dim m,n As Integer
m=InputBox("请输入M的值")
m=Val(m)
m1=m
n=InputBox("请输入N的值")
n=Val(n)
n1=n
Do While n＜＞0
remin=m Mod n
m=n
n=remin
Loop
Print m1, n1,m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为______。
A. 16 24 4
B. 16 24 8
C. 24 16 6
D. 24 16 8
[单项选择]有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是
A. 1
B. 2
C. 3
D. 4
[单项选择]有如下程序：
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 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 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
[单项选择]
有如下程序：
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
[单项选择]设有如下程序：
Private Sub Commandl_click（ ）
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d＞0
If d＞c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是
A) 12 B) 11 C) 10 D) 9
[单项选择]设有如下程序： 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 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（ ）
Dim k As Integer，m As Integer
Dim op As Integer
k=4：m=1
Op=PPC(k，m)：Print op；
Op=PPC(k，m)：Print op
End Sub
Private Function PPC(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=0：i=2
i=i+m+1
m=i+a+b
PPC=m
End Function
程序运行后，输出的结果为
A. 4 6
B. 6 6
C. 8 8
D. 10 12
[单项选择]现有如下程序：
Private Sub Command1_Click（ ）
S=0
For i=1 to 5
S=S+f(5+i)
Next
Print S
End Sub
Public Function f(x As Integer)
If x＞＝10 Then
t＝x+1
Else
t＝x+2
End If
f=t
End Function
运行程序，则窗体上显示的是( )
A. 38
B. 49
C. 61
D. 70
[单项选择]执行下面的程序段，x的值为
Private Sub Commandl_Click（ ）
For i=1 To 5
a=a+i
Next i
x=Val(i)
MsgBox x
End Sub
A. 5
B. 6
C. 7
D. 8
