vb.net求素数 vb统计文件中素数的个数

vb.net利用doloop until 计算从1开始的素数之和直到和不大于989为止

Module Module1

    Sub Main()

        Dim sum As Integer = 0

        Dim Bound As Integer = 989

        Dim num As Integer = 0

        Dim cprime As Integer = 0

        Do

            num += 1

            If IsPrame(num) Then

                sum += num

                cprime = num

            End If

        Loop Until sum  Bound

        Console.WriteLine(sum - cprime)

        Console.ReadKey()

    End Sub

    '判断一个数是不是素数

    Public Function IsPrame(ByVal num As Integer) As Boolean

        If num = 1 Then Return False '素数的定义是大于1

        For i = 2 To CType(Int(Math.Sqrt(num)), Integer)

            If num Mod i = 0 Then Return False

        Next

        Return True

    End Function

End Module

相关问答

Q1: 编写程序求第21个素数 VB

以下是VB.net自己编的输出N-M范围所有质数的函数，效率很高,1-1000000不到1秒。

VB6.0也可以使用，1.把#Region和括号内的语句都删除

2.把Microsoft.VisualBasic.Right改为Right

3.把Math.Log改为Log

#Region "■ 选质数 | ListPrime"

''' summary

''' 返回整数数组，表示指定自然数区间内的所有质数。

''' /summary

''' param name="头自然数"可选，默认值为1。[Integer类]，区间起始的自然数。/param

''' param name="尾自然数"可选，默认值为2。[Integer类]，区间结束的自然数，必须大于头自然数。/param

Public Function 选质数(Optional ByVal 头自然数 As Integer = 1, Optional ByVal 尾自然数 As Integer = 2) As Integer()

Dim 质数估计数量 As Integer = Int(尾自然数 * 1.2 / Math.Log(尾自然数))

Dim 质数集合(质数估计数量) As Integer

Dim 序号 As Integer = 0 '已找到质数的个数

Dim 测试数 As Integer

Dim 平方根 As Integer

Dim 测试数增量 As Integer = 4

Dim 尾数 As String

If 尾自然数 头自然数 Then Return Nothing

If 头自然数 6 Then '6以内的质数直接给出

If 头自然数 = 2 Then 质数集合(序号) = 2 : 序号 += 1

If 头自然数 = 3 Then 质数集合(序号) = 3 : 序号 += 1

If 头自然数 = 5 Then 质数集合(序号) = 5 : 序号 += 1

测试数 = 7

Else

测试数 = 头自然数

End If

Do Until 测试数 = 尾自然数

尾数 = Microsoft.VisualBasic.Right(CStr(测试数), 1)

If 尾数 = "5" Then GoTo 跳过 '尾数为5的必然是合数

平方根 = Int(测试数 ^ 0.5)

If 平方根 = 3 Then

For i As Integer = 3 To 平方根 Step 2

If 测试数 Mod i = 0 Then GoTo 跳过

Next

End If

成立:

质数集合(序号) = 测试数

序号 += 1

跳过:

测试数 += 测试数增量

测试数增量 = 6 - 测试数增量 '测试数增量在4和2间变化，只测试6n+1和6n+5

Loop

'按实际找到的质数个数重定义集合

ReDim Preserve 质数集合(序号 - 1)

Return 质数集合

End Function

#End Region

Q2: VB中 求素数

发你邮箱了~查收吧

Dim a(100) As Integer, b()

Private Sub Command1_Click()

For I = 1 To 100

a(I) = Int(Rnd * 1000)

Print a(I);

If I Mod 10 = 0 Then Print

Next

Call xx

Print "素数："

For I = 1 To UBound(b)

Print b(I);

If I Mod 10 = 0 Then Print

Next

End Sub

Private Sub xx()

Dim I As Integer, N As Integer, j As Integer

For j = 1 To 100

N = a(j)

For I = 2 To N - 1

If N Mod I = 0 Then Exit For

Next

If I = N Then

x = x + 1

ReDim Preserve b(x)

b(x) = a(j)

End If

Next

End Sub

Q3: 显示100以内所有素数 VB.net语言

‘这个是可以选择范围的查找

Public Class Form1

    '一个大于1的自然数vb.net求素数，除vb.net求素数了1和它本身外vb.net求素数，不能被整除以其vb.net求素数他自然数（质数），换句话说就是该数除了1和它本身以外不再有其他的因数

    ' 章鱼哥 3107073263

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PD As Boolean = True

        TextBox1.Clear() '首先清空文本框，这里面将放置符合条件的素数

        If NumericUpDown1.Value  NumericUpDown2.Value Then '从小到大

            For i = NumericUpDown1.Value To NumericUpDown2.Value '循坏判断所有数

                For j = 2 To i - 1 '内循环是除了1和它本身的

                    If i Mod j = 0 Then '判断是否能被除了1和自身以为的 比自身小的数整除

                        PD = False '如果能被整除，将PD 设置为False

                        Exit For '退出里层For 循环

                    Else

                        PD = True

                    End If

                Next

                If PD Then '如果PD为True ，则为素数

                    TextBox1.Text = i  "  "

                End If

            Next

        End If

    End Sub

End Class

vb.net求素数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb统计文件中素数的个数、vb.net求素数的信息别忘了在本站进行查找喔。