任意输入一个整数，运用函数计算各个位数字相加的结果，如果结果为非“单”位数字，则继续相加，直至结果为“单”位数字为止。
如：输入12345，1+2+3+4+5=15,1+5=6) 结果为6;
输入123, (1+2+3=6) 结果为6。

Private Sub Command1_Click()
Dim ll As Integer '输入数字长度
Dim zz As Double '中间计算值
Dim nn As Integer '位数字
tt = Text1.Text
sl:
ll = Len(tt)
If ll > 1 Then
zz = 0
For i = 1 To ll

nn = Mid(tt, i, 1)
zz = zz + nn
Next i

tt = zz
GoTo sl

End If

Text2.Text = tt
End Sub

呵呵,楼上的是正确的!
这好象是 vb二级考试的上机试题哦!!不知道对不对?

Mid(tt, i, 1)这个是什么意思？？？
VB丢了很久了都忘记的差不多了

在tt字符串中取第i个字符位置上的1个字符.

三克油。。。。。。