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