＋设为首页 ＋添加到收藏夹
代码如下：
Private Sub Command1_Click()
Dim i As Single, j As Integer
Dim x As Single, y(32600) As Currency
For x = 0 To 1000
y(x) = 170 * (1 - ((850 - x / 50) / 850) ^ 2.8)
i = x / 50
Text1.Text = Text1.Text + "X" + Str$(x) + "=" + Str$(i) + " Y" + Str$(x) + "=" + Str$(y(x)) + Chr$(13) + Chr$(10)
Next x
End Sub
我要计算很多个点，然后输出。我把它从文本框输出。当只输入200个点时，不会死机。但是点越多月难计算，半天出不来，还容易死机。请帮帮忙！谢谢！
你加一个滚动条要好一点了。
Private Sub Command1_Click()
Dim i As Single, j As Integer
Dim x As Single, y(32600) As Currency
dim tstr as string
For x = 0 To 1000
y(x) = 170 * (1 - ((850 - x / 50) / 850) ^ 2.8)
i = x / 50
Tstr = Tstr + "X" + Str$(x) + "=" + Str$(i) + " Y" + Str$(x) + "=" + Str$(y(x)) + Chr$(13) + Chr$(10)
Next x
text1=tstr
End Sub
再多一点的话你可以考虑一下分段
在循环里最好不要直接用TEXT控件进行字符串累加,因为访问控件的时候要先寻址,所以如果用变量的话会大大的加快速度.如果循环数过多,也可能是导致死机的原因吧~~
