作业帮 > 综合 > 作业

求vb随机数代码我又厚着脸皮来了,继续求随机数代码,求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 19:47:45
求vb随机数代码
我又厚着脸皮来了,继续求随机数代码,
求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如1-100.或者15-29,后面一个为随机数产生的个数,所有的都为正整数,不能有重复的数字和0,最后能输出文本到txt,如果能输出到pdf最好了,内容除了包括产生的随机数外,还应包括随机数产生的范围及产生的个数.
求vb随机数代码我又厚着脸皮来了,继续求随机数代码,求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如
Private Sub Command1_Click()
Dim min, max, n, i, a()
min = Val(Text1)
max = Val(Text2)
n = Val(Text3)
ReDim a(n)
Randomize
For i = 1 To n
Do
a(i) = Int(Rnd * (max - min + 1)) + min
For j = 1 To i
If a(i) = a(j) And i j Then Exit For
Next
Loop While j