VB计算问题：一个三位数依次加上123 456.求算法三个文本框 一个命令按钮第一个文本（可以任意输入3位数如496）第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）提交按钮;用
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 01:03:50
VB计算问题：一个三位数依次加上123 456.求算法三个文本框 一个命令按钮第一个文本（可以任意输入3位数如496）第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）提交按钮;用
VB计算问题：一个三位数依次加上123 456.求算法
三个文本框 一个命令按钮
第一个文本（可以任意输入3位数如496）
第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）
提交按钮;用第一个文本里的3位数分别加上文本二中的3位数.相加不进位,只要尾数组成新的三位数.如496+746=132
新的结果都显示在文本三中,所有三位数中间都要有空格分开.如123 456 567..这样的格式.
这样的算法用VB这么写 Command1的命令代码?
VB计算问题：一个三位数依次加上123 456.求算法三个文本框 一个命令按钮第一个文本（可以任意输入3位数如496）第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）提交按钮;用
Private Sub Command1_Click()
s = Text1.Text
If Mid(s,Len(s),1) <> " " Then s = s + " "
Text2.Text = ""
Do While InStr(1,s," ") > 0
k = k + 1
s1 = Mid(s,1,InStr(1,s," ") - 1)
s = Mid(s,InStr(1,s," ") + 1)
a1 = CInt(Mid(s1,1,1))
b1 = CInt(Mid(s1,2,1))
c1 = CInt(Mid(s1,3,1))
a = (a + a1) Mod 10
b = (b + b1) Mod 10
c = (c + c1) Mod 10
If k > 1 Then Text2.Text = Text2.Text & a & b & c & " "
Loop
End Sub