抽 奖

就是好抽奖vbrivateSubCommand1_Click()OnErrorGoTomdDimcode,tmp,tmp2,tmp3AsStringfilename=App.Path&"\data.txt"code=Text1.Texttmp=Left(code,2)tmp=tmp+"0000"tmp2=""OpenfilenameForInputAs#1WhileNot(EOF(1))LineInput#1,tmp