4453
請問可以幫此段vb6.0程式下一下注解嗎??
這個是我在網路上抓的
但是有一些看不懂
請有人幫下個注解嗎??謝謝原文網址:http://www.phate.tw/thread-4453-1-1.htmlOption ExplicitPrivate Sub Text1_Change() Cls If IsNumeric(Text1.Text) Then Print num_to_string(Trim(Text1.Text)) End IfEnd SubPrivate Function num_to_string(ByVal num As String) Dim c1() Dim c2() Dim c3() Dim i As Integer Dim j As Integer Dim ansstr As String c1 = Array(
文章標籤
全站熱搜
留言列表