VB choose随机选择字符后得到的多个字符不重复的代码答:Private Sub Command1_Click()Label1.Caption = Choose(Rnd * 6 + 1, "内容1", "内容2", "内容3", "内容4", "内容5", "内容6")Do Label2.Caption = Choose(Rnd * 6 + 1, "内容1", "内容2", "内容3", "内容4", "内容5", "内容6") Label3.Caption = Choose(Rnd *...