vb.net素数

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

Module?Module1

Sub?Main()

Dim?sum?As?Integer?=?0

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

If?num?Mod?i?=?0?Then?Return?False

Next

Return?True

End?Function

End?Module

VB:求出100以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中

Private Sub Command1_Click()

Dim i As Integer

Dim sum As Integer

For i = 1 To 100

If Prime(i) Then

sum = sum + i

End If

Print "100以内所有素数的和是" sum

End Sub

Private Function Prime(ByVal n As Integer) As Boolean

Prime = False

Exit Function

If n Mod i = 0 Then

Prime = True

End Function

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

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

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

Private Sub CommandButton1_Click()

Dim flag As Boolean

flag = True

For i = 1 To 1000

If (i Mod J = 0) Then

Exit For

Else

flag = False

If flag = False Then

ListBox1.AddItem (i)

Next i

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

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

Public?Class?Form1

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

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?i?Mod?j?=?0?Then?'判断是否能被除了1和自身以为的?比自身小的数整除

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

Exit?For?'退出里层For?循环

PD?=?True

If?PD?Then?'如果PD为True?,则为素数

TextBox1.Text?=?i?"?"

End?Class

以上就是土嘎嘎小编为大家整理的vb.net素数相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！