UC知道高手帮忙解释下此vb程序～
来源：百度知道 编辑：UC知道 时间：2024/06/27 13:39:38
Private Sub Form_Load()
Dim i As Integer, j As Integer, s As Integer
For i = 2 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then
Text1.Text = Text1.Text & i & " "
s = s + 1
If s Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
我是菜鸟～越详细越好～～～特别是关于 for循环的一些东西～
Dim i As Integer, j As Integer, s As Integer
For i = 2 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then
Text1.Text = Text1.Text & i & " "
s = s + 1
If s Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
我是菜鸟～越详细越好～～～特别是关于 for循环的一些东西～
for i = 2 to 100 ' i的取值从2到100
for j = 2 to sqr(i) ' j的取值从2到sqr(i),sqr(i)为i的平方根
if i Mod j = 0 Then Exit for '假如j能被i整除就退出for循环
next j
if j > sqr(i) Then
Text1.Text = Text1.Text & i & " " '在Text1.Text的后面加上i和一个空格
s=s+1
If s Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next i
End Sub
求质数的，俺不会解释！
后来者上
俺不会解释