先建立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 i
Text2.text=y //把求和結果顯示在Text2中。
End Sub
有什麽問題可以追問。