2010-5-22 产生80个10-99的随机数,求出素数的个数并求出所有素数的和 写VB代码
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 20:09:10
2010-5-22 产生80个10-99的随机数,求出素数的个数并求出所有素数的和 写VB代码
Dim a(80) As Integer, sum As Integer
Dim i!, j!, k!
Dim t As Boolean
Randomize
For i = 0 To 79
a(i) = Int(89 * Rnd + 10)
t = 1
For j = 2 To a(i) - 1
If a(i) Mod j = 0 Then t = 0
Next j
If t Then
sum = sum + a(i)
k = k + 1
Print a(i);
If k Mod 10 = 0 Then Print
End If
Next i
Print
Print "素数个数为:" & k
Print "和为:" & sum
Dim i!, j!, k!
Dim t As Boolean
Randomize
For i = 0 To 79
a(i) = Int(89 * Rnd + 10)
t = 1
For j = 2 To a(i) - 1
If a(i) Mod j = 0 Then t = 0
Next j
If t Then
sum = sum + a(i)
k = k + 1
Print a(i);
If k Mod 10 = 0 Then Print
End If
Next i
Print "素数个数为:" & k
Print "和为:" & sum
2010-5-22 产生80个10-99的随机数,求出素数的个数并求出所有素数的和 写VB代码
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
随机产生300个1000以内的正整数,求出素数个数找出其中素数并按升序排列
求出所有三位数的素数,按每行5个数输出.
一道素数题求出小于等于X的所有素数并将其放入数组Y中,素数个数由函数返回#include"stdio.h"int fun
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
请写出80至100(不包括80和100)的所有素数,并求出它们的和
输出7到1000中个数位为7的所有素数,统计其个数并求出它们的和 C语言.
设计一个程序,求出200~1000之间的所有素数,要求每行输出5个素数.判断一个整数是否为素数用一个函数来实
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
输出7~1000中个位数为7的素数,统计其个数并求出它们的和
C语言 求出1~N内的所有素数