UC知道关于VB的求质数的代码问题
来源：百度知道 编辑：UC知道 时间：2024/07/07 20:32:20
这是我的代码.我还有一个TextBox,它的名字是txt1.我想知道怎样把我求出来的质数都显示在这个txt1里?
质数代码是
Private Sub Command1_Click()
For i = 1 To 1000
k = 1
For j = 2 To i / 2
If i Mod j = 0 Then k = 0
Next j
If k = 1 Then Print i
Next i
End Sub
另外我还想知道一个当质数全显示在这个txt里之后我要把它保存为txt文本格式并保存在指定盘下的那个按键的代码是多少?
谢谢大家了.
质数代码是
Private Sub Command1_Click()
For i = 1 To 1000
k = 1
For j = 2 To i / 2
If i Mod j = 0 Then k = 0
Next j
If k = 1 Then Print i
Next i
End Sub
另外我还想知道一个当质数全显示在这个txt里之后我要把它保存为txt文本格式并保存在指定盘下的那个按键的代码是多少?
谢谢大家了.
Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To 1000
k = 1
For j = 2 To i / 2
If i Mod j = 0 Then k = 0
Next j
If k = 1 Then
'Print i
Text1.Text = Text1.Text & i & " "
End If
Next i
End Sub
Private Sub Command2_Click()
Open "d:\data.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Mail to happyq6@163.com
I can tell you.