do case case aa<10.AND.aa>=0 aa="00000"+str(aa,1,0) case aa<100.AND.aa>=10 aa="0000"+str(aa,2,0) case aa<1000.AND.aa>=100 aa="000"+str(aa,3,0) case aa<10000.AND.aa>=1000 aa="00"+str(aa,4,0) case aa<100000.AND.aa>=10000 aa="0"+str(aa,5,0) case aa<1000000.AND.aa>=100000 aa=str(aa,6,0) case aa>=1000001 messagebox("学号超出本系统范围","提示信息") endcase