vb实时错误6溢出怎么解决

更新时间2019-08-02 05:35:18

Private Sub Command3_Click()

Dim V As Long, R As Long, P As Long

V = Val(Text5.Text)

R = Val(Text6.Text)

P = (V ^ 2) / R

Label12.Caption = Str(P) + "(W)"

 

End Sub

这个与你的数据有关了，你的V（也就是Text1的值）太大了，因了VB中，数值是有范围的（long是32位数值，最大不能超过2147483647）

你若要用大数，要么用double,要么自己写大数运算