论坛 › 已解决问题区 › 无语了，自己按照书上写的代码？大家看看哪出错了？

yjiawfn 发表于 2009-3-6 18:05:19

无语了，自己按照书上写的代码？大家看看哪出错了？

提示if声明，必须有then
但我有写啊

131738 的代码，确实可以运行

哦，明白了，原来是连接符号！汗！感谢131738和xrbenbeba

Dim $ten,$tow,$san
Dim $s
$s=""
For $ten=1 to 20
For        $tow=1 to 20
For        $san=1 To 12
if $ten+$tow+$san=20
        And        $ten*10+$tow*20+$san*50=600 Then
        $s=$s&"10元："&$ten&"张"
             &"20元："&$tow&"张"
               &"50元："&$san&"张"&@CRLF
       EndIf
Next
Next
Next
MsgBox(0,"提示",$s)   

成功的
Dim $ten,$tow,$san
Dim $s
$s=""
For $ten=1 to 20
For    $tow=1 to 20
For    $san=1 To 12
if $ten+$tow+$san=20 _
    And    $ten*10+$tow*20+$san*50=600 Then $s=$s&"10元："& $ten &"张"&"20元："&$tow&"张"&"50元："&$san&"张"&@CRLF
Next
Next
Next
MsgBox(0,"提示",$s)   

[ 本帖最后由 yjiawfn 于 2009-3-6 20:10 编辑 ]

cmirt 发表于 2009-3-6 18:17:07

应该这样吧

Dim $ten,$tow,$san
Dim $s
$s=""
For $ten=1 to 20
For    $tow=1 to 20
For    $san=1 To 12
if $ten+$tow+$san=20 And $ten*10+$tow*20+$san*50=600 Then
    $s=$s&"10元："&$ten&"张"

131738 发表于 2009-3-6 18:30:36

Dim $ten,$tow,$san
Dim $s
$s=""
For $ten=1 to 20
For        $tow=1 to 20
For        $san=1 To 12
if $ten+$tow+$san=20 _
        And $ten*10+$tow*20+$san*50=600 Then
        $s=$s&"10元：" & $ten & "张" & "20元："& _
        $tow & "张"& "50元：" &$san& "张" & @CRLF
EndIf
Next
Next
Next
MsgBox(0,"提示",$s)



[ 本帖最后由 131738 于 2009-3-6 19:02 编辑 ]

yjiawfn 发表于 2009-3-6 18:45:52

觉的与我的有什么不同？汗个

一会再看下

xrbenbeba 发表于 2009-3-6 19:01:35

原帖由 yjiawfn 于 2009-3-6 18:45 发表 http://www.autoitx.com/images/common/back.gif
觉的与我的有什么不同？汗个

一会再看下

自己看明白了 第7行最后一个 " _"

你没连接就想2行执行 还在那喊 郁闷

我也无语了

[ 本帖最后由 xrbenbeba 于 2009-3-6 19:03 编辑 ]

131738 发表于 2009-3-6 19:15:51

帮助/语言相关/脚本注释

yjiawfn 发表于 2009-3-6 19:25:42

有的真的看着头大，原来学习过一段时间，就放弃了

这回有拣起来了

先从自由天空的文章开始了...感觉还不错，希望继续努力

查看完整版本: 无语了，自己按照书上写的代码？大家看看哪出错了？