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

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

创新互联公司是一家专业提供贡觉企业网站建设,专注与成都做网站、网站设计、H5技术、小程序制作等业务。10年已为贡觉众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

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内的所有素数。

显示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

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

分享名称：vb.net绝对素数对 用vb语言编写一个程序求一个数的绝对值
文章转载：http://azwzsj.com/article/doighgh.html