填空题

执行下面程序，第一行输出结果是 【14】 ，第二行输出结果是47。 Option Explicit Private Sub Form_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x＜10 Then Call Sub1 (x) End If x=x*2+1 Print x End Sub

【参考答案】

W
<上一题 目录 下一题>
热门 试题

填空题
如果存在如下过程：Private Function FMax( a( ) As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst = LBound(a)Last = UBound(a)Max = a(First)For i = First To LastIf a (i)＞Max Then Max=a (i)NextFMax = MaxEnd FunctionPrivate Sub Commandl Click( )ReDim m (1 To 4) As Integerre(1) =20: m(2) =30: m(3) =50: m(4) =100c = FMax(m)Print cEnd Sub单击命令按钮，其输出结果为 【13】 。
填空题
下面运行程序后，单击命令按钮，输出出的结果是 【12】 。Private Sub Command1_Click( )Dim a% (1 To 5) ,i%, s#For i = 1 To 5a(i) =iNexts = Fun(a)Print s= ; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i = LBound(a) To UBound(a)t=t * a(i)NextFun =tEnd Function
相关试题