vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 22:28:57
vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序

vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序
vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序

vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序
Private Sub Command1_Click()
Dim k,a(1 To 30)
For i = 1 To 30
a(i) = Int(Rnd * 800 + 100)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1:Exit For
Next j,i
For i = 1 To 30
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
For i = 1 To 29
For j = 30 To i + 1 Step -1
If a(i) < a(j) Then b = a(i):a(i) = a(j):a(j) = b
Next j,i
For i = 1 To 30
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序 vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和 利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 VB中要求随机产生10个在[10,30]的不同整数怎么编写程序? vb 编程 如何利用随机函数产生15个10到90的奇数组成的数列,并显示在标签中?要程序 VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放) 如何用vB程序随机产生30个不同的字母? VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 VB的:用随机函数产生n个三位整数,用选择法排序后将它们的值从大到小输出,n=204! 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果 求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中,找出其中的素数,并将这 求住一道计算机VB题:只要代码即可利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出;在产生的80个随机整数中,找 VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值 用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写