更多"下面程序段的运行结果是 【14】 。
Option Base 1
"的相关试题:
[填空题]下面程序段的运行结果是 【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
[单项选择]下列程序运行时输出的结果是 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. 不确定的值
[单项选择]下列程序段的执行结果是______。
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
[单项选择]以下程序的输出结果是( )。
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
[单项选择]阅读程序:
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[填空题]阅读下列程序:
Option Base 1
Private Sub Form Click( )
Dim x(3, 3)
For j = 1 to 3
For k = 1 to 3
If j = k then x(j, k) = 1
If j < > k then x(j, k) =3
Next k
Next j
Call fun(x( ) )
End Sub
Private Sub fun(a( ) )
For j = 1 to 3
For k = 1 to 3
Print a(j, k);
Next k
Next j
End Sub
运行程序时,输出的结果是 【5】 。
[填空题]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim arrl
Dim Min As Integer,i As Integer
arrl=Array(12,435,76,-24,78,54, 866, 43)
Min=____
For i=2 To 8
If arrl(i)<Min Then
Next i
Print “最小值是:”;Min
End Sub
以上程序的功能是:用Arcay函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
[填空题]阅读下列程序。
Option Base 1
Private Sub Form CliCk( )
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j<> k then x(j,k)=3
Next k
Next j
Call fun(x( ))
End Sub
Private Sub fun(a( ))
For j=1 to 3
For k=1 to 3
Print a (j,k);
Next k
Next j
End Sub
运行程序时,输出的结果是 【12】 。
[单项选择]设有如下程序:
Option Base 0
Private Sub Form_Click( )
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4