首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(名称为Command 1),并编写如下代码: Function Fun 1(ByVal a As Integer,b As Integer)As Integer Dim tAs Integer t=a-b:b=t+a:Funl
在窗体上画一个命令按钮(名称为Command 1),并编写如下代码: Function Fun 1(ByVal a As Integer,b As Integer)As Integer Dim tAs Integer t=a-b:b=t+a:Funl
admin
2015-05-29
19
问题
在窗体上画一个命令按钮(名称为Command 1),并编写如下代码:
Function Fun 1(ByVal a As Integer,b As Integer)As Integer
Dim tAs Integer
t=a-b:b=t+a:Funl=t+b
End Function
Private Sub Command 1_Click()
Dim xAs Integer
x=10
Print Funl(Funl(x,(Funl(x,x-1))),x-1)
End Sub
程序运行后,单击命令按钮,输出结果是
选项
A、10
B、0
C、11
D、21
答案
B
解析
本题考查的考点是有关过程调用的。对于这种复杂的函数调用,一定要搞清楚调用的顺序以及参数传递的是值还是地址。根据过程调用的原则,首先调用最内层的Fun(x,x-1),其结果为12,x的值不变仍为10;然后调用Funl(x,12),其结果为6,x的值也不变为10;最后调用Funl(6,x-1),其结果为0,x的值也不变为10。本题中的传址调用是没有作用的,因为表达式是不能传地址的。
转载请注明原文地址:https://kaotiyun.com/show/eCQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下函数过程:Functionfun1(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0reminder=xMody
为了在列表框中使用<Ctrl>和<Shift>键进行多个列表项的选择,应将列表框的MultiSelect属性设置为()。
设在工程中定义了如下类型:TypestutypeinoAsIntegerstmameAsString*20strsexAsString*1smarkAsSingle
在窗体上建立通用对话框需要添加的控件是()。
通过InputBox函数可以产生输入对话框。若执行下列语句:st$=InputBox("请输入字符串","字符串对话框","字符串")则运行程序,用户输入完毕并单击“确定”按钮后,st$变量的内容为()。
编写如下事件过程和函数过程:PrivateSubCommand1_Click()Dimnum(1To6)AsSinglenum(1)=103:num(2)=190:num(3)=0num(4)=32:
有下列二叉树,对此二叉树中序遍历的结果为()。
下面程序运行后,单击命令按钮,输出的结果是PrivateSubCommand1_Click()Dima%(1To4),b%(2To6),i%,str1#,str2#Fori=
按条件f对关系R进行选择,其关系代数表达式为______。
下列表达式中值为-6的是
随机试题
Stressmaybedefinedastheresponseofthebodytoanydemand.Wheneverpeopleexperiencesomethingpleasantorunpleasant,we
结合具体作品,论述艺术典型。
患者,男,48岁。腰痛,起病缓慢,隐隐作痛,绵绵不已,腰腿酸软乏力,腰冷,脉细。治疗除取主穴外,还应加
A.10个月B.1岁半C.1岁8个月D.2岁半E.3岁正常小儿乳牙出齐最晚的年龄是
中标人不按照与招标人订立的合同履行义务,情节严重的,取消其()内参加依法必须进行招标的项目的投标资格并予以公告,直至由工商行政管理机关吊销营业执照。
女式雨衣,由涤纶机织物表面(单面)涂布高分子树脂的面料(涂层可明显看出)制成
某企业只生产销售一种产品,每年赊销额为240万元,该企业产品变动成本率为80%,资金利润率为25%。企业现有甲、乙两种收账政策可供选用。有关资料如下表所示:要求:(1)计算填列表中的空白部分(一年按360天计算)。(2)对上
中国古代儒家伦理文化中“三纲五常”中的“五常”指的是()。
下列关于粉尘爆炸的说法错误的是:
软件开发离不开系统环境资源的支持,其中必要的测试数据属于
最新回复
(
0
)