vbs数组的使用

mu_Choose = "3"

Dim i, sMethod
if IsNumeric(mu_Choose) Then
    i = CInt(mu_Choose)
    if i < 1 or i > 4 Then
        i = 0
    end if
else
    i = 0
end if

sMethod = Array("hh", "addition", "subtract", "multiply", "division")
'sMethod(0) = "hh"
'sMethod(1) = "addition"
'sMethod(2) = "subtract"
'sMethod(3) = "multiply"
'sMethod(4) = "division"

mu_sMethod = sMethod(i)
MsgBox mu_sMethod