首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(名称为Command1),并编写如下代码: Function Fun1(ByVal a As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+a
在窗体上画一个命令按钮(名称为Command1),并编写如下代码: Function Fun1(ByVal a As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+a
admin
2020-07-22
50
问题
在窗体上画一个命令按钮(名称为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://www.kaotiyun.com/show/jMHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于当前窗体,以下能打开代码窗口的操作是
判断复选框是否被选中的属性为
下列叙述中正确的是
下面关于VB应用程序的叙述中正确的是
为了读取数据,需打开顺序文件“D:\data5.txt”,以下正确的命令是
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第l层)
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=True:k=2DoWhilek
在深度为7的满二叉树中,叶子结点的个数为
(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文
产生100以内(不含100)2位随机整数的VisualBasic表达式是()。
随机试题
腕管综合征压迫的神经为
急性化脓性牙髓炎疼痛特点之一是
缺铁性贫血哪项化验可确诊
交战国间战争状态的结束是对有关结束战争和停止战争行动的一切政治、经济、领土和其他问题做出最终的解决,结束战争的法律状态,恢复和平关系。下列哪一选项属于结束战争状态的最通常的方式?()
企业质量管理的目的是()。
根据支付结算法律制度的规定,下列银行卡分类中,以是否具有透支功能划分的是()。(2016年)
Thecontinuousandrecklessuseofsyntheticchemicalsforthecontrolofpestswhichposeathreattoagriculturalcropsandhu
C类IP地址中、前3个字节为
在考生文件夹下,打开文档WORD1.docx,按照要求完成下列操作并以该文件名(WORD1.docx)保存文档。【文档开始】认识AGP8X要想深入认识AGP8X,让我们先来说说AGP总线这个话题吧。我们知道最初的显示设备是采用PCI总线
Thispartistotestyourabilitytodopracticalwriting.Youarerequiredtowriteabusinessletteraccordingtothefollowin
最新回复
(
0
)