Question

Private Sub Command1_Click()

Private Sub Command1_Click()
Dim k As Integer
k = 2
Call sub1((k))
Print k

End Sub
Private Sub sub1(x As Integer)
x = x + 3
If x < 10 Then
Call sub1(x)
End If
x = x + 3
Print x
End Sub

计算方法如何
笔试时如何计算

Answer 1

好好学点编程的术语吧！

估计你的“笔试时如何计算”是程序运行过程吧？下面我们分析运行过程：
Private Sub Command1_Click() '点击按钮启动按钮单击事件
Dim k As Integer '定义一个整形变量
k = 2 '赋值
Call sub1(k) '调用sub1过程，程序执行到这里，进入sub1过程,并且将变量k的值赋值给变量x
Print k '打印变量k，打印值是2
End Sub

Private Sub sub1(x As Integer) 'sub1过程
x = x + 3 '这个不用解释吧，第一次x=5第二次x=8第三次x=11
If x < 10 Then '判断如果x<10执行下面的语句，当x=11时不会再进入下面语句，而退出判断语句
Call sub1(x) '再次调用sub1过程
End If '条件判断语句结束
x = x + 3 ，这时x=11+3=14
Print x '打印变量x,打印值是14
End Sub

答案14，不知你的“计算方法如何”是什么意思

Answer 2

此程序是计算一条式子:
1
到
N
的叠加
如输入3则结果为6

Answer 3

答案14..
你要表达什么？
笔试时如何计算?
还是不明白...