神马品牌网地震带来的灾害90字:VB编程格式问题！！！急～～～～～
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 11:49:53
编写一个求素数过程，其功能是找出指定区间内的所有素数并将其按每行五个的格式显示在文本框中.
我写的代码是:
Private Sub Option1_Click()
Text1.Text = ""
For i = 100 To 200
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j > i - 1 Then
Text1.Text = Text1.Text + Str(i)
End If
n = n + 1
Next i
End Sub
请问需要怎样改才能每5个一行啊？
我写的代码是:
Private Sub Option1_Click()
Text1.Text = ""
For i = 100 To 200
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j > i - 1 Then
Text1.Text = Text1.Text + Str(i)
End If
n = n + 1
Next i
End Sub
请问需要怎样改才能每5个一行啊？
首先设置text的multiline＝true
Private Sub Option1_Click()
Text1.Text = ""
For i = 100 To 200
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j > i - 1 Then
n = n + 1
Text1.Text = Text1.Text & Str(i) & " "
If n Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
弄个计数器呀，当有5个了，就在text1.text后面跟一个vbcrlf换行。
5个一行.楼上的应该是mod 5