小弟的vb.net特别渣渣 所以麻烦大神 用什么控件给说下还有代码输在哪个控件什么事件下 ， sos

不用太复杂，界面烂点 没关系额 求救

很简单 随机函数搞定。给你双色球的
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim red(32) As Byte, j As Short, temp As Byte, k As Byte
For i = 0 To 32
red(i) = i + 1
Next
Randomize()
Dim rand = New System.Random()
For i = 0 To 32
j = rand.Next(32)
temp = red(i)
red(i) = red(j)
red(j) = temp
Next
Dim mystr As String = ""
For i = 0 To 5
mystr = mystr + " " + CStr(red(i))
Next i
k = rand.Next(16) + 1
MsgBox("红球" + mystr + "蓝球" + CStr(k))
End Sub
End Class