如何避免两个label中的内容相同?

Question

两个label,一个button.点击button会用rnd在两个label中生成随机数.如何才能让两个label中产生的随机数不相同?

Answer 1

如果label2.caption=label1.captionlabel2.caption=重新取随机数

Answer 2

Private Sub Command1_Click()
    Dim Sgn1 As String
    Dim Sgn2 As String
    Sgn1 = Format(Rnd * 10000, "0000")
    Label1.Caption = Sgn1
    Do While True
        Sgn2 = Format(Rnd * 10000, "0000")
        If Sgn2 <> Sgn1 Then
            Exit Do
        End If
    Loop
    Label2.Caption = Sgn2
End Sub

Answer 3

Private Sub Command1_Click()
    Dim Sgn1 As String
    Dim Sgn2 As String
    Sgn1 = Format(Rnd * 10000, "0000")
    Label1.Caption = Sgn1
    Do While True
        Sgn2 = Format(Rnd * 10000, "0000")
        If Sgn2 <> Sgn1 Then
            Exit Do
        End If
    Loop
    Label2.Caption = Sgn2
End Sub