簡易統一發票對獎程式
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]="增開六獎"
100 cls
hit_list=0
input "請輸入尾數號碼",a$
if len(a$)=0 then 500
hit_y[hit_list+1]=0
for y=1 to count
for x=1 to len(a$)
b$=right$(a$,x)
c$=right$(number$[y],x)
if b$=c$ then hit_x[hit_list+1]=x : hit_y[hit_list+1]=y
next
if hit_y[hit_list+1]>0 then hit_list=hit_list+1 : hit_y[hit_list+1]=0
next
i=1
while i<=hit_list
k=hit_y[i]
print "尾數對中",hit_x[i],"碼",commet$[k],number$[k]
if hit_x[i]=8 and commet$[k]="特別獎" then print "特別獎 1000萬元"
if hit_x[i]=8 and commet$[k]="特獎" then print "特獎 200萬元"
if hit_x[i]=8 and commet$[k]="頭獎" then print "頭獎 20萬元"
if hit_x[i]=7 and commet$[k]="頭獎" then print "二獎 4萬元"
if hit_x[i]=6 and commet$[k]="頭獎" then print "三獎 1萬元"
if hit_x[i]=5 and commet$[k]="頭獎" then print "四獎 4千元"
if hit_x[i]=4 and commet$[k]="頭獎" then print "五獎 1千元"
if hit_x[i]=3 and commet$[k]="頭獎" then print "六獎 2百元"
if hit_x[i]=3 and commet$[k]="增開六獎" then print "增開六獎 2百元"
i=i+1
wend
if hit_list=0 then print "沒對中"
print
input "請按任一鍵繼續,按Q退出",d$
if cap$(d$)<>"Q" then 100
500 end
--
☆ [Origin:椰林風情] [From: host-58-115-151-138.dynamic] [Login: **] [Post: **]
→
03/27 19:04, , 1F
03/27 19:04, 1F
推
03/27 19:18, , 2F
03/27 19:18, 2F
推
03/27 19:58, , 3F
03/27 19:58, 3F
推
03/27 22:00, , 4F
03/27 22:00, 4F
→
03/27 22:21, , 5F
03/27 22:21, 5F
→
03/27 22:23, , 6F
03/27 22:23, 6F
→
03/28 01:13, , 7F
03/28 01:13, 7F
→
03/28 01:14, , 8F
03/28 01:14, 8F
→
03/28 01:14, , 9F
03/28 01:14, 9F
→
03/28 09:39, , 10F
03/28 09:39, 10F
推
03/28 10:47, , 11F
03/28 10:47, 11F