UC知道vb问题 print
来源：百度知道 编辑：UC知道 时间：2024/06/17 23:33:49
用VB编辑球素数的程序后，如何把求出的素数显示在文本框中
Private Sub speedbar_Scroll()
Text1.Text = Str$(speedbar.Value)
End Sub
Private Sub Command3_Click()
Dim i As Integer, n As Integer, m As Integer
For i = 1 To Val(Text1.Text)
For n = 2 To i - 1
If i Mod n = 0 Then Exit For
Next n
If n = i Then
Print i;
m = m + 1
If m Mod 10 = 0 Then Print ————这里的print 怎么改？？
End If
Next i
End Sub
不是用print显示在窗体上，我是想让结果显示在一个文本框中。
Private Sub speedbar_Scroll()
Text1.Text = Str$(speedbar.Value)
End Sub
Private Sub Command3_Click()
Dim i As Integer, n As Integer, m As Integer
For i = 1 To Val(Text1.Text)
For n = 2 To i - 1
If i Mod n = 0 Then Exit For
Next n
If n = i Then
Print i;
m = m + 1
If m Mod 10 = 0 Then Print ————这里的print 怎么改？？
End If
Next i
End Sub
不是用print显示在窗体上，我是想让结果显示在一个文本框中。
你要Print什么？
如果想显示m就直接写Print m 就会在窗体上显示了。
If m Mod 10 = 0 Then
form1.cls'清空窗体
print m'显示M值
endif
窗体的自动重画AutoRedraw要设为True
If m Mod 10 = 0 Then text1=m
End If
Next i
End Sub