更多"执行下面的程序,消息框的输出结果是 【15】 。 Option Ba"的相关试题:
[填空题]执行下面的程序,消息框的输出结果是 【15】 。
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
[填空题]执行下面的程序,消息框的输出结果是 【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
[填空题]执行下面的程序,消息框的输出结果是 【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
[填空题]执行下面的程序,消息框的输出结果是______。
Option Base 1
Private Sub Command1_Click( )
Dim a(10),p(3) As Integer
k=0
For i=1 To 10
a(i)=i
Next i
For i=1 To 5
p(i)=a(i*2)
Next i
For i=1 To 5
k=k+p(i)*a(i)
Next i
MsgBox k
End Sub
[填空题]执行下面的程序,消息框的输出结果是______。
option Base 1
PrivateSubCommandl_Click( )
Dima(10),P(3)As Integer
K=5
Fori=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
NextI
Fori=1 To 3
k=k+p(i)*2
Ncxti
MsgBoxk
End sub
[填空题]执行下面的程序,消息框的输出结果是______。
Option Base 1
Private Sub Command1_Click( )
Dim a(10),p(3) As Integer
k=0
For i=1 To 10
a(i)=i
Next i
For i=1 To 5
p(i)=a(i*2)
Next i
For i=1 To 5
k=k+p(i)*a(i)
Next i
MsgBox k
End Sub
[单项选择]以下程序运行后,消息框的输出结果是( )。
OPTION BASE 1
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
A. 33
B. 28
C. 35
D. 37
[单项选择]执行下面的程序,单击窗体后窗体消息框内显示结果是( )。
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
A. ABCE
B. ABCD
C. ABDB
D. ABFB
[填空题]执行下面的程序,消息框里显示的结果是 【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( )
Dim Str As String
Str=""
S="Access"
For i=Len(S) To 1 Step-1
Str=Str & Mid(S,i,1)
Next i
MsgBox Str
End Sub