找回密码
 加入
搜索
楼主: 水木子

[AU3基础] 数字游戏,猜你所选择的是哪个数字。

[复制链接]
发表于 2012-5-14 10:43:33 | 显示全部楼层
来玩玩看看
发表于 2012-5-14 10:49:28 | 显示全部楼层
回复 1# 水木子

水木,这个问题我看了三天,始终有个问题,到底是要求问的问题,还是要求数,如果是第一种3次好像的不出结果,如果是第二种那就要看问的问题了
发表于 2012-5-14 13:36:32 | 显示全部楼层
学习一下·········
发表于 2012-5-14 13:59:22 | 显示全部楼层
看看,顺便学习以下。
发表于 2012-5-14 17:33:58 | 显示全部楼层
看看水木子高手
发表于 2012-5-14 17:39:57 | 显示全部楼层
回复 18# happytc
赞下,要点所在
发表于 2012-5-14 20:31:40 | 显示全部楼层
怎么什么,看看
发表于 2012-5-15 09:54:50 | 显示全部楼层
本帖最后由 netegg 于 2012-5-15 18:24 编辑

[au3]#include <Math.au3>
#include <array.au3>
Dim $s[4]
$s[0] = 3
main()
Func main()
    Local  $input, $ret = '',   $i = 1
    MsgBox(0,0,'请记住一个数' & @CRLF & '10,11,12,13,14,15,16' & @CRLF & '17,18,19,20,21,22,23'& @CRLF & '24,25,26,27,28,29,30')
    Do
        $aA1 = _RandomUnique(21, 10, 30, 1)
        $s[1] = _ArrayToString($aA1, ',', 1, 7)
        $s[2] = _ArrayToString($aA1, ',', 8, 14)
        $s[3] = _ArrayToString($aA1, ',', 15, 21)
        $input = InputBox('输入选定数所在行', $s[1] & @CRLF & $s[2] & @CRLF & $s[3], '')
        If @error Then Exit
        $ret &= $s[$input] & ','
        $i += 1
    Until $i = 4
    $aRet = StringSplit($ret, ',', 2)
    For $i In $aRet
        If UBound(_ArrayFindAll($aRet, $i)) = 3 Then
            $msg = MsgBox(4, 0, $i & @CRLF & 'exit?')
            If $msg = 6 Then Exit
            $s[0] = 0
            $s[0] = 3
            main()
        EndIf
    Next
EndFunc   ;==>main
[/au3]
发表于 2012-5-15 17:52:13 | 显示全部楼层
回复看下。。
发表于 2012-5-15 17:54:26 | 显示全部楼层
是以前玩的魔术扑克
发表于 2012-5-15 17:55:45 | 显示全部楼层
提问的列表内容能够完全随机排列,无迹可寻。。。提供选择的数量可扩展哦,当然得到答案的次数会相应增加。
游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1金钱 +90 收起 理由
水木子 + 90 学习了

查看全部评分

发表于 2012-5-15 17:57:09 | 显示全部楼层
来学习思路
发表于 2012-5-15 18:21:48 | 显示全部楼层
今天是个平淡的日子!
发表于 2012-5-15 19:15:13 | 显示全部楼层
再来一个
游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1金钱 +80 收起 理由
水木子 + 80

查看全部评分

发表于 2012-5-15 19:25:04 | 显示全部楼层
楼上的代码,每次提供选择的选项是6,所以36个姓氏的,6的2次方是36,所以只用2次就可以选出结果来了,216个姓氏的,6的3次方,所以需要3次才能得到答案。
以此类推,7776个中间挑一个,每次提供6个选项,只需要5次就能找出来。。。因为7776等于6的5次方
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 15:33 , Processed in 0.075860 second(s), 15 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表