随机生成10个随机数并排序

原创 2012年05月16日 15:46:05

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub

Private Sub Form_Load()
Dim p As String 'p用来显示随机生成的10个随机数
Randomize
   p = ""
For i = 1 To 10 '生成10个随机数
Do
x = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数,范围是10到99之间
yes = 0 '用来判断生成的x要还是不要,0表示要,1表示不要
For j = 1 To i - 1 '对你生成的第一个随机整数进行检测,检测结果存放Yes中
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
p = p & Str(a(i)) & ","
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用Label显示最后结果
Label2.Caption = ""
End Sub

相关文章推荐

随机数生成方法及序列随机排序

srand()以及rand()函数: void srand(unsigned int seed) 初始化随机数发生器,用于给rand()函数设定种子。 int rand(void)用于产生一个伪随机...

Android:生成随机数,生成10个随机数,存入sdcard中的随机生成文件中

程序在模拟器中运行前,还必须在AndroidManifest.xml中注册两个用户权限,分别是加载卸载文件系统的权限和向外部存储器写入数据的权限 AndroidManifes...
  • ShyTan
  • ShyTan
  • 2017年05月24日 11:04
  • 171

生成一个一维数组,有10个元素,都用随机数填充,用指针轮询的办法实现函数查找一个数是否存在。

题目:生成一个一维数组,有10个元素,都用随机数填充,用指针轮询的办法实现函数查找一个数是否存在,具体实现代码如下:#include #include #include int find(in...

一种基于归并排序及随机数生成器对一个给定数组进行随机排列的算法

在编程应用中,我们常常需要得到一个给定序列的随机排列。有一种方法是利用编译环境提供的随机数生成器生成一个与目标序列容量相同的随机数序列,随机数的值表示目标序列中对应项的优先级。如果我们排列随机数序列使...

随机不重复排序算法及Java产生随机数的3种方式

问题描述        给定任意个不重复的数字,对其进行随机排序 算法分析        首先想到可以将给定的数字放在一个集合A中,初步定为一个ArrayList,这样,可以用A集合的长度来做为随...

产生10个1-100的随机整数, * 把其中的奇数按照从小到大的顺序进行排序, * 并按照“1,2,3,、、、”这样的格式打印到d盘下的number.txt文档中。

package com.heima.test;import java.io.FileOutputStream; import java.io.FileWriter; import java.io.IO...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:随机生成10个随机数并排序
举报原因:
原因补充:

(最多只允许输入30个字)