更多"以下程序运行后,消息框的输出结果是( )。 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
[单项选择]以下程序的输出结果是( )。
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 to 3
p(i)=a(I*j)
Next j
For I=1 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 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. 不确定的值