VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 22:54:02
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
Private Sub Command1_Click()
Dim xx As Integer
Dim N As Long,Flags As Boolean
Dim ii As Integer
Dim 素数个数 As Integer
Dim 素数总和 As Integer
素数个数 = 0
素数总和 = 0
KLKL:
N = Int((200 - 3) * Rnd() + 2)
Flags = True
For ii = 2 To Sqr(N)
If N Mod ii = 0 Then
Flags = False
Exit For
End If
Next
If Flags = False Then
GoTo KLKL
Else
素数个数 = 素数个数 + 1
素数总和 = 素数总和 + N
If 素数个数 = 10 Then
MsgBox "2-200 10个随机素数的和是:" & 素数总和
Exit Sub
Else
GoTo KLKL
End If
End If
End Su
Dim xx As Integer
Dim N As Long,Flags As Boolean
Dim ii As Integer
Dim 素数个数 As Integer
Dim 素数总和 As Integer
素数个数 = 0
素数总和 = 0
KLKL:
N = Int((200 - 3) * Rnd() + 2)
Flags = True
For ii = 2 To Sqr(N)
If N Mod ii = 0 Then
Flags = False
Exit For
End If
Next
If Flags = False Then
GoTo KLKL
Else
素数个数 = 素数个数 + 1
素数总和 = 素数总和 + N
If 素数个数 = 10 Then
MsgBox "2-200 10个随机素数的和是:" & 素数总和
Exit Sub
Else
GoTo KLKL
End If
End If
End Su
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
VB程序设计中如何产生随机数并分别求奇数和偶数的和
2010-5-22 产生80个10-99的随机数,求出素数的个数并求出所有素数的和 写VB代码
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
vb中如何产生范围无穷大的随机数
VB中,log(X)如何计算,代码是什么,其中X是大于0的自然数
VB里如何做个可以计算sin和cos的计算器? 求代码
如何使VB中Rnd函数产生的随机数是在[0,1]内?
在VB中,如何产生48~57、65~90、97~122之间的随机数
vb中如何生成不同的随机数
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码