<% i=1 score=request("score") for i=1to 10 randomize num=int((rnd*5000)+1) ans=int((rnd*num)+1) next %> <% if request("change")="Change" then check=int(request("one"))*1 check=check+int(request("five"))*5 check=check+int(request("ten"))*10 check=check+int(request("hundred")*100) check=check+int(request("fivehundred")*500) check=check+int(request("thousand")*1000) check=check+int(request("fifty")*50) check=check+int(request("twenty")*20) if check=int(request("ans")) then i=int(rnd*5)+1 select case i case 1 msg="โอ้โหเก่งจังเลยอย่านี้ต้องสอบคณิตศาสตร์ได้คะแนนดีแน่ๆ" case 2 msg="ถูกแล้ว ได้ไอศครีมกี่แท่งแล้วนะเนี่ย" case 3 msg="เก่งจังช่วยคุณแม่ได้อย่างนี้ท่านต้องดีใจแน่" case 4 msg="สงสัยเกมนี้จะง่ายไปแล้วมั้ง ลองข้อนี้ดูซิว่าทำได้หรือเปล่า" case 5 msg="ถูกต้องแล้วได้ไอศครีมเพิ่ม 1 แท่งแล้วเห็นมั้ย" end select score=score+1 else msg="ต้องลองใหม่นะคิดดูดีๆอีกที" end if end if %> Money Money Money

วันนี้คุณแม่เป้งบอกให้เป้งหยิบเงินในกระเป๋าให้ <%=ans%> บาท คุณแม่จะเอาไปทอนเงินให้กับลูกค้าที่มาซื้อของ แต่เป้งเห็นเงินในกระเป๋าคุณแม่แล้วไม่รู้ว่าต้องหยิบเหรียญอะไร หรือแบงค์ อะไรจำนวนเท่าไหร่เพื่อนๆช่วย เป้งคิดหน่อยนะคะ


1 บาท

5 บาท

10 บาท

20 บาท


50 บาท

100 บาท

500 บาท

1000 บาท

0 <%else response.write score end if %> ">

<% if score=0 then %> <%else%> <%end if%>
น้องๆได้คะแนน0 <%for i= 1 to score%> <%next %>

<%=msg%>