VB怎样生成正负1之间的随机数？

做两个随机数:
第一个做0到1之间的随机数.
第二个做0或1,(注意:要用int()因为只要0或1）
如果第二个为0，那么第一个数变成负值，要不然就为正。

这样的活，就可以生成随机数0~1，有50%的几率为负数。

Private Sub Command1_Click()
Dim a, b As Double
a = Rnd
b = Rnd
If a > b Then
MsgBox "-1"
Else
MsgBox "1"
End If
End Sub

Private Sub Command1_Click()
Randomize
Print Int((Rnd * 2 - 1) * 1000) / 1000
End Sub
这样做，你看行不行

1-rnd*2

正确答案：
范围：[-1,1) 公式： rnd()*2-1

RAND()*2-1