更多"以下程序运行后，消息框的输出结果是( )。 OPTION BA"的相关试题:
[单项选择]以下程序运行后，消息框的输出结果是( )。 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
[填空题]执行下面的程序，消息框的输出结果是 【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 j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click（ ） Dim s(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 Print k End sub
A. 33
B. 28
C. 35
D. 37
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub swap (a（ ） As Integer)
For I=1 to 10/2
t=a (I)
a (I) =a (10-I+l)
a (10-I+1)=t
Next I
End Sub
Private Sub Form Click（ ）
Dim x(10) As Integer
For I=1 to 10
x(I) =1*2
Next I
Swap x （ ）
For I=1 to 10
Print x (I)
Next I
End Sub
[单项选择]下面程序的运行结果是( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim x,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For i=1 To 3
y(i,j)=(i*j)
If(j＞=i)Then Print y(i,j);
Next i
Print
Next i
End Sub
A. 1 2 3
B. 1 2 3
C. 1
D. 1 2 3
[填空题]设有以下程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【14】 = arr1(1)
For i = 1 To 8
If arrl(i)＞Max Then 【15】
Next i
Print "最大值："； Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
[填空题]执行下面的程序，消息框的输出结果是 【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
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click（ ）
Dim x (10)As Integer，y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub swap (a（ ） As Integer)
For I=1 to 10/2
t=a (I)
a (I) =a (10-I+l)
a (10-I+1)=t
Next I
End Sub
Private Sub Form Click（ ）
Dim x(10) As Integer
For I=1 to 10
x(I) =1*2
Next I
Swap x （ ）
For I=1 to 10
Print x (I)
Next I
End Sub
[填空题]执行下面的程序，消息框的输出结果是 【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
