作业帮 > 综合 > 作业

VB中要求随机产生10个在[10,30]的不同整数怎么编写程序?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 16:09:57
VB中要求随机产生10个在[10,30]的不同整数怎么编写程序?
Dim a(9) As Integer
Randomize
a(0) = Int(Rnd() * 21 + 10)
Do
a(1) = Int(Rnd() * 21 + 10)
Loop While a(1) = a(0)
Do
a(2) = Int(Rnd() * 21 + 10)
Loop While a(2) = a(0) Or a(2) = a(1)
.