网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读下面程序：
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，运行后的输出结果是【 】。
参考答案
更多 “ 阅读下面程序：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，运行后的输出结果是【 】。 ” 相关考题
考题
简述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
考题
打开窗体Form1时自动执行的语句，应将代码写入_______事件的过程模块。A．Form1_Load()B．Form1.Load()C．Form_Load()D．Form.Load()
考题
下面是一个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．该触发器是上升沿触发
热门标签
最新试卷
