用VB编写一段代码,在1000之内随即产生一个数,并判断该数是否为素数

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/05 10:59:48

经常遇到类似的题目,可以参考此程序!
　　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个两位数随机正整数,求其中素数之和（用过程实现判断一个数是否是素数）如何判断一个数是否为素数判断一个数是否为素数?