电脑上自己制作抽奖
发布网友
发布时间：2022-04-23 06:29
共1个回答
热心网友
时间：2023-10-05 10:43
利用随即函数，再放了文本文件：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, str As String
Randomize
a = Int(10 * Rnd)
b = Int(10 * Rnd)
c = Int(10 * Rnd)
d = Int(10 * Rnd)
Text1 = a & b & c & d
End Sub追问你QQ多少
