[填空題] 下列程序的功能是：當(dāng)x＜50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x＞100時(shí)，沒有意義。請(qǐng)?zhí)羁铡? Private Sub
2021-07-20
[填空題] 下列程序的功能是：當(dāng)x＜50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x＞100時(shí)，沒有意義。請(qǐng)?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim x AS Single
x=InputBox("請(qǐng)輸入x的值!")
(14)
Case Is＜50
y=0.8*x
Case 50 To 100
y=0.7*K
(15)
Print"輸入的數(shù)據(jù)出界!"
End Select
Print x，y
End Sub
正確答案：Select Case x
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。