| 发表于:2007-02-03 22:41:567楼 得分:0 |
private sub command1_click() dim arr1() as string arr1 = split( "textbox1, " ") dim i as integer dim sum as integer for i = 0 to ubound(arr1) sum = sum + cint(arr1(i)) next i msgbox "sum= " & sum end sub arr1 = split( "1 21 35 56 51 25 ", " ") arr1 = split( "textbox1, " ")我改成这样行吗 | | |
|