vb编程的一个问题

我用vb编了一个程序，找出１０００到１００００之间的完全平方数如下dim n%,a%for n=int(sqr(1000))+1 to 100 step 1a=n^2print anext n最后数是可以全部找出来，但由于vb的窗口太小，那些数不能完全显示出来，当我在运行程序之前把窗口拉大一点，就多显一点数，该怎么办才能将所有的数字都显示出来呢？谢谢赐教（本人菜鸟一只）

热心网友

可借助Picture控件和VscrollBar控件达到将所有的数字都显示出来,代码如下:Option ExplicitDim n As IntegerDim a As IntegerPrivate Sub Form_Load() For n = Int(Sqr(1000)) + 1 To 100 Step 1 a = n ^ 2 Picture2.Print a Next nEnd SubPrivate Sub VScroll1_Change() Picture2.Top = -VScroll1 * 1End Sub工程文件上传.