[填空題] Sub subl(x As Single, ByVal y As Single) t=x x=t/y y=t Mod y End Sub
2021-07-20
[填空題] Sub subl(x As Single, ByVal y As Single)
t=x
x=t/y
y=t Mod y
End Sub
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
sub1 a,b
Print "a="；a，"b="；b
End Sub
程序運行后，單擊命令按鈕，則a= (6) ，b= (7) 。
正確答案：D
參考解析：sub1子過程中，x默認(rèn)為地址傳遞，y被定義為傳值傳遞，即y值的變動不會改變原來變量的值，所以Form_Click中b的值保持4不變。傳入"a=5，b=4"。t=5，x=5/4，故x=1.25；y=5%4，故y=1。最后結(jié)果為a=1.25，b=4。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。