*
2位基思数
举报
发布于：2023-11-12
更新于：2023-11-12
1
325
作品介绍:
Sub 两位基思数() t = 1 For i = 10 To 99 x = i \ 10 y = i Mod 10 Do While y < i a = x + y If a = i Then Cells(t, 2) = i: t = t + 1 If a > i Then Exit Do x = y y = a Loop Next i End Sub
操作说明:
点击执行