随机生成十个不同的数
来源:互联网 发布:centos gogs 编辑:程序博客网 时间:2024/05/08 18:59
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
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个数
- 随机生成十个数
- 随机生成十个数
- 随机生成十个不相同的数
- 随机生成10个不同的数
- 随机生成十个数并生成最大值
- 随机生成十个数并选出最大值
- 随机生成十个数,排顺序
- 用if随机生成十个数排序
- 随机不同的数
- 实验九:随机生成10个不同的数
- 试验十:随机生成10个不同的数
- 给随机的十个数求和
- 计算随机十个数的和
- kernel panic
- log4cplus源码分析
- 从对话框中传递参数到视图类
- 计算机学习心得
- 100以内素数之和
- 随机生成十个不同的数
- C++ 实现几种排序
- Option Base 1
- 随机生成n个不重复的正整数
- USRT
- 计算机学习心得
- 计算1到N的十进制数中1的出现次数
- USART
- 生成随机数