分析：由於我們不知道輸入的這個整數是幾位數，所以要先判斷整數的位數，然後用迴圈找出每個位數具體的數值，最後加起來。

先建立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有什麼問題可以追問。

Private Sub Form_Click()

Dim a(1 To 5, 1 To 5) As Integer

For i = 1 To 5

a(i, i) = 1

a(i, 6 - i) = 1

Next i

For j = 1 To 5

For k = 1 To 5

Print a(j, k);

Next k

Print

Next j

End Sub