求一个简单的VB程序。。关于比例运算的

来源：百度知道 编辑：UC知道 时间：2024/07/03 00:03:42
a/(a2-a1)=x/(b2-b1) 求X
除了X未知，其余都已知。
VB程序部分求人帮忙写个，要求就是按个Button求得x，然后显示出来。

Private Sub Command1_Click()

Dim a As Double, a1 As Double, a2 As Double, b1 As Double, b2 As Double
a = …… '为你要赋值的数
a1 = ……
a2 = ……
b1 = ……
b2 = ……

MsgBox "X=" & a * (b2 - b1) / (a2 - a1)

End Sub

首先进行变量定义和赋值
然后
msgbox a*(b2-b1)/(a2-a1)