Private Sub Form_Load()
Show
Dim x As Single, y As Single, n As Single
x = InputBox("请输入人均食品支出总额:", "输入")
y = InputBox("请输入人均个人消费支出总额:", "输入")
n = x / y

Print "恩格尔系数你＝"; n

Select Case CInt(n * 100)
Case Is > 59
Print " 该地区居民生活处于贫困水平"
Case 50 To 59
Print "该地区居民生活处于温饱水平"
Case 40 To 49
Print "该地区居民生活处于小康水平"
Case 30 To 39
Print "该地区居民生活处于富裕水平"
Case Else
Print "该地区居民生活处于最富裕水平"
End Select
End Sub

将窗体的AutoRedraw设置为True,也可以叻。"ls的ls正解"是什么意思啊？

那是灌水的暗语

这种事.岂能说出来.

呵呵.LS的LS正解

灌吧.
想积分高.
灌.就一个字.

ls\ BS\这些都介绍一下嘛

ls=LouShang=楼上
BS=BiShi=鄙视
..
这网络语言都不知道.
ls在网络混没多久吧?

要是我还介绍的话,我真的会被人BS了.

闪人先