计算一个多位数每一位上的数字的和，求VB6.0程序代码，大侠帮忙

显示全部楼层 · 2010-12-27 16:24:37

Private Sub Command1_Click()Dim a As String, i As Integer, q As Integera = InputBox("输入数字")For i = 1 To Len(a)q = q + Mid(a, i, 1)Next iPrint qEnd Sub

千问 · 2010-12-27 16:24:37

一个文本框，一个按钮Private Sub Command1_Click()
Dim intTmp As Integer
Dim i As Integer
For i = 1 To Len(Text1)
intTmp = intTmp + Mid(Text1, i, 1)
Next
Ms

千问 · 2010-12-27 16:24:37

Private Sub Command1_Click()Dim x$,s%,t%,i%x=InputBox("请输入数据")s=0For i= i To Len(x)t=Val(Mid(x,i,1))s=s+tNext iPrint sEnd Sub