Question

关于VB 我用一个新窗体调用了模块的程序，结果，它也让会运行，可是最后的结果却是空白一片，这是为什么

一个MODIFY的题
【Modify52】
'该过程是用于求出满足不等式1+2x+3x^2+4x^3+…+(n+1)x^n<1000的最大n值，
'其中x是大于等于1的实数，其值由键盘输入。
Public Sub Inequation()
Dim x As Single, s As Single, n As Integer, s1 As Single, p As Single
x = Val(InputBox("x="))
s = 1: n = 1
p = x
While s < 1000

s1 = s
s = s + (n + 1) * p
p = p * x
n = n + 1
Wend
n = n - 2
Form1.Print "The Maxism of n"; n, "s="; s1
End Sub
我用一个新窗体调用了这个模块的程序，结果成功了。运行新窗体，会显示一个输入框，“X=” 我就随便输了个数，例如“6”，按了下“确定”。但结果是一个空白的窗体，这是为什么呀？

Answer 1

Private Sub Form_Load()
Form1.Show ' 首先显示窗体
Form1.AutoRedraw = True ' 让窗体在必要时自动重绘
Inequation ' 然后再调用你的方法
End Sub

或者把你的
Form1.Print "The Maxism of n"; n, "s="; s1
改成
Debug.Print "The Maxism of n"; n, "s="; s1
然后在立即窗口里看结果,这个不受窗体显示和重绘的影响.