101年1、2月統一發票兌獎

rem http://www.facebook.com/pages/Simple-Basic-Programming-Algorithm/210860158955706
rem 101年1、2月統一發票中獎號碼
count=1
number$[count]="59609701"
commet$[count]="特別獎"
count=count+1
number$[count]="07063353"
commet$[count]="特獎"
count=count+1
number$[count]="33640895"
commet$[count]="頭獎"
count=count+1
number$[count]="67996436"
commet$[count]="頭獎"
count=count+1
number$[count]="35573745"
commet$[count]="頭獎"
count=count+1
number$[count]="144"
commet$[count]="增開六獎"
count=count+1
number$[count]="598"
commet$[count]="增開六獎"
count=count+1

100 cls
input "請輸入尾數號碼",a$
if len(a$)=0 then 500
hit_y=0
for x=1 to len(a$)
  b$=right$(a$,x)
  for y=1 to count
    c$=right$(number$[y],x)
    if b$=c$ then hit_x=x : hit_y=y
  next
next
if hit_y>0 then print "尾數對中",hit_x,"碼",commet$[hit_y],number$[hit_y] else print "沒對中"
if hit_y>0 and hit_x=8 and commet$[hit_y]="特別獎" then print "特別獎 1000萬元"
if hit_y>0 and hit_x=8 and commet$[hit_y]="特獎" then print "特獎 200萬元"
if hit_y>0 and hit_x=8 and commet$[hit_y]="頭獎" then print "頭獎 20萬元"
if hit_y>0 and hit_x=7 and commet$[hit_y]="頭獎" then print "二獎 4萬元"
if hit_y>0 and hit_x=6 and commet$[hit_y]="頭獎" then print "三獎 1萬元"
if hit_y>0 and hit_x=5 and commet$[hit_y]="頭獎" then print "四獎 4千元"
if hit_y>0 and hit_x=4 and commet$[hit_y]="頭獎" then print "五獎 1千元"
if hit_y>0 and hit_x=3 and commet$[hit_y]="頭獎" then print "六獎 2百元"
if hit_y>0 and hit_x=3 and commet$[hit_y]="增開六獎" then print "增開六獎 2百元"
print
input "請按任一鍵繼續,按Q退出",d$
if cap$(d$)<>"Q" then 100
500 end
--
☆ [Origin:椰林風情] [From: host-58-115-151-138.dynamic] [Login: **] [Post: **]
→ MOONRAKER:都寫這種老掉牙BASIC 為何不用data/read
→ MOONRAKER:就算合成個大字串也好 看得我覽趴攏火
→ MOONRAKER:底下的if連發也是不知所云，完全失去前
→ MOONRAKER:面建陣列的意義。這是不是30年前的新手
→ MOONRAKER:經過時光隧道發過來的？
→ ShadowMask:囧
→ MOONRAKER:好吧30年前每行都要行號，那20年吧…
推 yauhh:我的媽，沒中獎的還要一筆筆輸入...
推 yoco315:這……我十七年前 T_T 好懷念...
→ yoco315:眼淚快掉下來惹 /_\
推 s3748679:忽然八卦起來.. 想知道十七年前是..
→ s3748679:有什麼事呀@@...