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