数组中取十个互不相同的数
来源:互联网 发布:电脑无软件翻墙谷歌 编辑:程序博客网 时间:2024/06/13 09:30
Private Sub Command1_Click()
Dim a(10) As Integer
Dim mystr As String
Dim printstr As String
a(1) = Int(Rnd() * 100 + 1)
printstr = Str(a(1))
For i = 2 To 10
t = Int(Rnd() * 100 + 1)
mystr = "要"
For k = 1 To i - 1
If t = a(k) Then
mystr = "不要"
Exit For
End If
Next
If mystr = "不要" Then
i = i - 1
Else
a(i) = t
printstr = printstr + Str(t)
End If
Next
Print printstr
End Sub
- 数组中取十个互不相同的数
- 数组中取十个互不相同的数
- 数组中取十个不相同的小数
- 取数组中相同的值
- 从这7个数中取3个互不相邻的数的方案有多少?
- 随机生成十个不相同的数
- 从长度为n的数组中(元素互不相同)任意选择m个数的所有组合
- 查找输入的十个数中与已知数相同的数(c语言)
- C 语言中互不相同随机数的应用研究
- 如何取一个数组中相同元素的位置
- 数组中取相同的元素算法实现
- 生成互不相同的随机数
- 十个数的数组(作业)
- 十个数取最小值
- 找出一个数组中超过一半相同的数
- C++找出两个数组中不相同的数
- 128.删除一维数组中相同的数
- 随机产生两组整数,每组整数中元素互不相同,这两组数按值递增有序。设计程序,将这两组数合并成按值递减有序的一组数,要求合并的新的一组数中,相同的元素只有一个。
- 数据库系统
- 黑马程序员-深入研究java.lang.Class类
- android 源码下载
- 浏览器事件传播
- w3c dom创建xml
- 数组中取十个互不相同的数
- Linux的硬链接和软链接
- 回味两部关于 Linux 的纪录片
- myeclipse 代码自动提示功能
- 分布式基础学习【一】 —— 分布式文件系统
- UTF8 and Unicode
- dede模版引擎二次开发(增加修改显示)
- 一些代码_正则
- 分布式基础学习【二】 —— 分布式计算系统(Map/Reduce)