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