填空题
以下程序段中Do...Loop 循环执行的次数为
【9】
。程序执行完毕后,n的值为
【10】
。
Private Sub Command1_Click()
n =5
Do
If n Mod 2= 0 Then
n =n \2
Else
n =n* 3 + 1
End If
Loop Until n=1
End Sub
【参考答案】
[9] 5 [10] 1
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
以下程序的作用是生成一个如下图的矩阵,该程序不完整,请补充完改程序。 Private Sub Command1_Click() Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 【7】 Then A(M,N)=1 Else 【8】 =0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N); Next N Print Next M End Sub
点击查看答案
填空题
有如下程序,该程序的执行结果是 【6】 。 Private Sub Command1_lick() For i= 1 To 4 x= 4 For j =1 To 3 x =3 For k=1 To 2 X= K+5 Next k Next j Next i Print x End Sub
点击查看答案
相关试题
一下程序的作用是生成一个10×10的矩阵...
在Visual Basic 中,要将一个窗体装载到...