首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下面程序。 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
74
问题
阅读下面程序。
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全国计算机二级
相关试题推荐
有如下程序:#includeusingnamespacestd;classA{public:A(){cout
下列程序输出的结果是()。#includefun1(chara,charb){charc;c=a;a=b;b=c;)fun2(char*a,charb){charc;c=*a;*a=b;b=c;}
有如下类定义:classMyClass{public:MyClass(doubled=0.0):val(d){}______________/
有如下程序:#includeusingnamespacestd;voidf(intx,int&y){intz=x;x=y;y=z;}intmain(){
已知Value是一个类,value是Value的一个对象。下列以非成员函数形式重载的运算符函数原型中,正确的是()。
数据库中对概念模式内容进行说明的语言是
有如下类的定义,横线处的语句是()。classTestClass{_______intx,y;public:TestClass(inta=0,intb=0){x=a:y=b;}staticvoidchange(){
算法的空间复杂度是指()。
请打开考生文件夹下的解决方案文件proj2,此工程中包含一个源程序文件main.epp,其中有“房间”类Room及其派生出的“办公室”类Office的定义,还有主函数main的定义。请在程序中“//****found****”下的横线处填写适当的代码并删除
请使用VC6或使用【答题】菜单打开考生文件夹proj3下的工程proj3,其中声明的DataList类,是一个用于表示数据表的类。DataList的重载运算符函数operator+,其功能是求当前数据表与另一个相同长度的数据表之和;即它返回一个数据表,其每
随机试题
尿崩症的表现是原发性醛固酮增多症的表现是
血流动力学监测发现CVP增高而血压正常,提示
女性,32岁。上呼吸道感染后2周,出现肉眼血尿,颜面水肿入院。体检:血压160/100mmHg,尿蛋白(++)。红细胞满视野。进一步收集临床资料中诊断意义最小的是()
胶片特性曲线可以反映下列哪些特性
根据《建设工程质量管理条例》规定,下列有关建设工程质量保修的说法中,正确的是()。[2017年真题]
预算松弛会给企业造成以下不良隋况,除了:
计算简便、容易掌握、但预测结果不太精确的资金需要量预测方法是()。
下列哪个情形不属于专利法第二十三条第二款所述的“现有设计特征”?
【《罗摩衍那》】北京大学2006年世界通史真题
以下程序段的输出结果是X=1:Y=4DoUnti1Y>4X=X*Y:Y=Y+1LoopPrintX
最新回复
(
0
)