vb中怎样让输出结果全部显示出来

Question

有一个很简单的小程序：Private Sub form_click()
X = 1
Do
If X Mod 3 = 0 Then Print X
X = X + 1
Loop While X <= 100

End Sub
运行后结果不能全部显示出来，只显示到51，怎么办？

Answer 1

那是因为你的窗体设的太小，数多了容纳不下。
两种方法：
方法1、在设计时，将你的窗体调大点。再运行就行了。

方法2、将窗体的Autoredraw属性设为True，运行后，若数不全部显示，（运行后）将窗体最大化……

Answer 2

代码没问题，运行后先最大化窗体,再单击FORM1触发(form_click)事件,因为默认大小的FORM窗体显示不下那么多行,所以先只有最大化窗体才可以看到全部结果，当然你也可以加入语句控制输出的格式.

Answer 3

你的窗口不够高啊！怎么这种问题都没有发现呢？
你把窗口拉高就可以了，或者像楼上的那样直接最大化。

Answer 4

Private Sub form_click()
X = 1
Do
If X Mod 3 = 0 Then Print X
X = X + 1
Loop While X <= 100
End Sub

Private Sub Form_Load()
Me.WindowState = 2
End Sub

Answer 5

是不是你的窗体不够显示？
你把窗体拉大点