作业帮 > 数学 > 作业

VB 实现随机生成10位数,生成必须不同

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/05/03 20:23:21
VB 实现随机生成10位数,生成必须不同
求教一个例子!随机生成由0 1 2 3 4 5 6 7 8 9组成生成随机数
例如:生成为0712323562生成出来为10位数必须每次生成不同!
VB 实现随机生成10位数,生成必须不同
一显示按纽为Button1,文本显示为Txt1.以下为代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(9) As Integer
Dim b As Integer
For b = 0 To 9
a(b) = CInt(Rnd() * 9)
Next b
Txt3.Text = (a(0) & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) & a(9))
End Su