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

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

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

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

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

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

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

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

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