L = InputBox("请输入铁丝的长度：")
S = InputBox("请输入矩形的面积:")
D = L * L / 4 - 4 * S
If D >= 0 Then '如果D>=0，则计算X1和X2的值，并打印X1、X2
X1 = (L / 2 + Sqr(D)) / 2
X2 = (L / 2 - Sqr(D)) / 2
Print "这个矩形的长和宽分别为:"; X1; "和"; X2
Else '否则打印"找不到这样的矩形!"
Print "找不到这样的矩形!"
End If
分割线----------------------
x = InputBox("请输入人均视屏指出总额:", "输入")
y = InputBox("请输入人均个人消费指出总额:", "输入")
n = x / y
Print "恩格尔系数n="; n
If n > 0.59 Then Print "该地区居民生活处于贫困水平!"
If (0.5 <= n) And (n <= 0.59) Then Print "该地区居民生活处于小康水平！"
If (0.4 <= n) And (n < 0.4) Then Print "该地区居民生活处于富裕水平！"
If n < 0.3 Then Print "该地区居民生活处于最富裕水平！"