VB 随机问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 13:08:13
有text1 text2两个文本框，我自己分别输入1个数，要求点按钮command1后随机产生一个没有重复数字的七位数而且该数中不能包含text1中的数，显示到text3,再随机产生一个没有重复数字的七位数而且该数不能包含text2中的数，显示到text4,最后随机产生一个没有重复数字的七位数显示到text5,谢谢
不会判断生成的七位数中有不有常数a

看看我这个简单不?
Function RndNumber(nLength As Integer, OutNumber As String) As String
'nLength 生成的数的长度
'OutNumber 排除的数字,可以是多个
If nLength + Len(OutNumber) > 10 Then
RndNumber = "参数错误"
Exit Function
End If

Dim S As String
Const S0 = "0123456789"
For i = 1 To nLength
Do
S = Mid(S0, Int(Rnd * 10 + 1), 1)
Loop While i = 1 And S = "0" Or InStr(RndNumber, S) > 0 Or InStr(OutNumber, S) > 0
RndNumber = RndNumber & S
Next
End Function

Private Sub Command1_Click()
Text3.Text = RndNumber(7, Text1.Text)
Text4.Text = RndNumber(7, Text2.Text)
Text5.Text = RndNumber(7, "")
End Sub

Public num
Private Sub Command1_Click()
Call NUM_MAKE(Text1)
Text3 = num
Call NUM_MAKE(Text2)
Text4 = num
Call NUM_MAKE(1