小编Cal*_*chy的帖子

我有以下代码.

我无法为我的生活弄明白.

我想根据值的不同来调用另一个子i.

例如,如果i = 1它应该调用sale_call1,i = 2它应该调用sale_call2.

Private Sub test_Click()
    Dim i As String
    Dim pro As String

    i = Me.tb1.Value
    pro = "sale_call" + i

    If i = "1" Then
        Call pro
    Else
        Call pro
    End If
End Sub

Sub sale_call1()
    MsgBox "Hello"
End Sub

Sub sale_call2()
    MsgBox "goodbye"
End Sub