vb.net求素数,c语言求素数的和

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

If PD Then '如果PD为True ，则为素数

TextBox1.Text = i " "

End If

End Sub

End Class

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

Module Module1

Sub Main()

Dim sum As Integer = 0

Dim Bound As Integer = 989

Dim num As Integer = 0

Dim cprime As Integer = 0

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

For i = 2 To CType(Int(Math.Sqrt(num)), Integer)

If num Mod i = 0 Then Return False

Return True

End Function

End Module

VB：为什么不能打印出100以内的素数？结果有点像乱码。

把你的程序改了一下,你是用数组来存放素数的,

For i=2 to 100这上循环是用来判断有哪些素数,并将其记录

而For J = 1 To UBound(Prime) 这个是用来输出找到的所有素数的

如果你用嵌套结构,每找一个数都将会输出一遍找到的所有的素数,当然会出错,只要将两个循环由嵌套结构变成顺序结构即可,如果一定要嵌套,你可以找到一个输出一个,不用数组,这样也不会重复而正确输出

这时,你还没有判断完,所以不能输出

Private Sub Form_Click()

Dim Prime() As Integer, I As Integer

Dim M As Integer, J As Integer

For I = 2 To 100

If sushu(I) Then

M = M + 1

ReDim Preserve Prime(M)

Prime(M) = I

End If

Next I

For J = 1 To UBound(Prime)

Print Prime(J);

If J Mod 10 = 0 Then Print

Next J

End Sub

Private Function sushu(N As Integer) As Boolean

Dim I As Integer

sushu = False

For I = 2 To Sqr(N)

If N Mod I = 0 Then Exit Function

Next I

sushu = True

End Function

vb.net的编程

Option Strict Off

Option Explicit On

Friend Class Form1

Inherits System.Windows.Forms.Form

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim j As Integer

Dim A(9) As Short

Dim D(9) As Short

Dim i As Short

Dim B As Short

Dim C As Short

Dim F As Short

Dim G As Boolean

Dim H() As Short

Dim K As Short

Dim S As String

C = 32767

For i = 1 To 10

A(i - 1) = CShort(InputBox("输入第 " i "个数"))

If B A(i - 1) Then B = A(i - 1)

If C A(i - 1) Then C = A(i - 1)

D(i - 1) = Int(Rnd() * 100 + 0.5)

If F D(i - 1) Then F = D(i - 1)

Next i

For i = 2 To 100

For j = 2 To Int(System.Math.Sqrt(i) + 0.5)

'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If i Mod j 0 Then

G = True

Else

G = False

Exit For

End If

Next j

If G = True Then

ReDim Preserve H(K)

H(K) = i

K = K + 1

End If

Next i

S = "2;"

For i = 0 To K - 1

S = S H(i) ";"

Next i

MsgBox("最大数为：" B "；最小数为：" C)

MsgBox("最大的随机数为：" F)

MsgBox("1--100之间共有" K + 1 "个素数：" S)

End Sub

End Class

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

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

Prime = True

End Function

vb语言，输入两个数，输出这两个数中间所有的素数

同意楼上的见解，

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

不过是否还有点得注意：

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

网页名称：vb.net求素数,c语言求素数的和
文章URL：https://www.cdcxhl.com/article10/hshhdo.html

成都网站建设公司_创新互联，为您提供、全网营销推广、品牌网站建设、关键词优化、小程序开发、面包屑导航

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容