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: **]