VB中如何让输入的数字不重复 先把输入的数字转成字符串 函数名str()然后用4个变量取值取值字串的四位 取位的函数名mid(字串的变量，起始位，长度)然后通过IF语句比较4个变量不两两相等(可以用a<；>；0来表示a不等于0)
VB中如何让输入的数字不重复 先把输入的数字转成字符串 匿名用户 1级 2016-01-05 回答 先把输入的数字转成字符串 函数名str()然后用4个变量取值取值字串的四位 取位的函数名mid(字串的变量，起始位，长度。
vb随机数产生但不重复数字 Private Sub Command1_Click()Text1=rndxEnd SubFunction rndx()As IntegerDim i，j，k As Integeri=Int(Rnd()*10)j=Int(Rnd()*10)Do While j=ij=Int(Rnd()*10)DoEventsLoopk=Int(Rnd()*10)Do While k=i Or k=jk=Int(Rnd()*10)DoEventsLoopstr1=Val(Str(i)&Str(j)&Str(k))rndx=str1End Function直接使用函数rndx就返回你要的数了！分别生成不相同的三位数组合起来就是啦！
