vb.net随机生成10个小于100vb求100以内的素数数

来源：蜘蛛抓取(WebSpider) 时间：2016-06-03 06:36 标签： vb求1000以内的素数
vb有道题目随机生成100个两位正整数,统计其中小于等于40的数,我的过程如下dim a(100) as integer,i asinteger for i =1 to 100 a(i)=int(rnd*90+10) print a(i）;if i mod 10 =0 then print if a(i)
是我太任性x憔
Dim a(100) As Integer,i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintIf a(i)
为您推荐：
其他类似问题
扫描下载二维码VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?_百度知道
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
提问者采纳
jfor i=1 to 10a(i)=int(rnd*100)+1print a(i):a(j)=tnextnextfor i=1 to 10print a(i);a(j) then t=a(i):a(i)=a(j);nextprintfor i=1 to 10for j=1 to iif a(i)&lt,iprivate sub command1_click()dim a(1 to 10) as integer
来自团队：
其他类似问题
为您推荐：
其他1条回答
'第一个随机数总是2
Randomize Timer
'找出随机数
'***********************************************************
For i = 1 To 10
a(i) = Fix(1 + ((100 - 1 + 1) * Rnd)) '公式：Fix(m + (n-m+1 * Rnd))
Randomize Timer
'**************************************************************
'排序
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) & a(j) Then
a(i) = a(j)
Do While abc = 1
For i = 1 To 10 - 1
For j = i + 1 To 10
If a(i) & a(j) Then
a(j) = Fix(1 + ((100 - 1 + 1) * Rnd))
Randomize Timer
参考资料：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb的题目:随机生成100个10到1000之间的随机数，将它们之中的偶数个数统计出来，并计算所有奇数之和_百度知道
vb的题目:随机生成100个10到1000之间的随机数，将它们之中的偶数个数统计出来，并计算所有奇数之和
奇数之和是指随机数中奇数的和
dim a(100) as integerdim i,m,n as穿肌扁可壮玖憋雪铂磨 integerfor i =0 to 99a(i)=Int((1000 - 10 + 1) * Rnd + 10) if mod(a(i)/2)=0 thenm=m+1elsen=n+a(i)end ifnext i其中m为偶数个数，n为所有奇数之和
其他类似问题
为您推荐：
其他3条回答
Private Sub Command1_Click()Dim a(99) As IntegerFor i = 0 To 99
a(i) = Fix(Rnd穿肌扁可壮玖憋雪铂磨 * 991) + 10
If i && 0 And i Mod 10 = 0 Then
Print a(i);
Print a(i);
If a(i) Mod 2 = 0 Then
s = s + a(i)
End IfNextPrintPrint &偶数的个数& & &奇数之和& & sEnd Sub
Dim Floor As Integer
Dim Ceil As Integer
Dim Dotimes As Integer
Dim SumOdd As Integer '奇数和
Dim CountEven As Integer '偶数个数
Dim NumberFlag As Integer '随机数
'范围赋值，10到1000
Floor = 10
Ceil = 1000
'次数100
Dotimes = 100
Ceil = Ceil + 1 'Rnd函数取值是[0.1),所以要加1
SumOdd = 0
CountEven = 0
Randomize 'rnd每次随机
For i = 1 To Dotimes
NumberFlag = Floor + Int((Ceil - Floor) * Rnd)
If NumberFlag Mod 2 && 0 Then '除2余数不是0的是奇数
SumOdd = SumOdd + NumberFlag
Else '若是偶数
CountEven = CountEven + 1
Print &偶数个数有& & CountEven & &个&
Print &奇数和为...
放一个列表框用来显示生成的100个随即数，2个按纽，其中一个用来生成随即数，另一个用来统计和计算结果，代码如下
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 99
List1.List(i) = Int(Rnd * (1000 - 10 + 1) + 10)
Private Sub Command2_Click()
Dim n As Integer, x As Long, y As Integer
For n = 0 To 99
If Val(List1.List(n)) Mod 2 && 0 Then x = x + Val(List1.List(n))
If Val(List1.List(n)) Mod 2 = 0 Then y = y + 1
Print &偶数个数为：& & y & &奇数之和为：& & x
Private Sub Form_Load()
Command1.Caption = &随机生成100个10到1000之间的随机数&
Command2.Caption = &统计偶数个数和奇数和&
随机数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁随机生成15个10到100之间的正整数 找出素数放到list1中，找出其中最大的素数_百度知道
随机生成15个10到100之间的正整数 找出素数放到list1中，找出其中最大的素数
控件也说说啊
提问者采纳
说明i不是素数check = False &#39, MaxNum As IntegerList1;返回falseExit Function &#39, m) = 0 Theni = i + 1s = s & m & &quot,说明i不能整除从2到i平方根的所有数, m As Integeri = 1s = Fix(min + Rnd * max) & & a(j) Thens = a(i)a(i) = a(j)a(j) = sEnd IfNextNextEnd Sub&#39, s, b() As Integer)Dim i As Integer, s As Stringn = UBound(a)For i = 0 To nFor j = i To nIf a(i) &获取随机数Public Sub GetRndStr(min As I排序Public Sub SoftArray(a() As Integer)Dim n As Integer,也就是说i是素数;如果i除以j的余数为0, max As Ib(0) = Val(s)DoRandomizem = Fix(min + Rnd * max)If InStr(1;Option Explicit&#39, i As Integer.ClearGetRndStr 10;从2循环到i的平方根If i Mod j = 0 Then &#39,返回trueEnd FunctionPrivate Sub Command1_Click()Dim a(15) As I a(i) Then MaxNum = a(i)
List1, 100;最大素数是&b(i - 1) = mEnd IfLoop Until i = 15End Sub' &quot, a()MaxNum = 0For i = 0 To 14
If check(a(i)) Then
If MaxNum &退出本过程End IfNext jcheck = True &#39.AddItem a(i)
End IfNextMsgBox & &quot'循环结束没有退出过程;检查是否素数Private Function check(i As Integer) As BooleanFor j = 2 To CInt(Sqr(i)) + 1 &#39
提问者评价
其他类似问题
为您推荐：
素数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb求1000以内的素数 的文章

 

随机推荐