SOGO論壇

標題: [請問]各位大大VB2008的小問題! [列印本頁]

作者: 老搞 時間: 2010-4-12 21:01:22 標題: [請問]各位大大VB2008的小問題!

請教各位大大一下VB2008的問題
下面是老師出的小作業
小弟還是初學者VB很爛
想請教一下除了這個方法還有什麼更厲害的方法呢?
就是不用寫一拖拉庫的程式碼
請各位大大賜教謝謝

Public Class Form1
Dim num(6), i As Integer
Dim T As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      ListBox1.Items.Clear()
      i = 0
      Do While i < 6
         Dim generator As New Random
         Dim randomValue As Integer
         randomValue = generator.Next(1, 50)
         num(i) = randomValue
         T = True
         If i > 0 Then
            For r = 0 To i - 1
                  If num(i) = num(r) Then
                     T = False
                     Exit For
                  End If
            Next
         End If
         If T = True Then i += 1
      Loop
      For s = 0 To 5
         ListBox1.Items.Add(num(s))
      Next
End Sub
End Class

歡迎光臨 SOGO論壇 (https://oursogo.com/)