求一个VB程序 代码 是关于抽奖的 随机跳出1--48号的数字

告诉你最简单的，下面的直接复制就行了

Private Sub Form_click()

Randomize

Dim x As Integer

x = Int(Rnd * 48 + 1)

Print x

End Sub

速度给分