填空题

执行下面的程序，消息框的输出结果是 【15】 。
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

【参考答案】

33
<上一题 目录 下一题>
热门 试题

填空题
执行下面的程序，消息框里显示的结果是 【13】 。 Private Sub Form Click() Dim Str As String，K As Integer Str= ab For k=Len(Str) To 1 Step -1 Str=Str & Chr(Asc(Mid(Str，k，1))+k) Next k MsgBox Str End Sub
填空题
设有以下窗体单击事件过程： private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1，3 a=a+1 Case 2，4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是 【11】 。
相关试题