作业帮 > 综合 > 作业

vb 加法计算 一个三位数加4位数怎么表达

来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/05/11 23:20:19
vb 加法计算 一个三位数加4位数怎么表达
5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于10的减10,组成新的四位数数组,.比如text1中的三位数为987,text2中的四位数为5678,那么用第一位9+5678得出一组新的四位数,用第二位8+5678得出第二组四位数,用第三位7+5678得出第三组四位数,本来9+5=14,这里大于十的只要尾数4,这样依次相加得到4567,其他也一样.
提交按钮后,把text1中的第一位加text2中的每一位得到的新的四位数输出到text3中,把把text1中的第二位加text2中的每一位得到的新的四位数输出到text4中,把text1中的第三位加text2中的每一位得到的新的四位数输出到text5中.
这样的代码怎么写?
vb 加法计算 一个三位数加4位数怎么表达
Private Sub Command1_Click()'没考虑两数相加等于10的情况
Dim s1 As String, s2 As String
s1 = Trim(Text1.Text)
s2 = Trim(Text2.Text)
If Len(s1) = 3 And Len(s2) = 4 Then
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
For J = 1 To Len(s2)
Text3.Text = Text3.Text & Right(Val(Mid(s1, 1, 1)) + Val(Mid(s2, J, 1)), 1)
Text4.Text = Text4.Text & Right(Val(Mid(s1, 2, 1)) + Val(Mid(s2, J, 1)), 1)
Text5.Text = Text5.Text & Right(Val(Mid(s1, 3, 1)) + Val(Mid(s2, J, 1)), 1)
Next J
End If
End Su
vb 加法计算 一个三位数加4位数怎么表达 用0.1.2.3.4.9组成一个三位数加三位数结果是四位数的加法算式 用0-9列一个三位数加三位数的竖试加法等于一个四位数,10个数字不能重复用,怎么列 用数字0,1,2,3,4,5,6,7,8,9,列一个三位数加三位数等于四位数的加法竖式,数字不能重复使用 从0到9十位数字,组成一个加法公式,即三位数加三位数等于四位数,不重复, 用0123456789十个数字组成一个加法式子,是一个三位数加一个三位数的一个四位数,就用这十个数不能重复. 用0-9这十个数组成一个三位数加三位数得四位数的加法竖式,不能重复,有什么方法. vb 怎么编输入一个数 判断这个数是一位数还是二位数或者三位数或者以上的 如何用0----9的数字组成三位数加三位数等于四位数的加法?（不重复） 谁会做把1234567890这十个数字做成三位数加三位数的加法,等于四位数,数字不得重复. 从0,1到9组成一个加法算式,两个三位数相加等于一个四位数 用0-9组成一个加法算式,加数和被加数都是三位数,和是四位数