更多"执行下面的程序,消息框的输出结果是 【15】 。 Option Bas"的相关试题:
[填空题]执行下面的程序,消息框的输出结果是 【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
[填空题]下面程序段的运行结果是 【14】 。
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) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
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) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( )As InteSer)
For I=1 to 10/2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click( )
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x( )
For1=1 to 10
Print x (i)
Next I
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
[填空题]下面程序段的运行结果是______。
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) = I * 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 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 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. 不确定的值
[单项选择]以下程序的输出结果是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