用VB从1－12这12个数中随机生成3个互不重复的数

用VB从1－12这12个数中随机生成3个互不重复的数

解：
private sub command1_click()
randomize
dim a as integer ,b as integer ,c as integer
a=int(rnd*12)+1
text1=a

do
b=int(rnd*12)+1
loop until b<>a
text2=b
do
c=int(rnd*12)+1
loop until c<>b and c<>a
text3=c

end sub

弄个数组就搞定了。追问晕。大哥，我是小白啊，不知道什么数组。如果会的话直接给出一个程序吧。追答

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Randomize
Do
    a = Int(Rnd * 12) + 1   '分别生成三个数
    b = Int(Rnd * 12) + 1
    c = Int(Rnd * 12) + 1
Loop While a = b Or b = c Or a = c   '如果有任何两个数相同就再次生成
Text1.Text = a   '把数值分别放到三个文本框中
Text2.Text = b
Text3.Text = c
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息