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

    vbqa 發表在 痞客邦 留言(2) 人氣()