求大神给个vb求指定范围内素数的代码
vb.net吧
全部回复
仅看楼主
level 4
583517924 楼主
知道算法，但是老是运行不出来
2014年09月21日 15点09分 1
level 9
philmusic
等明天给你写
2014年09月21日 15点09分 2
583517924
写吧
2014年09月22日 04点09分
level 4
583517924 楼主
写吧
2014年09月22日 04点09分 3
level 13
Nukepayload2
百度文库那么多参考，随便找一个就能写了
2014年09月22日 10点09分 4
level 9
philmusic
给你一个最直观的吧，一个只能被本身和1整除的正整数即为质数。你把下面代码复制到控制台项目中试着运行下。
Module Module1
Private Sub GetPrimeNumber(ByVal MaxRange As Integer)
For i As Integer = 1 To MaxRange
Dim flag As Integer = 0
For j As Integer = 1 To i
If i Mod j = 0 Then
flag += 1
End If
Next
If flag = 2 Then
Console.WriteLine(i)
End If
Next
End Sub
Sub Main()
Console.WriteLine("请输入您要求取素数的最大范围值：")
Dim intInput As Integer = CInt(Console.ReadLine())
GetPrimeNumber(intInput)
Console.ReadLine()
End Sub
End Module
2014年09月24日 02点09分 5
level 9
philmusic
更新一个输出优化版，输出效果如图。
Module Module1
Private Sub GetPrimeNumber(ByVal MaxRange As Integer)
Dim columncount As Integer = 0
For i As Integer = 1 To MaxRange
Dim flag As Integer = 0
For j As Integer = 1 To i
If i Mod j = 0 Then
flag += 1
End If
Next
If flag = 2 Then
Console.Write(i.ToString + vbTab)
columncount += 1
If columncount Mod 10 = 0 Then
Console.Write(vbCrLf)
End If
End If
Next
End Sub
Sub Main()
Console.WriteLine("请输入您要求取素数的最大范围值：")
Dim intInput As Integer = CInt(Console.ReadLine())
GetPrimeNumber(intInput)
Console.WriteLine(vbCrLf + "按任意键返回...")
Console.ReadLine()
End Sub
End Module
2014年09月24日 02点09分 6
1