【文章內(nèi)容簡(jiǎn)介】
法 1: X=inputbox(“”) If x=0 then print x Else Print x 蘋果打折 1. 輸入蘋果重量X 2. 如果X 2 那么 y= *X * 否則 y=*X 3. 輸出 付錢 y 商場(chǎng)里蘋果打折扣,購(gòu)買 2千克以上可以在原價(jià)每千克 8折,請(qǐng)?jiān)O(shè)計(jì)一個(gè)程序計(jì)算購(gòu)買 X千克蘋果的應(yīng)付款 ? Dim x As Single, y As Single ? x = InputBox(“蘋果重量 ) ? If x 2 Then ? y = * x * ? Else ? y = * x ? End If ? Print “應(yīng)付款為 。 y 閏年問題 ? 整百年能被 400整除 如: 400,1200