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

yjiawfn

提示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

应该这样吧

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

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

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

一会再看下

xrbenbeba

原帖由 yjiawfn 于 2009-3-6 18:45 发表
觉的与我的有什么不同？汗个

一会再看下

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

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

我也无语了

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

131738

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

yjiawfn

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

这回有拣起来了

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