[已解决]请老师看一下代码问题出现在哪里了

sanpiao

cutecpu 发表于 2021-9-13 01:11

老师您好！加入16位条件，左面的示例，结果应该只有一种情况：501780。劳您看一下

cutecpu

sanpiao 发表于 2021-9-13 08:58
老师您好！加入16位条件，左面的示例，结果应该只有一种情况：501780。劳您看一下

不好意思，我犯了低级错误

sanpiao

cutecpu 发表于 2021-9-13 12:24
不好意思，我犯了低级错误

For i = 1 To 4，改成For i = 1 To 5，If i > 4 And d(s) = 0 Then改成If i > 5And d(s) = 0 Then

sanpiao

cutecpu 发表于 2021-9-13 12:24
不好意思，我犯了低级错误

老师：想提取出第6位等于0的，是不是要修改（If i > 5 And d(s) = 0 Then）这部分

cutecpu

sanpiao 发表于 2021-9-13 12:43
老师：想提取出第6位等于0的，是不是要修改（If i > 5 And d(s) = 0 Then）这部分

If i > 5 And d(s) = 0 and p(6) = 0 Then

sanpiao

cutecpu 发表于 2021-9-13 12:49
If i > 5 And d(s) = 0 and p(6) = 0 Then

老师您好！您看条件改成这样，修改代码这部分对吗？

cutecpu

sanpiao 发表于 2021-9-14 20:53
老师您好！您看条件改成这样，修改代码这部分对吗？

改蛮多地方的！

sanpiao

cutecpu 发表于 2021-9-14 21:23
改蛮多地方的！

不懂的地方太多啦，感谢老师

sanpiao

cutecpu 发表于 2021-9-14 21:23
改蛮多地方的！

老师您看一没有这个结果，不知道该改哪部分

cutecpu

sanpiao 发表于 2021-9-14 22:01
老师您看一没有这个结果，不知道该改哪部分

我的错