在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： Function Fun1(ByVal a As Integer， b As Integer)As Integer 　　Dim t As Integer 　　t＝a－b 　　b＝t＋a 　

admin2020-07-22 48

问题在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：
Function Fun1(ByVal a As Integer， b As Integer)As Integer
　　Dim t As Integer
　　t＝a－b
　　b＝t＋a
　　Fun1＝t＋b
End Function
Private Sub Command1_Click()
　　Dim x As Integer
　　x＝10
　　Print Fun1(Fun1(x，(Fun1(x， x－1)))， x－1)
End Sub
程序运行后，单击命令按钮，输出结果是(　　)。

选项 A、10
B、0
C、11
D、21

答案B

解析本题是过程的嵌套调用，过程嵌套调用时要先计算最内层的过程，然后由里向外执行。因此Fun1(Fun1(x，(Fun1(x， x－1)))， x－1)执行过程如下：
先执行Fun1(x， x－1)，由于形参a是按值传递，因此不会影响x的值，x＝10，即Fun1(10,9)。t＝1，b＝1＋10＝11，则函数返回值为1＋11＝12。
再执行Fun1(x，(Fun1(x， x－1)))，由于内层过程返回12，因此又可写成Fun1(x，(12))，由于x仍为原值，因此过程即Fun1(10,12)。t＝－2，b＝－2＋10＝8，则函数返回值为－2＋8＝6。
最后执行Fun1(Fun1(x，(Fun1(x， x－1)))， x－1)，即Fun1(6， x－1)，由于x仍为原值，因此过程即为Fun1(6,9)。t＝－3，b＝－3＋6＝3，则函数返回值为－3＋3＝0。

转载请注明原文地址:https://kaotiyun.com/show/jMHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： Function Fun1(ByVal a As Integer， b As Integer)As Integer 　　Dim t As Integer 　　t＝a－b 　　b＝t＋a

二级VB

NCRE全国计算机二级