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