Question

vb声明一个动态数组A,将2~100之间的素数放入该数组中，最后在窗体中显示A数组的各元素

Answer 1

Dim n As Integer, sum As Integer, j As Integer
        TextBox1.Text = ""
        TextBox1.Text = TextBox1.Text & "所求的素数为：" & vbCrLf
        For i = 2 To 100

            For j = 2 To i - 1

                If i Mod j = 0 Then Exit For

            Next j

            If j > i - 1 Then
                n = n + 1
                sum = sum + i
                TextBox1.Text = TextBox1.Text & i & " "
                If n Mod 10 = 0 Then TextBox1.Text = TextBox1.Text & vbCrLf
            End If

        Next i

        TextBox1.Text = TextBox1.Text & vbCrLf
        TextBox1.Text = TextBox1.Text & "共有" & n & "个素数，它们的和为" & sum & vbCrLf

追问

要用动态数组