我用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工程文件上傳.