分析：由於我們不知道輸入的這個整數是幾位數，所以要先判斷整數的位數，然後用迴圈找出每個位數具體的數值，最後加起來。先建立2個文字框Text1、Text2，1個按鈕Command1。操作：在Text1中輸入一個整數，再單擊按鈕，則結果顯示在Text2。下面是Command1的程式碼：Private Sub Command1_Click()Dim i,x,y,a() as integer //i用來做迴圈，x用來儲存整數位數，y用來儲存求和結果，a() 陣列用來儲存每個位數數值。Text2.text="" //程式開始時，先清空Text2。x=len(Text1.text) //先判斷輸入的整數的位數。for i=1 to x a(i)=val(mid(Text1.text,i,1)) //用讀取字串函式把各位數找出來，並轉化成數字放到陣列a(i) 中。y=y+a(i) //把各位數加起來。next iText2.text=y //把求和結果顯示在Text2中。End Sub有什麼問題可以追問。
分析：由於我們不知道輸入的這個整數是幾位數，所以要先判斷整數的位數，然後用迴圈找出每個位數具體的數值，最後加起來。先建立2個文字框Text1、Text2，1個按鈕Command1。操作：在Text1中輸入一個整數，再單擊按鈕，則結果顯示在Text2。下面是Command1的程式碼：Private Sub Command1_Click()Dim i,x,y,a() as integer //i用來做迴圈，x用來儲存整數位數，y用來儲存求和結果，a() 陣列用來儲存每個位數數值。Text2.text="" //程式開始時，先清空Text2。x=len(Text1.text) //先判斷輸入的整數的位數。for i=1 to x a(i)=val(mid(Text1.text,i,1)) //用讀取字串函式把各位數找出來，並轉化成數字放到陣列a(i) 中。y=y+a(i) //把各位數加起來。next iText2.text=y //把求和結果顯示在Text2中。End Sub有什麼問題可以追問。