中科新闻网android 网络通信:一个用VB解决的问题,各位老兄帮帮忙
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 06:58:18
编写窗体单击事件过程.求解出3到50内的所有素数.(提示:判别某数m是否为素数最简单的方法是:对于m从i=2,3,........m-1判别m能否被i整除,只要有一个能整除,m不是素数,否则m是素数)
素数是指只能被本身或1整除
我编写了如下的
Private Sub Form_click()
Dim a As Integer, s As Integer, m As Integer
s = 1
a = 2
For i = 1 To 50
a = a + 1
For t = 1 To a - 2
s = s + 1
m = a Mod s
Next t
If m = 0 Then
Print a; "不是素数"
Else
Print a; "是素数"
End If
Next i
End Sub
究竟有什么问题?
原题是求50以内的素数,我现在改了改,答案我都要.
素数是指只能被本身或1整除
我编写了如下的
Private Sub Form_click()
Dim a As Integer, s As Integer, m As Integer
s = 1
a = 2
For i = 1 To 50
a = a + 1
For t = 1 To a - 2
s = s + 1
m = a Mod s
Next t
If m = 0 Then
Print a; "不是素数"
Else
Print a; "是素数"
End If
Next i
End Sub
究竟有什么问题?
原题是求50以内的素数,我现在改了改,答案我都要.
你的程序有问题，看看我改过的吧
Private Sub Form_click()
For i = 1 To 50
x = 0
For t = 2 To i - 1
m = i Mod t
If m = 0 Then x = 1
Next t
If x = 1 Then
Print i; "不是素数"
Else
Print i; "是素数"
End If
Next i
End Sub