VB里随机产生一个三位整数判断是否为素数,用穷举法来做

显示全部楼层 · 2008-11-16 21:37:39

千问 · 2008-11-16 21:37:39

Private Sub Command1_Click() Dim Num As Integer Randomize Num = Int(900 * Rnd + 100) For i = 2 To Int(Sqr(nun))if nun mod i=0 thenForm1.Print Num & "不是素数" Exit Sub End If Next i Form1.Print Num & "是素数" End Sub...

千问 · 2008-11-16 21:37:39

Private Sub Command1_Click()Dim Num As IntegerRandomizeNum = Int(900 * Rnd + 100)For i = 2 To Num - 1
For j = i To Num - 1
If i * j = Num Then
Fo...