Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Numbers(21) For I As Integer = 0 To 20 '先得到一个完整的0-20的数字 Numbers(I) = I Next I Randomize() '随机初始化 Dim S As String = "" '输出用 For I As Integer = 0 To 4 Dim J As Integer = Int((21 - I) * Rnd()) '从余下的数字中随机取一个 'Begin 将取得的数字放到最后,避免重复被抽取 Dim T As Integer = Numbers(J) Numbers(J) = Numbers(21 - I) Numbers(21 - I) = T 'End 将取得的数字放到最后,避免重复被抽取 S = S + Str(T) Next TextBox1.Text = TextBox1.Text + S + Chr(13) + Chr(10) '输出 End Sub
Dim Numbers(21)
For I As Integer = 0 To 20 '先得到一个完整的0-20的数字
Numbers(I) = I
Next I
Randomize() '随机初始化
Dim S As String = "" '输出用
For I As Integer = 0 To 4
Dim J As Integer = Int((21 - I) * Rnd()) '从余下的数字中随机取一个
'Begin 将取得的数字放到最后,避免重复被抽取
Dim T As Integer = Numbers(J)
Numbers(J) = Numbers(21 - I)
Numbers(21 - I) = T
'End 将取得的数字放到最后,避免重复被抽取
S = S + Str(T)
Next
TextBox1.Text = TextBox1.Text + S + Chr(13) + Chr(10) '输出
End Sub