1、.1 如何對一個地區居民生活水平 狀況進行評價？.2n 59%n 59%為貧困；為貧困；50% n 59%50% n 59%為溫飽；為溫飽； 40% n 40% n 50%50%為小康；為小康；30% n 30% n 40%40%為富裕；為富裕；n n 低于低于 30%30%為最富裕。為最富裕。恩格爾系數n=人均食品支出總額人均食品支出總額人均個人消費支出總額人均個人消費支出總額100%100%.3 根據某地居民家庭抽樣調查的有關資料，已知該地區居民人均食品支出總額x和人均個人消費總額y，請你編寫一個程序，求恩格爾系數，并根據聯合國糧農組織提出的標準，判斷該地區居民生活水平狀況。.4Priva

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

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

4、2Private Sub command1_click() End SubSelect Case Zf case “A” to “Z” print Zf;”是大寫字母” case “a” to “z” print Zf;”是小寫字母” case “0” to “9” print Zf;”是數字” case else print Zf;”是其他字符” End SelectDim Zf As stringZf =Inputbox(“請輸入字符”,”輸入”).13練習3：同學們都喜歡知道自己的星座，請編寫一個程序以實現：每輸入一個生日日期，就進入一個對應星座。水瓶 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處女 8.23-9.22天枰 9.23-10.23天蝎 10.2