论坛 › 『 谈天说地 』 › 来个题目玩玩

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, '', 3)
If IsArray($test) Then
        For $i = 0 To UBound($test) - 1
                $str &= $test
        Next
    ConsoleWrite($str & @LF)       
EndIf

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

回复 3# afan

Local $str = '利用递归函数调用方式，将用户所输入的字符，以相反顺序输出来'
Local $text = ''
$test = StringRegExp($str, '.', 3)
If IsArray($test) Then
        For $i = 0 To UBound($test) - 1
                $text &= $test
        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

看看学习一下~

查看完整版本: 来个题目玩玩