请教VB的随机函数问题

Private Sub Command1_Click()
Text3.Text = (Val(Text2.Text) - Val(Text1.Text) + 1) * Rnd + Val(Text1.Text)
End Sub



为什么会出现图片中的情况？
当下限为负数，如何搞？
谢谢！

VB code

Private Sub Command1_Click()
DIM V1,V2,V3
V1=Text1.Text
V2=Text2.Text
IF V1<0 THEN
V3=-V1
V1=0
V2=V2+V3
END IF
Text3.Text = (Val(V2) - Val(V1) + 1) * Rnd + Val(V1)-V3
End Sub

VB code

Private Sub Form_Load()
Text1 = -5
Text2 = 8
End Sub
Private Sub Command1_Click()
Dim V1, V2, V3
V3 = 0
V1 = Text1.Text
V2 = Text2.Text
If V1 < 0 Then
    V3 = -V1
    V1 = 0
    V2 = V2 + V3
End If
Text3.Text = (Val(V2) - Val(V1) + 1) * Rnd + Val(V1) - V3
End Sub

这个应该没问题吧

 楼主 
 (Val(Text2.Text) - Val(Text1.Text) + 1) = 4
 
Rnd范围：
 0=<Rnd <1

 上面的 图片正常拉。。

单步调试不就知道为什么会出现负数了？主要看看Text3、Text2和Text1的内容了。