能一次显示7个不相等的随机整数。



Text：用来输入范围；
Picture：用来显示7个随机整数。

[ 本帖最后由 CLT 于 2010-4-3 10:54 编辑 ]

随机数的范围啊

要求：必须7个不同的随机整数；
可用文本框控件输入范围。

要求：必须7个不同的随机整数。
用文本框控件输入范围。


[ 本帖最后由 CLT 于 2010-4-3 10:55 编辑 ]

Option Explicit
Dim max As Integer, min As Integer

Private Sub Command1_Click()
    Dim a(6) As Integer
    Dim i As Integer
    min = CInt(Val(Text1))
    max = CInt(Val(Text2))
    If max < min Or (max - min) < 7 Then
        MsgBox "error"
        Exit Sub
    End If
    Randomize
    For i = 0 To 6
        a(i) = CInt(min + Rnd * (max - min))
        If equal(a(), i) Then
            MsgBox "i=" & i & "  " & a(i)
            a(i) = notEqual(a(), i)
        End If
    Next
    For i = 0 To 6
        Debug.Print a(i)
    Next
End Sub

Private Function equal(a() As Integer, pos As Integer) As Boolean
    Dim i As Integer
    For i = 0 To pos
        If a(pos) = a(i) And pos <> i Then
            equal = True
            Exit Function
        End If
    Next
    equal = False
End Function

Private Function notEqual(a() As Integer, pos As Integer) As Integer
    Dim i As Integer, j As Integer, b(100) As Integer
    For i = 0 To CInt(Val(max - min))
        b(i) = CInt(min) + i
    Next
    For i = 0 To pos - 1
        For j = 0 To CInt(Val(max - min))
            If a(i) = b(j) Then
                 b(j) = CInt(min) - 1
            End If
        Next
    Next
    For i = 0 To CInt(Val(max - min))
        If b(i) > CInt(min) Then
            notEqual = b(i)
        End If
    Next
End Function
程序比较幼稚，冗余，望高手不要见笑

可以照着这个界面去做吗？谢了

对哦！你编都编错，还说什么程序幼稚，别了吧！

5楼的程序结果正确.
楼主自己没去测试,

他是显示在 调试窗口里,

你前面题目没说清楚时弄的.结果非常好.

可我弄到VB里总出错

    min = CInt(Val(Text1))
    max = CInt(Val(Text2))
这里VB总说没定义变量，老错，我弄两个文本框出来然后在这后面加“.text”却别的地方又出错。

[ 本帖最后由 CLT 于 2010-4-4 22:42 编辑 ]