数组中取十个互不相同的数
来源:互联网 发布:网络一线牵林更新gif 编辑:程序博客网 时间:2024/06/06 08:54
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.删除一维数组中相同的数
- 随机产生两组整数,每组整数中元素互不相同,这两组数按值递增有序。设计程序,将这两组数合并成按值递减有序的一组数,要求合并的新的一组数中,相同的元素只有一个。
- 排查故障之三大必须:转自电子工程专辑
- 计算大数阶乘--Linux Bash版
- 最常用的http状态码
- 复习struts2之配置action范围国际化资源文件
- 动态添加、删除Text
- 数组中取十个互不相同的数
- 后缀数组处理字符串的有力工具--近期学习谈不上计划的小计划
- 数据挖掘十大经典算法
- 迟到的80后(程序人生与人生感悟)
- Mysql权限命令
- 实现3D旋转(源码)
- IntelliJ Idea 常用快捷键列表
- mtk android MT6573方案 power key 长按8s 关机功能实现
- CATALINA_BASE与CATALINA_HOME的区别