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

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

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

Option Basel

Private Sub Commandl 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 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 ” 相关考题
考题 下面程序段执行后消息框的输出结果是( )。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
查看答案
考题 执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
查看答案
考题 执行下面的程序，消息框的输出结果是__________。
查看答案
考题 下列程序段执行后消息框的输出结果是______。a＝12345Doa＝a\10b＝a Mod 10Loop While b＝3MsgBox a
查看答案
考题 执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd 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
查看答案
考题 执行下面的程序，消息框的输出结果是【 】。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 Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
查看答案
热门标签
最新试卷