[操作疑難] VB新手做SBA(1)

mkwang123

上網見到呢個不重覆RANDOM
Dim a, i, n, c, b(6) As Integer
        a = 6
        i = 1
        Randomize()
            Do While i <= 6
                n = Int(Rnd() * a) + 1
                b(i) = n
                For c = 1 To i - 1
                    If c < i And n = b(c) Then
                        i = i - 1
                    End If
                Next
                i += 1
            Loop
想問下randomize()  int()  rnd() 有咩用
仲有尾2戈行個+=係咩黎
唔該CHING

hio0o1

上網見到呢個不重覆RANDOM
Dim a, i, n, c, b(6) As Integer
        a = 6
        i = 1
        Randomi ...
mkwang123 發表於 2013-8-14 01:29

' Initialize the random-number generator.

1. Randomize()

複製代碼

Random 個數出黎

1. rnd()
   
2.    

複製代碼

Return 番 integer type

1. int()

複製代碼

有錯請插

mkwang123

回復 4# 99236299

唔該CHING
但係好多野都睇唔明
ICT都係等炒

ericb

1. i += 1 <=> i = i + 1
   
2. i -= 1 <=> i = i - 1
   
3. i *= 1 <=> i = i * 1
   
4. i /= 1 <=> i = i / 1

複製代碼