VB中产生随机数

Private Sub cmdRanAngle_Click()

Dim dblAngle As double

Dim dblSin As double

'Randomize

dblAngle = dbl((90ran)+60)

dblSin = sin(dblAngle)

lblScreamCaption = dblAngle

lblAnswercaption = dblSin

End sub

最简单的方法，楼上都有错。。。。。

希望楼主采纳，有VB问题希望可以探讨，QQ827170254

假定开始按钮是 Command1，两个文本框分别是 Text1、Text2

Private Sub Command1_Click()

Randomize

Text1Text = Int(Rnd 20) + 1

Text2Text = Int(Rnd 20) + 1

End Sub

以上就是关于VB中产生随机数全部的内容，包括:VB中产生随机数、VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！