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

先建立2個文本框Text1、Text2，1個按鈕Command1。

操作：在Text1中輸入一個整數，再單擊按鈕，則結果顯示在Text2。下面是Command1的代碼：

PrivateSubCommand1_Click()Dimi,x,y,a()asinteger//i用來做循環，x用來保存整數位數，y用來保存求和結果，a()數組用來保存每個位數數值。

Text2.text=""//程序開始時，先清空Text2。x=len(Text1.text)//先判斷輸入的整數的位數。

fori=1toxa(i)=val(mid(Text1.text,i,1)

)//用讀取字符串函數把各位數找出來，并轉化成數字放到數組a(i)中。

y=y+a(i)//把各位數加起來。

nextiText2.text=y//把求和結果顯示在Text2中。EndSub有什么問題可以追問。