怎么让它重复的出现? i = 0 While i < 27 Dim r As New Random Dim j As Int32 = r.Next(0,54) i = i + 1 txt2.Text = txt2.Text & j & "_ " End While txt2(textBox) 里的值为: 39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_39_30_30_30_30_30_ 如何让他不重复呢?要怎么改进呢? __________________________________________________________________________ 呀，刚才一着急,忘了给分数了 我失误=_= __________________________________________________________________________ 把 Dim r As New Random 移到循环外吧 __________________________________________________________________________ 恩，好用了的 对不起,刚才着急没加上分! __________________________________________________________________________ 支持零分贴！！ ※SET 奥特曼生命上限值=↑↑↓↓←→←→BA 当任何人看到我的回贴时表示该楼主已受到奥特曼共和国零分贴计划的特别保护，任何版主如果擅自删除楼主的贴子将会受到动感死光的惩罚※ __________________________________________________________________________