vb 加法计算 一个三位数加4位数怎么表达
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中.
这样的代码怎么写?
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中.
这样的代码怎么写?
其他人气：506 ℃时间：2020-10-01 02:37:21
优质解答
Private Sub Command1_Click()'没考虑两数相加等于10的情况 Dim s1As String, s2 As String s1 = Trim(Text1.Text) s2 = Trim(Text2.Text) If Len(s1) = 3 And Len(s2) = 4 ThenText3.Text = ""...
我来回答
类似推荐