阅读下面程序Private Function a (load As Integer)As SingleIf loud＜20 thenmoney=lnad/2elsemoney=20+loadend ifa=moneyEnd FunctionPrivate Sub Form_Click()Dim load As Integer,fee As SingleLoad=InputBox("请输入一个数：")Fee=a(loa@D@Print feeEnd Sub运行后的输出结果是 1。
  • 1、
【正确答案】 1、正确答案：40    
【答案解析】解析：本题的事件过程非常简单，输入数据，调用通用函数过程的输出返回函数值。本题调用通用函数过程，进行虚实结合后load的值为20，执行a函数时，首先判断load＜20条件为假，执行money-20+load，使money的值为40，接着执行a=money语句，使函数名的值为40，执行到语句End Function则返回调用它的事件过程，将函数值赋给变量fee，最后输出变量fee的值，其值为40。