清写个循环

0wchz · 发表于 2024-7-11 19:16

a="2":b="211",循环b,实现数组s, s(1)=“4",s(2)="5":s(3)="6",就是s(1)="2+2":s(2)="2+2+1":s(3)="2+2+1+1"

longwin · 发表于 2024-7-11 19:24

本帖最后由 longwin 于 2024-7-11 19:26 编辑

Sub test()
a = "2"
b = "211"
ReDim s(1 To 3)
For i = 1 To 3
      For j = 1 To Len(Left(b, i))
         s(i) = s(i) + Val(Mid(Left(b, i), j, 1))
      Next
s(i) = s(i) + Val(a)
Debug.Print s(i)
Next
End Sub

longwin · 发表于 2024-7-11 19:27

本帖最后由 longwin 于 2024-7-11 19:52 编辑

写复杂了，请参考楼下各位的代码

剑指E · 发表于 2024-7-11 19:31

quqiyuan · 发表于 2024-7-11 19:46

本帖最后由 quqiyuan 于 2024-7-11 20:03 编辑

		自动登录	找回密码
密码			免费注册

[求助] 清写个循环