2位基思数

举报

发布于:2023-11-12

更新于:2023-11-12

1

282

大山的情怀

0M/ 0.1M

作品介绍:

Sub 两位基思数() t = 1 For i = 10 To 99 x = i \ 10 y = i Mod 10 Do While y &#60 i a = x + y If a = i Then Cells(t, 2) = i: t = t + 1 If a &#62 i Then Exit Do x = y y = a Loop Next i End Sub

操作说明:

点击执行

收藏