网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序的输出结果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori＝1 To 10
arr(i) ＝I
Next i
For Each i In arr()
arr(i) ＝arr(i) *2+1
Next i
MsgBox arr(7)
End Sub
参考答案
更多 “ 下列程序的输出结果是______。Private Sub Commandl_Click()Dim alt(1 To 10)Fori＝1 To 10arr(i) ＝INext iFor Each i In arr()arr(i) ＝arr(i) *2+1Next iMsgBox arr(7)End Sub ” 相关考题
考题
下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1To 10)For i＝1 To 10arr(i)＝iNext iFor Each i In arr()arr(i)＝arr(i)*2+1Next iMsgBox arr(7)End Sub
考题
执行下面的程序，消息框的输出结果是 【 】。Option BaselPrivate Sub Commandl Click()Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
执行下面的程序，消息框的输出结果是【 】。Option Base1Private Sub Command1_Click( )Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1 To 10)For i=l TO 10arr(i)=iNext iFor Each i In arr()art(i)=arr(i)*2+1Next iMsgBox arr(7)End Sub
考题
下列程序的输出结果是( )。Private Sub Command1_Click()Dim arr(1 To 10)For i=1 To 10Next iFor Each i In arr()Next iEnd Sub
考题
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End SubA．1 3579B．975 3 1C．1234567 89 10D．1098765432 1
考题
下列程序的输出结果是（）。 s=0; for i=1:10 if rem（i,2)==0 continue end if rem（i,7)==0 break end s=s+i; end disp（s)A．3B．9C．10D．7
考题
下列程序的输出结果是（）。 s=0; for i=1:10 if rem（i,2)==0 continue end if rem（i,9)==0 break end s=s+i; end disp（s)A．15B．9C．16D．7
考题
2、下列程序的输出结果是（）。 s=0; for i=1:10 if rem（i,2)==0 continue end if rem（i,7)==0 break end s=s+i; end disp（s)A．3B．9C．10D．7
热门标签
最新试卷