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

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

创新互联是一家集网站设计、做网站、网站页面设计、网站优化SEO优化为一体的专业网络公司，已为成都等多地近百家企业提供网站建设服务。追求良好的浏览体验,以探求精品塑造与理念升华,设计最适合用户的网站页面。 合作只是第一步，服务才是根本,我们始终坚持讲诚信，负责任的原则，为您进行细心、贴心、认真的服务,与众多客户在蓬勃发展的市场环境中,互促共生。

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语言，输入两个数，输出这两个数中间所有的素数

同意楼上的见解，

我在VB6.0中测试没有问题，能看到输出，VB.NET中也没有问题。

不过是否还有点得注意：

Print j 这句是把找到的素数以窗体的前景色(ForeColor)显示在窗体上，你指的没有输出，是指在窗体上看不到内容，是吧？是否你的窗体的前景色(ForeColor)与背景色(BackColor)相同或近似相同，造成视觉错误呢？

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

Next

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

End Sub

Private Function Prime(ByVal n As Integer) As Boolean

Dim i As Integer

If n 2 Then

Prime = False

Exit Function

End If

For i = 2 To Sqr(n)

If n Mod i = 0 Then

Prime = False

Exit Function

End If

Next

Prime = True

End Function

网站标题：vb.net判断素数,vb语言判断素数
转载注明：http://njwzjz.com/article/hoooie.html