更多"下列程序段的执行结果是______。 option base "的相关试题:
[单项选择]下列程序段的执行结果是______。 option base 1 private eommand1_c1ick ( ) Dim A(10) Dim E(5) For i = 1 To 10 A(i) = i Next i For j = 1 To 5 B(j) = j * 20 Next j A(5) = B(2) Print “A(5)=”; A(5) End sub
A. A(5)=20
B. A(5)=30
C. A(5)=40
D. A(5)=50
[填空题]下面程序段的运行结果是 【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 Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
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
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
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 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 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
[填空题]执行下面的程序,消息框的输出结果是 【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
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 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. 不确定的值