得到
  • 汉语词
  • 汉语典q
当前位置 :
在线等VB求救:计算累加请不要嫌我说得啰嗦,这也是为了节约您的时间:设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一
1人问答
更新时间:2024-04-20 05:24:57
问题描述:

在线等VB求救:计算累加

请不要嫌我说得啰嗦,这也是为了节约您的时间:

设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一个数字(允许数字间隔几行).现在依次从最下面的数字向上累加,倒数第123个数字第一次求和,且大于等于10的仅算个位数(如789和为14,结果是4,235和是10,结果是0),然后以此为基数,每一个数计算一次向上求和,同样的,大于10的仅算个位数.按按钮后生成.txt格式的文本弹出(请使用Shell"C:WINDOWSNOTEPAD.EXE"&App.Path&"累加结果为.txt",1),在txt输出结果要与原来输入的顺序颠倒,每个数字也用回车键隔开,每行仅含一个数字.要求自己验证通过!不要错误的还发!

举例:

4

7注意上面有个间隔

9

6

4

6

8

7

1

8

那么在txt中输出的结果(不要有空行)是:

6

4

4

9

6

(说明:817这三个数第一次求和,和为16取6,以6为基数,与上面的8求和,和为14取4,然后46和为10取0,04和为4取4,46和为10取0,09和为9取9,97和为16取6,6上面有个空行,跳过加上面的4,和为10取0,即是输出结果.)

大哥们啊,快现身啊

李继耀回答:
  PrivateSubCommand1_Click()DimStr1,SAsInteger,Str2AsString,tAsIntegerStr1=Split(Text1,vbCrLf)Fori=UBound(Str1)-1To0Step-1IfStr1(i)""ThenS=S+1IfS
云一题(yunyiti.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。

邮箱:  联系方式:

Copyright©2009-2021 云一题 yunyiti.com 版权所有 闽ICP备2021003084号-17