来个题目玩玩

chishingchan · 发表于 2017-12-29 12:56:44

头脑生锈了！活动活动一下！

cashiba · 发表于 2017-12-29 17:34:39

高手的游戏？

cashiba · 发表于 2017-12-29 20:34:52

vb里有个函数，strReverse

cfanpc · 发表于 2017-12-30 08:36:39

本帖最后由 cfanpc 于 2017-12-30 09:13 编辑

进来看看，我要金币

Local $sTestStr = 'abcdefghijklmnopqrstuvwxyz0123456789'

MsgBox(0,0,StringReverse($sTestStr))

楼主的代码我看懂了一半，为什么可以用？连接用别的就不行还有最后的:符号是做什么的请解答一下

Local $sTestStr = 'abcdefghijklmnopqrstuvwxyz0123456789'


 ConsoleWrite('Rev_sTestStr=' & _SwapText($sTestStr) & @CRLF)

Func _SwapText($str)
        Return StringLen($str) ? (StringRight($str, 1) & _SwapText(StringTrimRight($str, 1))) : $str
                ;返回字符串长度       返回字符串右起指定数量的字符  连接  删除字符串右起指定数量的字符
EndFunc   ;==>_SwapText

haijie1223 · 发表于 2017-12-30 11:00:24

回复 19# cfanpc

三元运算符

xzf680 · 发表于 2017-12-30 21:43:12

本帖隐藏的内容需要回复才可以浏览

xzf680 · 发表于 2017-12-30 22:09:41

看了看有点意思也来玩下哈！

Local $sTestStr = 'abcdefghijklmnopqrstuvwxyz0123456789'
Local $str = ''
$test = StringRegExp($sTestStr, '[a-z|\d]', 3)
If IsArray($test) Then 
        For $i = 0 To UBound($test) - 1
                $str &= $test[UBound($test) - 1 - $i]
        Next
    ConsoleWrite($str & @LF)        
EndIf

xzf680 · 发表于 2017-12-30 22:22:29

回复 3# afan

[au3]Local $str = '利用递归函数调用方式，将用户所输入的字符，以相反顺序输出来'
Local $text = ''
$test = StringRegExp($str, '.', 3)
If IsArray($test) Then
For $i = 0 To UBound($test) - 1
$text &= $test[UBound($test) - 1 - $i]
Next
MsgBox(0, $str, $text)
EndIf[\au3]

afan · 发表于 2017-12-30 23:13:39

回复 23# xzf680

题目是利用递归函数，不是采用直接循环的方式，那样太简单，基本没有出题意义……

BTW，循环的话可以设置 step -1

xzf680 · 发表于 2017-12-30 23:21:49

回复 24# afan

谢谢提醒！

虫子樱桃 · 发表于 2018-1-2 11:19:08

回复 1# haijie1223

反向输出？

1361739590 · 发表于 2018-1-2 13:07:49

先看看什么意思。

hnfeng · 发表于 2018-1-2 17:36:22

来学习一下

haijie1223 · 发表于 2018-1-2 21:13:42

回复 26# 虫子樱桃

是的

小白笑苍天 · 发表于 2018-1-2 21:47:53

看看学习一下~

用户名		自动登录	找回密码
密码			加入