首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下面程序。 Private Function a(load As Integer) As Single If load < 20 then money = load / 2 else money = 20 + load end if a = mon
阅读下面程序。 Private Function a(load As Integer) As Single If load < 20 then money = load / 2 else money = 20 + load end if a = mon
admin
2009-05-20
59
问题
阅读下面程序。
Private Function a(load As Integer) As Single
If load < 20 then
money = load / 2
else
money = 20 + load
end if
a = money
End Function
Private Sub Form_Click()
Dim load As Integer, fee AS Single
Load = InputBox ("请输入一个数: ")
Fee = a(load)
Print fee
End Sub
输入20,运行后的输出结果是【 】。
选项
答案
40
解析
本题的事件过程非常简单,输入数据,调用通用函数过程的输出返回函数值。本题调用通用函数过程,进行虚实结合后load的值为20。执行a函数时,首先判断load<20条件为假,执行money=20+load,使money的值为40,接着执行a=money语句,使函数名的值为40,执行到语句EndFunction则返回调用它的事件过程,将函数值赋给变量fee。最后输出变量fee的值,其值为40。
转载请注明原文地址:https://kaotiyun.com/show/tq5p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
请打开考生文件夹下的解决方案文件proj3,其中声明的DataList类,是一个用于表示数据表的类。sort成员函数的功能是将当前数据表中的元素升序排列。请编写这个sort函数。程序的正确输出应为:排序前:7,1,3,11,6,9,12,10,8,4,5
己知枚举类型定义语句为:enumToken{NAME,NUMBER.PLUS=5.MINUS,PRINT=10};则下列叙述中错误的是()。
下列各序列中不是堆的是
下列情况中,不会调用拷贝构造函数的是()。
下列排序方法中,最坏情况下比较次数最少的是()。
类MyClass的定义如下:classMyClass{public:MyClass(){value=0;}SetVariable(inti){value=i;}private;intvalue;);则对下列语句序列正确的描述是(
在下列字符中,不允许作为C++标识符的是()。
执行语句序列()。inti=0;while(i<25)i+=3;cout<<i;输出结果是
某个窗体已编写如下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为______。PrivateSubForm_Click()DimKasInteger,nasInteger,masIntegern=10:m=1:k=1DoWhileK<=n
随机试题
重复定位是指定位元件所限制自由度数目少于按加工工艺要求所限制的自由度数目。
Globalwarmingiscausingmorethan300,000deathsandabout$125billionineconomiclosseseachyear,accordingtoareportb
奶牛,己妊娠285天,表现不安,后肢踢腹,脉搏96次/min。阴道检查发现阴道腔深部狭窄,阴道壁的前端呈顺时针螺旋状旋转,宫颈口开张不明显。【假设信息】如果经过几次翻转处理无效,选择手术矫正,适宜的切口部位是
在城市规划区范围内,以出让方式取得土地使用权,闲置一年以上按出让金的30%征收土地闲置费。()
下列属于对银行业消费者依法求偿权的表述的是()。
车辆技术改造是汽车运输企业扩大运输生产能力的()途径。
Gotochurch,thenhaveabiglunch,thengoouttoplaywhilemumdoesthehousework.ThatwasatypicalBritishSundayinthe
“四书五经”中的四书是指《大学》《中庸》《论语》《孟子》。()
文字:剧本:话剧
对于频繁改变位置并使用DHCP获取口地址的DNS客户端,为减少对其资源记录的手动管理,可采取的措施是()。
最新回复
(
0
)