VB 生成随机数并把其中的素数进行排序

来源：学生作业帮助网编辑：作业帮时间：2024/05/15 05:19:31

VB 生成随机数并把其中的素数进行排序
VB 生成随机数并把其中的素数进行排序

VB 生成随机数并把其中的素数进行排序

Dim a(50) As Integer

Private Sub Command1_Click()

Combo1.Clear

For i = 1 To 50

a(i) = Int(999 * Rnd + 1) '1到999的随机数

Combo1.AddItem a(i)

Combo1.ListIndex = 0

End Sub

Private Sub Command2_Click()

Combo2.Clear

Dim k As Boolean

For i = 1 To 49

For i1 = i To 50

If a(i) < a(i1) Then b = a(i): a(i) = a(i1): a(i1) = b

For i = 1 To 50

k = False

For i1 = 2 To a(i) - 1

If a(i) Mod i1 = 0 Then

k = True

Exit For

End If

Next i1

If k = False Then

Combo2.AddItem a(i)

End If

End Sub

代码,裁图,和源文件都给你啦,请采纳!

VB 生成随机数并把其中的素数进行排序 TC编程产生1000到5000之间的100个随机整数,找出其中的素数,用冒泡法对找出的素数进行排序.请将产生的随机数、找出的素数和排序后的素数分别输出. VB设计程序（找奇偶数和素数并进行排序和求和）随机产生n个（20≤n≤100）两位整数,找出其中的奇数、偶数和素数,并将奇数按升序排序,将偶数按降序排序,将素数求和.1．将随机产生的n个整 vb 生成15个随机数,被7整除的降序排序在combobox中, vb 生成15个随机数,被7整除的降序排序在combobox中, c语言：一个100-200之间的随机数a,然后生成a个2-1000的随机数,然后将其中的素数8个一行输出 vb怎么生成随机数啊. vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序在vb的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除, vb程序设计“生成10个二位数,求出其中的最大值、最小值、平均值,并指出最大最小值是第几个随机数” 用vb怎么生成3位随机数产生10个三位随机数,打印出所有的数,然后降序输出,并求出其中的平均值Vb产生10个三位随机数,打印出所有的数,然后降序输出,并求出其中的平均值.在picture控件中显示原始数据、排序后数据 vb中的rnd随机数是几位小数呢~ vb中怎样分别用选择法和冒泡法分别对100个随机数进行递增排序?能运行就给高分,最好每步有说明, VB随机数260-500范围内生成随即数! 请问vb中有没有生成随机数的函数? 用vb如何生成0-100之间的随机数 VB 如何让生成的随机数不再出现