這段程式若要寫成函數該如何?
Private Sub Command1_Click()
STRx = "123456789"
For i = 1 To Len(STRx)
S = Mid$(STRx, i, 1)
Print S
Next
End Sub
Private Sub Command1_Click()
STRx = "123456789"
For i = 1 To Len(STRx)
S = Mid$(STRx, i, 1)
Print S
Next
End Sub
全站熱搜
留言列表