
Private Sub cmdRanAngle_Click()Dim dblAngle As doubleDim dblSin As double'RandomizedblAngle = dbl((90*ran)+60)dblSin = sin(dblAngle)lblScream.Caption = dblAnglelblAnswer.caption = dblSinEnd sub 最简单的方法,楼上都有错。。。。。希望楼主采纳,有VB问题希望可以探讨,QQ827170254

Private Sub cmdRanAngle_Click()Dim dblAngle As doubleDim dblSin As double'RandomizedblAngle = dbl((90*ran)+60)dblSin = sin(dblAngle)lblScream.Caption = dblAnglelblAnswer.caption = dblSinEnd sub 最简单的方法,楼上都有错。。。。。希望楼主采纳,有VB问题希望可以探讨,QQ827170254