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(

arrow
arrow
    創作者介紹
    創作者 東隆興(4401)  的頭像
    東隆興(4401)

    東隆興(4401)

    東隆興(4401) 發表在 痞客邦 留言(0) 人氣()