vb.net绝对素数对 vbs 绝对值

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

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

Public Class Form1

    '一个大于1的自然数，除了1和它本身外，不能被整除以其他自然数（质数），换句话说就是该数除了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

相关问答

Q1: 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

Q2: vb判断素数需要添加哪些控件

vb判断素数需要添加的控件有button和listbox。

1、打开vb工程，在上面建一个窗体，然后创建button和listbox

2、在findPrime上写入如下代码：

Private Sub CommandButton1_Click()

Dim flag As Boolean

flag = True

ListBox1.AddItem (1) '默认1和2都是素数

ListBox1.AddItem (2)

For i = 1 To 1000

For J = 2 To i - 1

If (i Mod J = 0) Then

flag = True

Exit For

Else

flag = False

End If

Next

If flag = False Then

ListBox1.AddItem (i)

End If

Next i

End Sub

3、运行结果，列出了1-1000内的所有素数。

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