7,762
社区成员
发帖
与我相关
我的任务
分享一道数学题，忘了算法，请各位大哥教我！
输入一个七位数，从左到右依次分离这个七位数，如
输入2345678
根据下列算法：
8×1+7×2＋6×3＋5×4+4×5+3×6+2×7得出结果
分离数字的程序如下：
Do While s > 0
s1 = s Mod 10
s = s \ 10
LOOP
其中s为通过文本框输入的七位数，s1用来存放分离的七位数
小弟在此谢谢了！
输入2345678
根据下列算法：
8×1+7×2＋6×3＋5×4+4×5+3×6+2×7得出结果
分离数字的程序如下：
Do While s > 0
s1 = s Mod 10
s = s \ 10
LOOP
其中s为通过文本框输入的七位数，s1用来存放分离的七位数
小弟在此谢谢了！
...全文
请发表友善的回复…
发表回复
northwolves 2006-03-22
- 打赏
- 举报
Private Sub Command1_Click()
Dim s As String, i As Integer, temp As Long
s = InputBox("请输入一个整数", "提示", 2345678)
For i = 1 To Len(s)
temp = temp + Val(Mid(s, i, 1)) * (Len(s) - i + 1)
Next
MsgBox temp
End Sub
Dim s As String, i As Integer, temp As Long
s = InputBox("请输入一个整数", "提示", 2345678)
For i = 1 To Len(s)
temp = temp + Val(Mid(s, i, 1)) * (Len(s) - i + 1)
Next
MsgBox temp
End Sub
davysnet 2006-03-21
- 打赏
- 举报
i=1
s2=0
Do While s > 0
s1 = s Mod 10
s2 = s2 + s1 * i
i = i + 1
s = s \ 10
LOOP
s2=0
Do While s > 0
s1 = s Mod 10
s2 = s2 + s1 * i
i = i + 1
s = s \ 10
LOOP
