需要壹個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“完成”

如果…就會結束

末端接頭