作业帮 > 综合 > 作业

取N个不重复随机数.要求:text3中输入要产生的随机数的个数,产生的随机数在text4中显示,横向显示,能复制,乱序.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/26 04:38:56
取N个不重复随机数.
要求:text3中输入要产生的随机数的个数,产生的随机数在text4中显示,横向显示,能复制,乱序.产生的随机数要大于等于text1中的输入值,小于等于text2中的输入值.
要完整的代码,我不太懂VB,最好能让我复制过去,可以直接用的.
你好:
可以这样:
Private Sub Command1_Click()
Dim b As Long, a As Long, c As String
b = Val(Text3.Text)
For a = 1 To b
Randomize
c = c + CStr(Int(Rnd() * (Val(Text2.Text) - Val(Text1.Text)) + Val(Text1.Text))) & ","
Next
Text4.Text = c
End Sub
我软件做好了,如果你要的话,你HI我,我传给你
再问: 我的QQ邮箱。。。623791673@qq.com。发给我一个吧。。。。多谢了
再答: 已发,请查收!