我刚刚学习编程,很多都不懂,而且没什么思路,无从下手,希望大家能帮帮我,谢谢(最好有代码和注释,谢谢,麻烦了)
我现在要实现这样一个要求:在0-20中,点击按键会随机从中取出5个数字,而且是不重复的,并且再次点击的话,上一次显示的数字还在!!

解决方案 »

  1.   

    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