网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

执行下面的程序，消息框的输出结果是【 】。

Option Base1

Private Sub Command1_Click( )

Dim a(10)，P(3)As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End 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 ” 相关考题
考题 下面程序段执行后消息框的输出结果是( )。a=12345Dob=a Mod 10Loop While b＞=3MsgBox a
查看答案
考题 下面程序段执行后消息框的输出结果是______。a=12345Doa=a\10b=a Mod 10Loon While b＞=3MsgBox a
查看答案
考题 下面程序段执行后消息框的输出结果是______。a＝12345Doa＝a\10b＝a Mod 10Loop While b＞＝3MsgBox a
查看答案
考题 执行下面的程序，消息框的输出结果是__________。
查看答案
考题 下列程序段执行后消息框的输出结果是______。a＝12345Doa＝a\10b＝a Mod 10Loop While b＝3MsgBox a
查看答案
考题 执行下面的程序，消息框的输出结果是 【 】。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
查看答案
考题 执行下面的程序，消息框的输出结果是( )。Dim a(1 To 10),b(1 To 5)As Integersum=0For i=1 To 10Next iFor i=1 To 5Next iFor i=1 To 5Next iMsgBox sum
查看答案
考题 下列程序段运行后,消息框的输出结果是( )。 a=sqr(3)b=sqr(2)c=abMsgbox c十2 A.一1 下列程序段运行后，消息框的输出结果是（ ）。 a=sqr（3）b=sqr（2）c=a&gt；bMsgbox c十2A.一1B.1C.2D.出错
查看答案
考题 以下程序段运行后,消息框的输出结果是( )。 a=10b=20c=a 以下程序段运行后，消息框的输出结果是（ ）。 a=10b=20c=aA.一1B.0C.1D.2
查看答案
热门标签
最新试卷