多重選擇語句

1、 如何對一個地區(qū)居民生活水平 狀況進行評價？n 59%n 59%為為貧貧困；困；5050% n 59% n 59%為溫飽為溫飽； 4040% n % n 50%50%為小為小康；康；3030% n % n 40%40%為富為富裕；裕；n n 低于低于 30%30%為最富裕。為最富裕。恩格爾系數(shù)n=人均食品支出總額人均食品支出總額人均個人消費支出總額人均個人消費支出總額100%100% 根據(jù)某地居民家庭抽樣調(diào)查的有關(guān)資料，已知該地區(qū)居民人均食品支出總額x和人均個人消費總額y，請你編寫一個程序，求恩格爾系數(shù)，并根據(jù)聯(lián)合國糧農(nóng)組織提出的標(biāo)準(zhǔn)，判斷該地區(qū)居民生活水平狀況。Private sub com

2、mand1_click() x=inputbox(“請輸入人均食品支出總額”,”輸入”) y=inputbox(“請輸入人均個人消費支出總額”,”輸入”) n=x/y print “恩格爾系數(shù)n=”;n End sub if n0.59 then print “該地區(qū)居民生活處于貧困水平” if n=0.5 and n=0.4 and n=0.3 and n0.4 then print “該地區(qū)居民生活處于富裕水平” if n0.59 then print “該地區(qū)居民生活處于貧困水平” if n=0.5 and n=0.4 and n=0.3 and n0.4 then print “該地區(qū)

3、居民生活處于富裕水平” if n5950 to 5940 to 4930 to 39elseselect case case print “該地區(qū)居民生活處于貧困水平” case print “該地區(qū)居民生活處于溫飽水平” case print “該地區(qū)居民生活處于小康水平” case print “該地區(qū)居民生活處于富裕水平” case print “該地區(qū)居民生活處于最富裕水平” End select 練習(xí)2：我們把鍵盤上的字符作如下分類： 大寫字母：AZ 小寫字母：az 數(shù) 字：09 其他字符編寫一個程序，根據(jù)上述的分類，輸入一個字符，報告該字符所屬的類型。Private Sub com

4、mand1_click() End SubSelect Case Zf case “A” to “Z” print Zf;”是大寫字母” case “a” to “z” print Zf;”是小寫字母” case “0” to “9” print Zf;”是數(shù)字” case else print Zf;”是其他字符” End SelectDim Zf As stringZf =Inputbox(“請輸入字符”,”輸入”)練習(xí)3：同學(xué)們都喜歡知道自己的星座，請編寫一個程序以實現(xiàn)：每輸入一個生日日期，就進入一個對應(yīng)星座。水瓶 1.20-2.18雙魚 2.19-3.20白羊 3.21-4.19金牛 4.20-5.20雙子 5.21-6.21巨蟹 6.22-7.22獅子 7.23-8.22處