vb 加法计算 一个三位数加4位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 10:05:37
![vb 加法计算 一个三位数加4位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于](/uploads/image/z/15235333-61-3.jpg?t=vb+%E5%8A%A0%E6%B3%95%E8%AE%A1%E7%AE%97+%E4%B8%80%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0%E5%8A%A04%E4%BD%8D%E6%95%B0%E6%80%8E%E4%B9%88%E8%A1%A8%E8%BE%BE5%E4%B8%AA%E6%96%87%E6%9C%AC+%2C%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE%2Ctext1%E9%87%8C%E6%9C%89%E4%B8%89%E4%BD%8D%E6%95%B0.text2%E4%B8%AD%E6%9C%89%E4%B8%80%E7%BB%84%E5%9B%9B%E4%BD%8D%E6%95%B0.%E8%A6%81%E6%B1%82%E6%8A%8Atext1%E4%B8%AD%E7%9A%84%E4%B8%89%E4%BD%8D%E6%95%B0%E6%8B%86%E5%88%86%E6%88%903%E4%B8%AA%E5%8D%95%E6%95%B0%2C%E7%84%B6%E5%90%8E%E6%AF%8F%E4%B8%AA%E5%8D%95%E6%95%B0%E4%BE%9D%E6%AC%A1%E5%8A%A0%E4%B8%8Atext2%E4%B8%AD%E7%9A%84%E6%AF%8F%E4%B8%80%E4%B8%AA%E5%8D%95%E6%95%B0%2C%E4%B8%A4%E6%95%B0%E7%9B%B8%E5%8A%A0%E5%A4%A7%E4%BA%8E)
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