用VB编写一段代码,在1000之内随即产生一个数,并判断该数是否为素数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 01:30:54
用VB编写一段代码,在1000之内随即产生一个数,并判断该数是否为素数
经常遇到类似的题目,可以参考此程序!
VB 2008 调试通过!
Public Class Form1
Dim prime(100) As Integer
Dim CurrentIndex As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ScrollBars = ScrollBars.Vertical
CurrentIndex = 1
prime(CurrentIndex) = 2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim sum As Integer
For i = 3 To 200 Step 2 '显然,单数才有可能是素数
If IsPrime(i) Then
CurrentIndex = CurrentIndex + 1
prime(CurrentIndex) = i
End If
Next
sum = 0
For i = 1 To CurrentIndex '输出到 textbox 框中,一行一个数,并 累计 求和,结果也 输出 在 此框!
TextBox1.Text = TextBox1.Text & i & ", " & prime(i) & vbCrLf
sum = sum + prime(i)
Next
TextBox1.Text = TextBox1.Text & vbCrLf & "sum, " & sum & vbCrLf
End Sub
Private Function IsPrime(ByVal number As Integer) As Boolean '自定义函数,判断是否为素数
Dim i As Integer
IsPrime = True
For i = 1 To CurrentIndex
If number Mod prime(i) Then '用这个数除以自知 的 素数,能整除的显然不是 素数
Else
IsPrime = False
Exit Function
End If
Next
End Function
End Class
VB 2008 调试通过!
Public Class Form1
Dim prime(100) As Integer
Dim CurrentIndex As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ScrollBars = ScrollBars.Vertical
CurrentIndex = 1
prime(CurrentIndex) = 2
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim sum As Integer
For i = 3 To 200 Step 2 '显然,单数才有可能是素数
If IsPrime(i) Then
CurrentIndex = CurrentIndex + 1
prime(CurrentIndex) = i
End If
Next
sum = 0
For i = 1 To CurrentIndex '输出到 textbox 框中,一行一个数,并 累计 求和,结果也 输出 在 此框!
TextBox1.Text = TextBox1.Text & i & ", " & prime(i) & vbCrLf
sum = sum + prime(i)
Next
TextBox1.Text = TextBox1.Text & vbCrLf & "sum, " & sum & vbCrLf
End Sub
Private Function IsPrime(ByVal number As Integer) As Boolean '自定义函数,判断是否为素数
Dim i As Integer
IsPrime = True
For i = 1 To CurrentIndex
If number Mod prime(i) Then '用这个数除以自知 的 素数,能整除的显然不是 素数
Else
IsPrime = False
Exit Function
End If
Next
End Function
End Class
用VB编写一段代码,在1000之内随即产生一个数,并判断该数是否为素数
求VB编程代码:判断一个数是否是素数?
用C语言循环结构编写:输入一个数,判断该数是否为素数.
VB实训 判断一个数是否为素数
编写一个函数判断一个数是否是素数,并在主函数中调用该函数求出所有三位数的素数
求一道程序设计题的代码编写:输入一个正整数,判断该正整数是否为素数
编写一个判断某数是否为素数的应用程序.输入任意一个正整数,输出显示该数是否为素数.
写VB程序:用函数过程来判断一个数是否为素数
C++ 定义一个函数,功能为判断一个整数是否为素数,并编写主函数,输入一个数,调用函数判断它是否为素数
vb随机产生10个两位数随机正整数,求其中素数之和(用过程实现判断一个数是否是素数)
如何判断一个数是否为素数
判断一个数是否为素数?