作业帮vb 加法计算 一个三位数加4位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 01:47:33
vb 加法计算 一个三位数加4位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于
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位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于
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 Sub