【每日一题】水仙花数 - 2022.4.22 _ 按键精灵脚本教程

查看: 4678\|回复: 6	[神梦] 【每日一题】水仙花数 - 2022.4.22 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-04-22 20:20 | |只看楼主

题目描述

水仙花数是指一个三位数字，其每个位置上的数字的3次方的总和刚好等于原来的数字。
请编写一个函数，给定一个数字，判断它是否为水仙花数。

【示例】
输入：153
输出：True
解释：因为153的长度是3，而1^3+5^3+3^3=153成立。

题目难度：简单
题目来源：CodeWars-Narcissistic Numbers

Import "SmAssert.dll"
Function 水仙花数(数字)
// 您的代码在这里
End Function
SmAssert 水仙花数(153) = True
SmAssert 水仙花数(205) = False
SmAssert 水仙花数(407) = True
SmAssert 水仙花数(1024) = False

复制代码

参考题解

Import "SmAssert.dll"
Function 水仙花数(数字)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：624655641
Dim Result, sum, num, i, n
sum = 0
n = Len(数字)
If n = 3 Then
For i = 1 To n
num = Int(Mid(数字, i, 1))
sum = sum + num ^ n
Next
Result = (sum = 数字)
End If
水仙花数 = Result
End Function
SmAssert 水仙花数(153) = True
SmAssert 水仙花数(205) = False
SmAssert 水仙花数(407) = True
SmAssert 水仙花数(1024) = False

复制代码

插件下载

【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误

神梦科技最后编辑于 2022-04-22 20:33:12

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 4627510 帖子 53 精华 0 鲜花 42 朵铜币 56 个银币 47 个性别在线时间 0 注册时间 2017-09-11 最后登录 2024-01-14 924249945 查看公共资料搜索主题搜索帖子 x924249945 x924249945 组别小学三年级 UID4627510 帖子53 精华0 鲜花42 朵铜币56 个银币47 个在线时间0 注册时间2017-09-11 黄金之翼黄金之翼勋章	2^# 字体大小: t T 发表于 2022-04-22 23:14 \| \|只看该用户偷窥下答案


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	3^# 字体大小: t T 发表于 2022-04-23 07:26 \| \|只看该用户 Function 水仙花数(a) dim b=CInt(Mid(a,1,1)) dim c=CInt(Mid(a,2,1)) dim d=CInt(Mid(a,3,1)) If b^3 + c^3+d^3 = b100+c10+d*1 Then 水仙花数(a) =true TracePrint "水仙花开" Else 水仙花数(a) = False TracePrint "水仙花败" End If End Function TracePrint 水仙花数(153) 点评神梦科技 👍非常棒了！水仙花数是三位数，如果不限位数的话叫自恋数字发表于 2022/4/23 13:39:27


	回顶部

发送短消息 UID 8138815 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-01-30 最后登录 2022-07-14 查看公共资料搜索主题搜索帖子 903077007 越努力，越幸运组别小学一年级 UID8138815 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-01-30	4^# 字体大小: t T 发表于 2022-04-23 07:27 \| \|只看该用户 , 好吧比我的精简. 比我考虑的多.我只考虑到一定是三位数.


	回顶部

发送短消息 UID 8414809 帖子 151 精华 0 鲜花 73 朵铜币 161 个银币 155 个性别在线时间 0 注册时间 2021-08-11 最后登录 2024-07-10 查看公共资料搜索主题搜索帖子 ichigoQ7 ichigoQ7 组别初中一年级 UID8414809 帖子151 精华0 鲜花73 朵铜币161 个银币155 个在线时间0 注册时间2021-08-11	5^# 字体大小: t T 发表于 2022-04-23 14:31 \| \|只看该用户过来学习一下


	回顶部

发送短消息 UID 3762025 帖子 45 精华 0 鲜花 22 朵铜币 81 个银币 34 个性别在线时间 480 注册时间 2016-02-17 最后登录 2022-11-22 查看公共资料搜索主题搜索帖子 zoe298 组别小学二年级 UID3762025 帖子45 精华0 鲜花22 朵铜币81 个银币34 个在线时间480 注册时间2016-02-17	6^# 字体大小: t T 发表于 2022-04-24 12:48 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 8766197 帖子 53 精华 0 鲜花 43 朵铜币 49 个银币 49 个性别在线时间 0 注册时间 2022-06-09 最后登录 2024-03-02 491347868 查看公共资料搜索主题搜索帖子 491347868 491347868 组别小学三年级 UID8766197 帖子53 精华0 鲜花43 朵铜币49 个银币49 个在线时间0 注册时间2022-06-09	7^# 字体大小: t T 发表于 2023-04-17 08:55 \| \|只看该用户瞧瞧大哥码


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】水仙花数 - 2022.4.22 [复制链接]

点评