实例006查找随机数组中质数的个数

Visual Basic 中的数组

https://docs.microsoft.com/zh-cn/dotnet/visual-basic/programming-guide/language-features/arrays/#the-array-type

Array 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.array?view=netframework-4.8

VBMath.Randomize 方法

https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.vbmath.randomize?view=netframework-4.8

VBMath.Rnd 方法

https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.vbmath.rnd?view=netframework-4.8#Microsoft_VisualBasic_VBMath_Rnd

Conversion.Int 方法

https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.conversion.int?view=netframework-4.8

NET 中的格式类型

https://docs.microsoft.com/zh-cn/dotnet/standard/base-types/formatting-types

控制台程序

Module Module1

    Sub Main()
        '源数组
        Dim scArray(20) As Integer
        '找到的结果数组
        Dim resPArray(0) As Integer
        'MsgBox(scArray.GetUpperBound(0)),获取数组第一维的最大下标，比元素个数小1
        'MsgBox(scArray.GetLength(0)),获取数组第一维长度
        '循环计数
        Dim icount As Integer
        '保存生成的随机数
        Dim Rnds As Integer
        '随机种子
        Randomize()

        Console.WriteLine("生成21个2到10000间随机数")
        For icount = 0 To 20
            Rnds = Int(Rnd() * 9998 + 2)
            '等价天scArray(icount)=Rnds
            scArray.SetValue(Rnds, icount)
            'scArray.GetValue(icount)等价于scArray(icount)
            Console.Write(Convert.ToString(scArray.GetValue(icount)) & ", ")
        Next
        Console.WriteLine()

        '找质数
        For icount = 0 To 20
            If IsPrimeNumber(scArray.GetValue(icount)) Then
                ReDim Preserve resPArray(resPArray.GetUpperBound(0) + 1)
                resPArray.SetValue(scArray.GetValue(icount), resPArray.GetUpperBound(0))
            End If
        Next

        '结果
        Console.WriteLine("数列中的质数有：{0:###}个", resPArray.GetLength(0) - 1)
        For icount = 1 To resPArray.GetUpperBound(0)
            Console.Write(resPArray.GetValue(icount))
            Console.Write(". ")
        Next

        Console.ReadLine()
    End Sub
    '判断质数
    Public Function IsPrimeNumber(ByVal pNumber As Integer) As Boolean
        Dim iFactor As Integer
        For iFactor = 2 To Int(Math.Sqrt(pNumber))
            If pNumber Mod iFactor = 0 Then
                Return False
            End If
        Next
        Return True
    End Function
End Module