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: **]
→
03/27 11:39, , 1F
03/27 11:39, 1F
→
03/27 11:39, , 2F
03/27 11:39, 2F
→
03/27 11:40, , 3F
03/27 11:40, 3F
→
03/27 11:41, , 4F
03/27 11:41, 4F
→
03/27 11:41, , 5F
03/27 11:41, 5F
→
03/27 12:01, , 6F
03/27 12:01, 6F
→
03/27 14:53, , 7F
03/27 14:53, 7F
推
03/27 16:46, , 8F
03/27 16:46, 8F
推
03/28 10:09, , 9F
03/28 10:09, 9F
→
03/28 10:09, , 10F
03/28 10:09, 10F
推
04/02 01:09, , 11F
04/02 01:09, 11F
→
04/02 01:10, , 12F
04/02 01:10, 12F