一个判断两个数是否相等的问题！

Private Sub Command1_Click()
Dim a1 As Single
Dim i As Single
Dim b As String
Dim b1 As String
Dim b2 As String
Dim x As String

'初始化
b = ""
b1 = ""
b2 = ""

For i = 0 To 5 '循环6次，每次生成一个随即数
11:
a1 = Int((33 * Rnd) + 1)
b1 = a1

If StrComp(b1, b2, 0) = 0 Then '判断随机数不能相同
    GoTo 11
Else
    x = b1
End If


b2 = a1

Me.a(i).Text = x
Next


End Sub

我想生成6个随机数，已经实现了，另一个要求是这6个数不能重复，现在总是出现两个数重复，请大家帮忙看看，谢谢啊

搜索更多相关主题的帖子: 随机数 相等 StringDim 判断 Sub

你算法有问题。

一种方法是将生成过的随机数存储到数组，然后每次查找是否重复。在VB里可以合并到字符串里，然后用InStr函数判断是否重复。

生成 不重复的随机数的算法问题

学习

VB探讨群3
48029944
欢迎加入

Randomize
Dim a(5) As Integer, i As Integer, n As Integer, Y As Boolean
For i = 0 To 5 '循环6次，每次生成一个随即数
    Do
        Y = False
        a(i) = Int((33 * Rnd) + 1)
        For n = 0 To i
            If i = n Then Exit For
            'MsgBox i & n
            If a(i) = a(n) Then Y = True: Exit For
        Next
    Loop While Y
    Print a(i)
Next
'答案输出a(0) 至 a(5)
MsgBox a(0) & vbCrLf & a(1) & vbCrLf & a(2) & vbCrLf & a(3) & vbCrLf & a(4) & vbCrLf & a(5)

好活跃的宇宙人啊

没错，就是Randomize。