更多"运行下列程序,结果是______。 Private Sub Comm"的相关试题:
[单项选择]以下程序运行后,单击按钮输出结果是
Private Sub Commandl_Click( )
Dim x As Integer,y As Integer,z As Integer
X=4:y=2: Z=3
Call Gopd(x,x,z)
Print x;X;Z
Call Gopd(x,y,y)
Print x;y;y
End Sub
Private Sub Gopd(x As Integer,y As Integer,z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[填空题]下面运行程序后,单击命令按钮,输出的结果是【 】。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1=";s1;"s2=";s2
End Sub
Function YAS(a( )As Integer)
Dim t#,i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
[单项选择]下列程序运行时输出的结果是
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. 不确定的值
[单项选择]下面程序段,运行后的结果是
Private Sub Command1_Click( )
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i) =i
Next
t=Tof(b( ) )
Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
t=1
For i=2 To UBound(
[单项选择]下面程序段,运行后的结果是 Private Sub Command1_Click( ) Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b( ) ) Print "t ="; t, End Sub Function Tof(a( ) As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下面程序的运行结果是( )。
Private Sub Commandl_Click( )
a=1.5
b=1.5
Callfun(a,b)
Printa,b
End Sub
Private Subfun(x,y)
x=y*y
y=y+x
End Sub
A. 2.25 1.5
B. 1.5 2.25
C. 2.25 3.75
D. 0.75 1.5
[填空题]下面运行程序后,单击命令按钮,输出的结果是 【9】 。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click( )
Dimx(10)As Integer,y(5) As Integer
ForI=1 to 10
x(i)=10-I+1
NextI
ForI=1 to 5
y(i)cx(2*-1)+x(2*I)
NextI
ForI=1 to 5
Printy(i);
NextI
End Sub
A. 3 7 11 45 19
B. 17 13 9 5 1
C. 1 3 5 7 9
D. 不确定的值
[填空题]下面程序段的运行结果是 【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
[填空题]下面程序段的运行结果是 【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