|
分類:[VB.NET/VB2005 以降]
初めまして!!きょうと申します
早速なのですが今０〜10の乱数を表示させるプログラムを作っていて何とかできたのですが重複してしまう数字があります。
しばらく頑張ってみたのですがなかなかうまくいかず苦戦中です。
もしよければどなたかご教授願えないでしょうか？よろしくお願いします。
ちなみにしたに張るのが作っているプログラムのソースです
Public Class Form1
Dim lblA(9), lblB(9) As Label
Dim intA(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblA(0) = lbl1
lblA(1) = lbl2
lblA(2) = lbl3
lblA(3) = lbl4
lblA(4) = lbl5
lblA(5) = lbl6
lblA(6) = lbl7
lblA(7) = lbl8
lblA(8) = lbl9
lblA(9) = lbl10
lblB(0) = lbl11
lblB(1) = lbl12
lblB(2) = lbl13
lblB(3) = lbl14
lblB(4) = lbl15
lblB(5) = lbl16
lblB(6) = lbl17
lblB(7) = lbl18
lblB(8) = lbl19
lblB(9) = lbl20
End Sub
Private Sub butSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSet.Click
butSet.Enabled = False
butsote.Enabled = True
Dim i As Integer
Randomize()
For i = 0 To 9 Step 1
intA(i) = Int(Rnd() * 10)
Next
subShow(lblA)
End Sub
Private Sub subShow(ByRef lblX() As Label)
Dim i As Integer
For i = 0 To 9 Step 1
lblX(i).Text = intA(i)
Next
End Sub
|