随机生成十个不同的数
2012-05-29 20:14
281 查看
Private Sub Command1_Click()
Me.FontSize = 18
Dim a(10) As Integer
Dim mystr As String
Dim printstr As String
a(i) = Int(Rnd() * 100 + 1)
mystr = "不要"
For i = 2 To 10
t = Int(Rnd() * 100 + 1)
For k = 1 To i - 1
If t = a(k) Then
mystr = "不要"
Exit For
End If
Next
If mystr = "不要"
Then
j = i - 1
Else
a(i) = t
printstr
End If
End Sub
Me.FontSize = 18
Dim a(10) As Integer
Dim mystr As String
Dim printstr As String
a(i) = Int(Rnd() * 100 + 1)
mystr = "不要"
For i = 2 To 10
t = Int(Rnd() * 100 + 1)
For k = 1 To i - 1
If t = a(k) Then
mystr = "不要"
Exit For
End If
Next
If mystr = "不要"
Then
j = i - 1
Else
a(i) = t
printstr
End If
End Sub
相关文章推荐
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成一个对称矩阵,并输出。(究极版本,可以每一次都改变矩阵的随机数且不同,采用do while退出条件循环)
- vb随机生成十个数并求出最大值
- 随机生成不同长度的字符串
- 随机生成两个不同大小颜色的圆
- 随机生成任意十个整数,分别利用冒泡和选择按从小到大排列。
- Unity2D - 6. 生成随机地图 (2) - 脚本控制Tilemap (1) 自动切换不同的sprite
- 随机生成n个不同的整数
- echarts+ajax+json动态生成多个不同随机颜色的柱状图
- 随机生成不同的随机数
- 编程珠玑之第一章习题4: 生成不同的随机顺序的随机整数及存储与读取
- 利用随机类生成数组,并用冒泡排序以及选择排序对不同数组的元素进行从小到大的排序
- 生成十个完全不同的随机数并排序
- 随机生成十个不重复的整数
- flash中随机产生20-100之间10个不同的数字,然后不能重复地随机取出这十个数字
- 随机生成不同的图形
- Android数字游戏之数独(自动随机生成不同难度的数独)
- 自我补充篇之java随机验证码的生成(字母不同色,干扰线无规律颜色也不同)