[求助]威力彩程式設計

http://photos1.hi5.com/0025/383/778/yXK0N6383778-02.jpg

以下是我的程式:

Module Module1

Sub Main()
Dim a As Integer
Console.Write("輸入你要的組數：")
a = Console.ReadLine()
random_num(a)
Console.ReadLine()
End Sub

Sub random_num(ByVal n)
Dim v, m As Integer
Dim i, j, b As Integer
Dim k(6) As Integer

For i = 1 To n
For j = 1 To 6
Randomize()
v = Int(37 * Rnd()) + 1

If k(j) > k(j - 1) Then
b = k(j - 1)
k(j - 1) = k(j)
k(j) = b
End If

Console.Write(v & vbTab)

Next
m = Int(Rnd() * (8 - 1 + 1) + 1)
Console.Write(m & vbTab)

Console.WriteLine()

Next
Console.Read()
End Sub

End Module

已經可以輸入組數了.兩區號碼也分好了.只是不知道第一區六個號碼怎麼讓她不重複.並且依照大小排序.已經有假設陣列.不過排序還是寫不出來.希望各位指點一下.感謝^^

http://photos1.hi5.com/0025/383/778/yXK0N6383778-02.jpg

以下是我的程式:

Module Module1

Sub Main()
Dim a As Integer
Console.Write("輸入你要的組數：")
a = Console.ReadLine()
random_num(a)
Console.ReadLine()
End Sub

Sub random_num(ByVal n)
Dim v, m As Integer
Dim i, j, b As Integer
Dim k(6) As Integer

For i = 1 To n
For j = 1 To 6
Randomize()
v = Int(37 * Rnd()) + 1

If k(j) > k(j - 1) Then
b = k(j - 1)
k(j - 1) = k(j)
k(j) = b
End If

Console.Write(v & vbTab)

Next
m = Int(Rnd() * (8 - 1 + 1) + 1)
Console.Write(m & vbTab)

Console.WriteLine()

Next
Console.Read()
End Sub

End Module

已經可以輸入組數了.兩區號碼也分好了.只是不知道第一區六個號碼怎麼讓她不重複.並且依照大小排序.已經有假設陣列.不過排序還是寫不出來.希望各位指點一下.感謝^^