更多"有如下的程序段，该程序段的执行完后，共执行循环的次数是 Privat"的相关试题:
[单项选择]有如下程序段，该程序段执行完后，共执行循环的次数是
Private Sub Command1_Click( )
Tota1=0
Counter=1
Do
Print Counter
Tota1=tota1+Counter
Print total
Counter=Counter+1
If total>=10 Then
Exit Do
End lf
Loop While Counter＜=10
End Sub
A. 5
B. 10
C. 12 D。20
[单项选择]有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click（ ） total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub
A. 5
B. 10
C. 12
D. 20
[单项选择]有如下程序段：
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print G(a)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为（ ）。
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[填空题]执行如下程序段后，输出结果为 (7) 。
Private Sub Command1_Click（ ）
sum=0
For i=1 To 18 Step 2
For j=2 T0 6
If (Mod j)＜＞0 Then sum=sum+j
Next
Next
Print sum．
End Sub
[填空题]执行如下程序段后，intsum的值为 【13】 。
Private Sub Command1_Click（ ）
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Mod j)＜＞0 Then sum=sum+j
Next
Next
Print sum
End Sub
[填空题]执行如下程序段后，intsum的值为______。
Private Sub Command1_Click（ ）
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Modj)＜＞0 Then sum=sum+j
Next
Next
Print sum
End Sub
[填空题]执行如下程序段后，intsum的值为______。
Private Sub Command1_Click（ ）
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Modj)＜＞0 Then sum=sum+j
Next
Next
Print sum
End Sub
[单项选择]有如下的程序片段，该程序片段的执行完后，共执行循环______次。
Private Sub command1_ Click（ ）
total =0
Counter = 1
do
Print Counter
total = total + Counter
Print total, "111"
Counter = Counter + 1
if total ＞= 10 then
exit do
End if
Loop while Counter ＜= 10
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a（ ）As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click（ ）
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x（ ）
For1=1 to 10
Print x (i)
Next I
End Sub
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4) ,i%, t#
For i = 1 To 4
b(i) =i
Next
t =Tof(b（ ） )
Print "t ="; t,
End Sub
Function Tof(a（ ） As Integer)
Dim t#, i%
t=1
For i =2 To UBound(
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(
