这是我的一个作业.要求一小于一个数的所有素数!
我弄了几个晚上也每弄出来,现在挂出代码,请大家帮我修改一下!非常感激!



Dim n, i, j As Integer
Dim yesmod, modyes As Single
n = Val(TextBox1.Text)
yesmod = 0 '标记符，标记是否能整除，0是不能整除，1是能整除。
i = n - 1
For i = 1 To n - 1
For j = 2 To i - 1
modyes = i Mod j
If modyes = 0 Then '能整除表示该数不是素数，所以标记不是素数
yesmod = 1
Exit For
End If
Next j
Next i
If yesmod = 0 Then End
TextBox2.Text = " "
For j = 1 To i
TextBox2.Text = j & "< & nbsp>"
Next (j)

Dim n, i, j As Integer
Dim yesmod, modyes As Single
n = Val(TextBox1.Text)
i = n - 1
For i = 3 To n - 1
For j = 2 To i-1
If i mod j=0 Then exit for
Next j
if j=i then debug.print j
Next i

发帖子的时候，请在题目上直接阐明你的问题，这样可以叫人一目了然