作业帮在线等VB求救：计算累加
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/14 07:16:21
在线等VB求救：计算累加
请不要嫌我说得啰嗦,这也是为了节约您的时间：
设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一个数字（允许数字间隔几行）.现在依次从最下面的数字向上累加,倒数第123个数字第一次求和,且大于等于10的仅算个位数（如789和为14,结果是4,235和是10,结果是0）,然后以此为基数,每一个数计算一次向上求和,同样的,大于10的仅算个位数.按按钮后生成.txt格式的文本弹出（请使用Shell "C:\WINDOWS\NOTEPAD.EXE " & App.Path & "\累加结果为.txt",1）,在txt输出结果要与原来输入的顺序颠倒,每个数字也用回车键隔开,每行仅含一个数字.要求自己验证通过!不要错误的还发!
举例：
4
7注意上面有个间隔
9
6
4
6
8
7
1
8
那么在txt中输出的结果（不要有空行）是：
6
4
0
4
0
9
6
0
（说明：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,即是输出结果.）
大哥们啊,快现身啊
请不要嫌我说得啰嗦,这也是为了节约您的时间：
设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一个数字（允许数字间隔几行）.现在依次从最下面的数字向上累加,倒数第123个数字第一次求和,且大于等于10的仅算个位数（如789和为14,结果是4,235和是10,结果是0）,然后以此为基数,每一个数计算一次向上求和,同样的,大于10的仅算个位数.按按钮后生成.txt格式的文本弹出（请使用Shell "C:\WINDOWS\NOTEPAD.EXE " & App.Path & "\累加结果为.txt",1）,在txt输出结果要与原来输入的顺序颠倒,每个数字也用回车键隔开,每行仅含一个数字.要求自己验证通过!不要错误的还发!
举例：
4
7注意上面有个间隔
9
6
4
6
8
7
1
8
那么在txt中输出的结果（不要有空行）是：
6
4
0
4
0
9
6
0
（说明：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,即是输出结果.）
大哥们啊,快现身啊
Private Sub Command1_Click()
Dim Str1, S As Integer, Str2 As String, t As Integer
Str1 = Split(Text1, vbCrLf)
For i = UBound(Str1) - 1 To 0 Step -1
If Str1(i) "" Then S = S + 1
If S
Dim Str1, S As Integer, Str2 As String, t As Integer
Str1 = Split(Text1, vbCrLf)
For i = UBound(Str1) - 1 To 0 Step -1
If Str1(i) "" Then S = S + 1
If S