电脑上自己制作抽奖
发布网友
共1个回答
热心网友
电脑上制作抽奖器的方法：
利用随即函数，再放了文本文件：
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多少
