那是因为你的窗体设的太小,数多了容纳不下。
两种方法:
方法1、在设计时,将你的窗体调大点。再运行就行了。
方法2、将窗体的Autoredraw属性设为True,运行后,若数不全部显示,(运行后)将窗体最大化……
代码没问题,运行后先最大化窗体,再单击FORM1触发(form_click)事件,因为默认大小的FORM窗体显示不下那么多行,所以先只有最大化窗体才可以看到全部结果,当然你也可以加入语句控制输出的格式.
你的窗口不够高啊!怎么这种问题都没有发现呢?
你把窗口拉高就可以了,或者像楼上的那样直接最大化。
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
是不是你的窗体不够显示?
你把窗体拉大点