阅读下面程序：Private Function a(load As Integer) As SingleIf load ＜20 thenmoney = load/2elsemoney =20 + loadend ifa = moneyEnd FunctionPrivate Sub Form_Click( )Dim load As Integer, fee As SingleLoad = InputBox("请输入一个数:")fee= a(loa@D@Print feeEnd Sub输入20，运行后的输出结

题目

阅读下面程序：

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(loa@D@Print fee

End Sub

输入20，运行后的输出结果是【 】。

相似考题

1.简述Load,Init ,Activate 的前后顺序。()A、Load，Init ，ActivateB、Init ，Load，ActivateC、Load，Activate ，InitD、Init ，Load，Activate

2.Whichelement,definedasachildofaelementinthewebapplicationdeploymentdescriptor,guaranteesaservletwillbeinitializedatthetimetheapplicationisdeployed?()A.<load-on-startup/>B.<load-on-startup>1</load-on-startup>C.<load-on-startup>-1</load-on-startup>D.<load-on-startup>true</load-on-startup>

3.interfaceData{publicvoidload();}abstractclassInfo{publicabstractvoidload();}WhichclasscorrectlyusestheDatainterfaceandInfoclass?()A.publicclassEmployeeextendsInfoimplementsData{publicvoidload（）{/*dosomething*/}}B.publicclassEmployeeimplementsInfoextendsData{publicvoidload（）{/*dosomething*/}}C.publicclassEmployeeextendsInfoimplementsData{publicvoidload（）{/*dosomething*/}publicvoidInfo.load（）{/*dosomething*/}}D.publicclassEmployeeimplementsInfoextendsData{publicvoidData.load（）{/*dsomething*/}publicvoidload（）{/*dosomething*/}}E.publicclassEmployeeimplementsInfoextendsData{publicvoidload（）{/*dosomething*/}publicvoidInfo.load（）{/*dosomething*/}}F.publicclassEmployeeextendsInfoimplementsData{publicvoidData.load（）{/*dosomething*/}publicvoidInfo.load（）{/*dosomething*/}}

4.CBSC单板加载过程中,可能出现无法加载,原因可能是LOAD进程端口被占用,下面的哪个应用程序可能和LOAD进程冲突()A.snmp；B.ftp；C.telnet；D.tftp。

参考答案和解析
正确答案：40
40 解析：本题调用通用函数过程，进行虚实结合后load的值为20。执行a函数时，首先判断 load20条件为假，执行money=20+load，使money的值为40。接着执行a=money语句，使函数名的值为40，执行到语句End Function则返回调用它的事件过程，将函数值赋给变量fee。最后输出变量fee的值，其值为40。
更多“阅读下面程序:Private Function a(load As Integer) As SingleIf load <20 thenmoney = load／2el ”相关问题

  • 第1题：

    如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。

    A．Private Sub form_ Load() Text1. Text="*****"End Sub

    B．Private Sub form_ Load() Text1. PasswordChar=“*”End Sub

    C．Private Sub form_ Load() Text1. Visible="*****" End Sub

    D．Private Sub form. Load() Text1. Text= String(5，"*")End Sub


    正确答案：C
    解析：本题中，“Text1. PasswordChar=“*””是设置文本框的命令属性，将“Text1”转换成“*****”。 “Text1. Visible“*****””是错的。

  • 第2题：

    在表单的常用基本事件中，按照触发时机的先后排列，顺序应为( )。

    A.Init、Load、Destroy、Unload

    B.Init、Load、Unload、Destroy

    C.Load、Init、Destroy、Unload

    D.Load、Init、Unload、Destroy


    正确答案：C

  • 第3题：

    下面是一个D触发器的模块。阅读后指出，哪一种说法不正确？ module mydff （clk, reset, load, d, q); input clk, d, reset, load; output q; reg q; always @ （posedge clk or posedge reset or posedge load) begin if （reset==1) // q＜=0; else if （load==1) // q＜=1; else q＜=d; end endmodule

    A．该触发器具有异步端口reset和load；

    B．可以异步置0，可以异步置1

    C．该触发器是下降沿触发

    D．该触发器是上升沿触发


    B

  • 第4题：

    运行以下程序时，由键盘为变量load输入的数据为20，输出结果为______。 Private Function Wei(load As Integer)，Money As Single If load＜20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form. _Click() Dim load As Integer，fee As Single load=InputBox(“请输入一个数：”) fee=Wei(loaD)Print fee End Sub

    A．10

    B．20

    C．30

    D．40


    正确答案：D
    解析：本题的程序中调用通用函数过程，当进行虚实结合后，变量load的值为20。当执行Wei函数时，首先判断条件load20为假，执行语句Money＝20+load，使Money的值为40，接着执行语句Wei＝Money，使函数名的值为40，执行到语句EndFunction则返回到调用它的事件过程，将函数值赋给变量fee，最后输出变量fee的值40。

  • 第5题：

    打开窗体Form1时自动执行的语句，应将代码写入_______事件的过程模块。

    A．Form1_Load()

    B．Form1.Load()

    C．Form_Load()

    D．Form.Load()


    Form1_Load()

相关内容