VB高手请进，修改代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 10:38:39
Private Sub Command1_Click()
a1 = Split(Text1.Text, "+")
For Each x In a1
Sum = Sum + Val(aa(x))
b = b & aa(x) & "+"
Next
Text3.Text = Left(b, Len(b) - 1) & "=" & Sum
End Sub

Public Function aa(ByVal a As String) As Integer
Select Case a
Case "第一个数"
aa = bb(1)
Case "第二个数"
aa = bb(2)
Case "第三个数"
aa = bb(3)
Case "第四个数"
aa = bb(4)
Case "第五个数"
aa = bb(5)
End Select
End Function

Public Function bb(ByVal a As String) As Integer
b = Split(Text2.Text)
Select Case a
Case "1"
bb = b(0)
Case "2"
bb = b(1)
Case "3"
bb = b(2)
Case "4"
bb = b(3)
Case "5"
bb = b(4)
End Select
End Function

在我运行时我在text1.text里面输入:第一个数+第三个数+第四个数
text

费了点劲，还是给你弄出来了，你运行看看吧！

Private Sub Command1_Click()

Text3 = ""
Text1 = "第一个数+第三个数+第四个数"
Text2 = "74 85 26 13 67 85" + Chr(13) + Chr(10) + "65 25 31 74 96 38"

a0 = Split(Text2.Text, Chr(13) + Chr(10))

For Each y In a0

Debug.Print y

a1 = Split(Text1, "+")

For Each x In a1
Sum = Sum + Val(aa(x, y))
b = b & aa(x, y) & "+"
Next

Text3.Text = Text3.Text & Left(b, Len(b) - 1) & "=" & Sum & Chr(13) & Chr(10)
b = ""

Next

End Sub

Public Function aa(ByVal a As String, ax As Variant) As Integer
Select Case a
Case "第一个数"
aa = bb(1, ax)
Case "第二个数"
aa = bb(2, ax)
Case "第三个数"
aa = bb(3, ax)
Case "第四个数"
aa = bb(4, ax)
Case "第五