1、 如何对一个地区居民生活水平 状况进行评价?1n 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%2 根据某地居民家庭抽样调查的有关资料,已知该地区居民人均食品支出总额x和人均个人消费总额y,请你编写一个程序,求恩格尔系数,并根据联合国粮农组织提出的标准,判断该地区居民生活水平状况。3Private sub comma
2、nd1_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 print“该地区居民生活处于富裕水平”if
3、 n5950 to 5940 to 4930 to 39elseselect case case print “该地区居民生活处于贫困水平”case print “该地区居民生活处于温饱水平”case print “该地区居民生活处于小康水平”case print “该地区居民生活处于富裕水平”case print “该地区居民生活处于最富裕水平”End select 10练习2:我们把键盘上的字符作如下分类:大写字母:AZ 小写字母:az 数 字:09 其他字符编写一个程序,根据上述的分类,输入一个字符,报告该字符所属的类型。11Private Sub command1_click()End
4、 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(“请输入字符”,”输入”)12练习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.24-11.22射手 11.23-12.21摩羯 12.22-1.1913此课件下载可自行编辑修改,供参考!感谢您的支持,我们努力做得更好!14