举报
MsgBox(0, 10, hl(10)) MsgBox(0, 20, hl(20)) MsgBox(0, 22, hl(22)) Func hl($ns) $b = Sqrt($ns) If StringIsInt($b) Then Return $b & '*' & $b Else $b1 = StringRegExpReplace($b, '\..+', '') If Round($b) > $b Then Return $b1 + 2 & '*' & $b1 Else Return $b1 + 1 & '*' & $b1 EndIf EndIf EndFunc ;==>hl
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-5-6 12:27 , Processed in 0.155227 second(s), 19 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.