我正在学习“程序的选择结构”，下面的是照着书打的，是一个关于“恩格尔系数”的例子，不知为什么，就是不行，inputox出来后，，我按入了数据，然后Form没显示。



Private Sub Form_Load()
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

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

在FormLoad事件里的print都不会显示出来,建议放在Form_Click事件里

谢谢  purana  ，加个"show"是有什么作用啊？

show
显示

[此贴子已经被作者于2007-9-22 11:31:52编辑过]

是因为你在Load窗体的时候.它被挡住了.
你不用Show也可以
你只要将窗体的AutoRedraw设置为True就行.

ls正解。。并不像3楼所说。。。

ls的ls正解.

ls的ls的ls正解.

代码没有缩进.
看起来不好看.