随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/10 07:32:31

随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?
VB编程精简明朗

我的是最简洁的程序算法, 哈哈,整个算法只有一个20次的循环,精简明朗快速
Dim RanValue(100) As Integer '100个临时数据来计算重复
Dim iValue As Integer
Dim iCount As Integer
Randomize Timer
iCount = 20
For i = 1 To 20
iValue = Int(Rnd() * 90) + 10
RanValue(iValue) = RanValue(iValue) + 1
If (RanValue(iValue) > 1) Then '如果存在有相同的数据
iCount = iCount - 1 '不相同的数据相应减1
End If
Next
Debug.Print "共有" & iCount & "个不相同的数据"

随机生成20个100以内的两位正整数,统计其中有多少个不相同的数? 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数随机生成20个100以内的两位正整数,统计其中有多少个不相同的数的vb代码随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?（求VB编程答案!）随机生成20个100以内的正整数,统计其中有多少个不同的数 vb中如何生成20个互不相同的两位随机整数? vb编程随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并统计输出奇数的个数. 用随机函数产生100个0到999以内的随机整数,输出能够被3整除且个位不为0的数,统计 VB编程：利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显 c语言随机生成100个3位正整数 vb中如何随机产生20个10以内的正整数随机产生300个1000以内的正整数,求出素数个数找出其中素数并按升序排列