这个vb程序运行时老说我实时错误6溢出怎么办

2025-02-13 12:05:36

推荐回答（1个）

回答1：

Private Sub Command15_Click()
Dim B1 As Single, k As Single
B1 = Text24.Text
k = B1 ^ 0.25
Text37.Text = k
End Sub

Private Sub Command16_Click()
Dim B2 As Single, c1 As Single, m As Single, B1 As Single, G1 As Single
B2 = Text25.Text
c1 = Text32.Text
m = Text29.Text
B1 = Text24.Text
G1 = -B2 * c1 * m ^ (0.5) / (m ^ 2 + B1)
Text38.Text = G1

End Sub

Private Sub Command17_Click()
Dim B2 As Single, c2 As Single, m As Single, B1 As Single, G2 As Single
B2 = Text25.Text
c2 = Text33.Text
m = Text29.Text
B1 = Text24.Text
G2 = B2 * c2 * m ^ (0.5) / (m ^ 2 + B1)
Text39.Text = G2
End Sub

Private Sub Command18_Click()
Dim B2 As Single, n As Single, B3 As Single, B1 As Single, q As Single, G3 As Single
B2 = Text25.Text
n = Text30.Text
B3 = Text26.Text
B1 = Text24.Text
q = Text13.Text
G3 = (-B2 * n - B3) * q / B1
Text40.Text = G3
End Sub

Private Sub Command19_Click()
Dim bb3 As Single, vt0 As Single, B2 As Single, t0 As Single, c2 As Single, m As Single, k As Single, B4 As Single, B3 As Single
bb3 = Text26.Text
vt0 = Text41.Text
B2 = Text25.Text
t0 = Text42.Text
c2 = Text33.Text
m = Text29.Text
k = Text37.Text
B4 = Text27.Text
B3 = (bb3 * vt0 - B2 * t0 + B2 * c2 - k ^ 3 * B4 / 2 ^ (0.5)) * 2 ^ (0.5) / k ^ 3
Text44.Text = B3

End Sub

Private Sub Command2_Click()
Dim hp As Single, hb As Single, Gp As Single, Gb As Single, a0 As Single
hp = Text4.Text
hb = Text3.Text
Gp = Text17.Text
Gb = Text18.Text
a0 = 1 + hp / 3 / Gp + hb / 3 / Gb
Text19.Text = a0
End Sub

Private Sub Command20_Click()
Dim B2 As Single, c2 As Single, m As Single, B1 As Single, k As Single, Ea As Single, ta As Single, Eb As Single, Ib As Single
Dim q As Single, a As Single, L As Single, B4 As Single
B2 = Text25.Text
c2 = Text33.Text
m = Text29.Text
B1 = Text24.Text
k = Text37.Text
Ea = Text8.Text
ta = Text5.Text
Eb = Text6.Text
Ib = Text10.Text
q = Text13.Text
a = Text46.Text
L = Text47.Text
B4 = B2 * c2 * m ^ (3 / 2) / (m ^ 2 + B1) / k ^ 2 - Ea * q * a * (L - a) / ta / Eb / Ib / 2
Text45.Text = B4
End Sub

Private Sub Command3_Click()
Dim yp As Single, yb As Single, ta As Single, Ep As Single, Eb As Single, Ip As Single, Ib As Single, Ga As Single, a2 As Single, c As Single
yp = Text14.Text
yb = Text15.Text
ta = Text5.Text
Ep = Text7.Text
Ip = Text11.Text
Eb = Text6.Text
Ib = Text10.Text
Ga = Text12.Text
c = (-yp) / Ep / Ip + yb / Eb / Ib - ta / 2 / Ep / Ip + ta / 2 / Eb / Ib
a2 = c * bp * Ga / ta
Text20.Text = a2
End Sub

Private Sub Command4_Click()
Dim yp As Single, yb As Single, ta As Single, Ep As Single, Eb As Single, Ip As Single, Ib As Single, bp As Single, Ga As Single
Dim Ap As Single, Ab As Single
Dim c As Single
Dim a1 As Single
yp = Text14.Text
yb = Text15.Text
ta = Text5.Text
Ep = Text7.Text
Eb = Text6.Text
Ip = Text11.Text
Ib = Text10.Text
bp = Text2.Text
Ga = Text12.Text
Ap = Text22.Text
Ab = Text23.Text
c = bp * yp ^ 2 / Ep / Ip + bp / Ep / Ap + bp * yb ^ 2 / Eb / Ib + bp / Eb / Ab + ta * bp * yp / 2 / Ep / Ip + ta * bp * yb / 2 / Eb / Ib
a1 = c * Ga / ta
Text21.Text = a1
End Sub

Private Sub Command5_Click()
Dim Ea As Single, bp As Single, ta As Single, Eb As Single, Ib As Single, Ep As Single, Ip As Single, c As Single, B1 As Single
Ea = Text8.Text
bp = Text2.Text
ta = Text5.Text
Eb = Text6.Text
Ib = Text10.Text
Ep = Text7.Text
Ip = Text11.Text
c = 1 / Eb / Ib + 1 / Ep / Ip
B1 = c * Ea * bp / ta
Text24.Text = B1
End Sub

Private Sub Command6_Click()
Dim Ea As Single, bp As Single, ta As Single, Eb As Single, Ib As Single, Ep As Single, Ip As Single, yb As Single, yp As Single
Dim c As Single, B2 As Single
Ea = Text8.Text
bp = Text2.Text
ta = Text5.Text
Eb = Text6.Text
Ib = Text10.Text
Ep = Text7.Text
Ip = Text11.Text
yb = Text15.Text
yp = Text14.Text
c = yb / Eb / Ib - yp / Ep / Ip
B2 = c * Ea * bp / ta
Text25.Text = B2
End Sub

Private Sub Command7_Click()
Dim Ea As Single, ta As Single, Eb As Single, Ib As Single
Dim B3 As Single
B3 = Ea / ta / Eb / Ib
Text26.Text = B3
End Sub

Private Sub Command8_Click()
Dim Ea As Single, ta As Single, Gb As Single, Ab As Single, k As Single, B4 As Single
Ea = Text6.Text
ta = Text5.Text
Gb = Text18.Text
Ab = Text23.Text
k = Text28.Text
B4 = -Ea * k / ta / Gb / Ab
Text27.Text = B4
End Sub

Private Sub Command9_Click()
Dim a1 As Single, a2 As Single, a0 As Single, B1 As Single, B2 As Single, m As Single
a1 = Text21.Text
a2 = Text20.Text
a0 = Text19.Text
B1 = Text24.Text
B2 = Text25.Text
m = (a1 * B1 - a2 * B2) / a0 / B1
Text29.Text = m

End Sub
Private Sub Command10_Click()
Dim a3 As Single, a2 As Single, a1 As Single, B1 As Single, B2 As Single, B3 As Single, n As Single
a3 = Text16.Text
a2 = Text20.Text
a1 = Text21.Text
B1 = Text24.Text
B2 = Text25.Text
B3 = Text26.Text
n = (a3 * B1 - a2 * B3) / (a2 * B2 - a1 * B1)
Text30.Text = n
End Sub

最新问答

新车每次跑3至4公里就停是否对发动机不好

我有一手货源，衣服鞋子包包零食饰品等，我想问一问怎么才能找到代理

我有很多钱（约19亿）但我为什么不快乐

请问有去过香港迪士尼和海洋公园的吗？想知道好不好玩，如自己购票的话，里面玩的还要付费吗？能不能带食

这是什么意思啊？？

参与资金盘投资是违法的吗

江苏省那些大学有物理学学专业，985、211就别提了……

父亲姓朱中间带子的女孩名字急

求好看的二次元恋爱动漫

想购买银杏树，哪里银杏树价格最低？