VB计算问题：一个三位数依次加上123 456.求算法三个文本框 一个命令按钮第一个文本（可以任意输入3位数如496）第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）提交按钮;用

来源：学生作业学帮网 编辑：学帮网 时间：2024/04/29 21:32:03

VB计算问题：一个三位数依次加上123 456.求算法
三个文本框 一个命令按钮
第一个文本（可以任意输入3位数如496）
第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）
提交按钮;用第一个文本里的3位数分别加上文本二中的3位数.相加不进位,只要尾数组成新的三位数.如496+746=132
新的结果都显示在文本三中,所有三位数中间都要有空格分开.如123 456 567..这样的格式.
这样的算法用VB这么写 Command1的命令代码?

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

VB计算问题：一个三位数依次加上123 456.求算法三个文本框 一个命令按钮第一个文本（可以任意输入3位数如496）第二个文本（可以输入多组3位数如157 746 327..中间都用空格隔开）提交按钮;用 vb 加法计算 一个三位数加4位数怎么表达5个文本 ,一个按钮,text1里有三位数.text2中有一组四位数.要求把text1中的三位数拆分成3个单数,然后每个单数依次加上text2中的每一个单数,两数相加大于 用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和 一个三位数加上1是四位数,这个三位数是什么 一个三位数 abc a>b>c 这样的三位数有几个 用VB语言写 一个VB问题求,有关 for ...next .语句的.要求点击对象窗口然后显示：***（------------------也就是每一行依次增加2个*） VB有一个三位数abc和a 的积为一个四位正整数baac,编程求这一个三位数 vb现在时间加秒数计算下个时间现在时间（格式如：8点18分39秒）,加上一个秒数变量s,怎样计算出结果? 一个三位数加上小数点和原数相加和是985.76,这个三位数是多少 一个三位数,它的29倍加上5能被2002整除,这个三位数是多少? 一个三位数加上小数点和原数相加和是985.76,这个三位数是多少? 2010加上一个三位数后和为完全平方数,这样的三位数一共有几个? 一个三位数,给它加上小数点后比原数小101.7,这个三位数是（ 如题 给1999加上一个三位数,要使得数是平方数,这样的三位数有几个? 2002加上一个三位数后,和为完全平方数,这样的三位数共有几个? 一个三位数,加上小数点以后再与原数相加,和是1007.98,这个三位数是多少 一个三位数加上3就是5的倍数,这个三位数最小是多少 一个三位小数,加上小数点以后再与原数相加,和是1007.98,这个三位数是几?用五年级水平计算