作业帮 > 综合 > 作业

VB小程序:在1到M个数之间取N个不同的随机数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/17 12:31:33
VB小程序:在1到M个数之间取N个不同的随机数
M N 为text1 和text2 获得
结果显示在text3中
完整一点 最后自己先运行过
Private Sub Demo() Dim M As Integer,N As Integer,S As String M = CInt(text1.Text) N = CInt(text2.Text) For j = 1 To N S = S & (Rnd(M) * 10000 Mod M + 1) & "," Next text3.Text = S End Su