VB程序求助

来源：百度知道 编辑：UC知道 时间：2024/09/21 13:46:42
我要写一个程序，包含2个文本框，1个按钮，要用来实现体积的计算
在文本框输入一个或多个尺寸（10*10*10@10 10*10*12@2）前边3个数字为长宽高，@后边代表个数，多个尺寸以空格隔开，我怎样做才能做到点按钮后将这多个尺寸计算出体积总和，希望给出程序如果能做简单说明追分

Private Sub Command1_Click()
Text2.Text = getCublic(Text1.Text)
End Sub
Private Function getCublic(ByVal TxtNum As String) As Double
Dim a() As String, b() As String, c() As String
a() = Split(TxtNum, " ")
For i = LBound(a()) To UBound(a())
b() = Split(a(i), "@")
c() = Split(b(0), "*")
getCublic = getCublic + CSng(c(0)) * CSng(c(1)) * CSng(c(2)) * CSng(b(1))
Next i
End Function
我试过了,可以用.

试好了。

Private Sub Command1_Click()
Dim arr
Dim i As Integer, v As Long
arr = Split(Text1.Text, " ")
For i = LBound(arr) To UBound(arr)
v = v + vol(Trim(arr(i)))
Next
Text2.Text = Trim(v)
End Sub

Function vol(vstr As String) As Long
Dim x, a
x = Split(vstr, "@")
a = Split(x(0), "*")
vol = a(0) * a(1) * a(2) * x(1)
End Function

Private Sub Form_Load(