VB的溢出错误怎么解决？

Private Sub Form_Load()
Dim w, h As Integer, BMI As Double
w = Val(Text1.Text)
h = Val(Text1.Text)
If h > 0 Then
BMI = w / ((h / 100) ^ 2)
BMI = Round(BMI, 2)
End If
End Sub

BMI = w / ((h / 100) ^ 2)为什么会溢出？怎么改？

你的身高和体重都 = Val(Text1.Text)，应该有个text2吧 ，我试过没溢出啊

那这段代码是否真的合理我看定义成double也肯定还是溢出的 我很想问问？ --------------- 所有的输入参数全为1的时候 s = s + a(i, j) * x(j) '？ 因为你需要的操作数已经连double都容不下了; 此处溢出错误 此处x(j) = -3.01223167463934e+307，如果你确实需要那么大的数，那你这个程序会很麻烦，因为计算方式要从vb支持的，做成内存中手动去计算的了，你做的是什么？怎么会需要用到那么大的数

h太小造成数太大 h在100左右能好些