阅读下面程序：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，运行后的输出结果是【 】。
相关考题：
简述Load,Init ,Activate 的前后顺序。() A、Load，Init ，ActivateB、Init ，Load，ActivateC、Load，Activate ，InitD、Init ，Load，Activate
Whichelement,definedasachildofaelementinthewebapplicationdeploymentdescriptor,guaranteesaservletwillbeinitializedatthetimetheapplicationisdeployed?() A.load-on-startup/B.load-on-startup1/load-on-startupC.load-on-startup-1/load-on-startupD.load-on-startuptrue/load-on-startup
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*/}}
如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。A．Private Sub form_ Load() Text1. Text="*****"End SubB．Private Sub form_ Load() Text1. PasswordChar=“*”End SubC．Private Sub form_ Load() Text1. Visible="*****" End SubD．Private Sub form. Load() Text1. Text= String(5，"*")End Sub
运行以下程序时，由键盘为变量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 SubA．10B．20C．30D．40
在表单的常用基本事件中，按照触发时机的先后排列，顺序应为( )。A.Init、Load、Destroy、UnloadB.Init、Load、Unload、DestroyC.Load、Init、Destroy、UnloadD.Load、Init、Unload、Destroy
下面是一个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 endmoduleA．该触发器具有异步端口reset和load；B．可以异步置0，可以异步置1C．该触发器是下降沿触发D．该触发器是上升沿触发