第1个回答 2005-12-24
Text1.text 用于输入正整数
Label1.Caption 存放各位数字之和的计算结果
计算事件Command1_Click
代码:
Private Sub Command1_Click()
Dim s() as String '定义一个数组用来存储各个数字
Dim i as Integer , num as Integer
For i = 1 To Len(Text1.Text)
s(i)=Mid(Text1.Text,1,1) '分离各个数字
num=num+Val(s(i)) '将字符串型改为数值型
Next i
Print num