需要一个vb小程序，随机数为1-12(不可重复)，界面清晰美观。1天内感谢。

将k标注为整数

私有子窗体_Load()

k = 0

末端接头

私有子命令5_Click()

Dim s1为字符串，s为整数

随机化时间()

如果stmp = " "那么stmp = "，"

Do While k & lt12

s = Int(Rnd *(12-1+1)+1)

If InStr(1，stmp，"，" & amp标准普尔。“，”= 0那么

k = k + 1

出口Do

如果…就会结束

环

如果s & lt& gt那么0

stmp = stmp & amp标准普尔。","

打印s

其他

MsgBox“完成”

如果…就会结束

末端接头