vba示ä¾ä»£ç å¦ä¸ï¼
private sub command1_click()
dim x,y as string
x=text1 'åææ¬æ¡ä¸çå符串
for i=1 to lenï¼xï¼ â循ç¯åxçæ¯ä¸ä¸ªå符
if ascï¼midï¼xï¼iï¼1ï¼ï¼between 48 and 57 âå¤æ该ä½å符æ¯å¦å¨0å°9ä¹é´ï¼éè¿ascç å¤æ
y=y+midï¼xï¼iï¼1ï¼âå°è¯¥ä½å符è¿è¡è¿æ¥
end if
next i
msgbox y âè¾åºç»æ
end sub