计算机二级

执行下面程序,第一行输出结果是【 】,第二行输出结果是47。Option ExplicitPrivate Sub Form_Click( )Dim A As IntegerA=2Call Sub1 (A) End SubPrivate Sub1 (x As Integer)x=x*2+1If x<10 ThenCall Sub1 (x)End Ifx=x*2+1Print xEnd Sub

题目

执行下面程序,第一行输出结果是【 】,第二行输出结果是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

如果没有搜索结果,请直接 联系老师 获取答案。
更多相关问题