Question

哪位大神帮你翻译下c++

WJ_leng1=StrLen(IntToStr(WJ_m1,10));
WJ_leng2=StrLen(IntToStr(WJ_m2,10));
WJ_leng3=StrLen(IntToStr(WJ_m3,10));

IF WJ_leng1==4&&WJ_leng2==4&&WJ_leng3==4 THEN
WJ_str1=StrRight(IntToStr(WJ_m2,10),1);
IF WJ_str1=="0" THEN
W_M1=StrToInt(StrLeft(IntToStr(WJ_m1,10),2)+StrRight(IntToStr(WJ_m2,10),2));
ELSE
W_M1=StrToInt(StrMid(IntToStr(WJ_m2,10),3,1)+StrMid(IntToStr(WJ_m2,10),2,1)+StrMid(IntToStr(WJ_m1,10),1,1)+StrMid(IntToStr(WJ_m1,10),0,1));
ENDIF

WJ_str2=StrRight(IntToStr(WJ_m3,10),1);
IF WJ_str2=="0" THEN
W_M2=StrToInt(StrLeft(IntToStr(WJ_m2,10),2)+StrRight(IntToStr(WJ_m3,10),2));
ELSE
W_M2=StrToInt(StrMid(IntToStr(WJ_m3,10),3,1)+StrMid(IntToStr(WJ_m3,10),2,1)+StrMid(IntToStr(WJ_m2,10),1,1)+StrMid(IntToStr(WJ_m2,10),0,1));
ENDIF

WJ_str3=StrRight(IntToStr(WJ_m1,10),1);
IF WJ_str3=="0" THEN
W_M3=StrToInt(StrLeft(IntToStr(WJ_m3,10),2)+StrRight(IntToStr(WJ_m1,10),2));
ELSE
W_M3=StrToInt(StrMid(IntToStr(WJ_m1,10),3,1)+StrMid(IntToStr(WJ_m1,10),2,1)+StrMid(IntToStr(WJ_m3,10),1,1)+StrMid(IntToStr(WJ_m3,10),0,1));
ENDIF
W_zhuce=1;
ELSE
MsgBox("每组授权码必须4位");
ENDIF

Answer 1

WJ_leng1=StrLen(IntToStr(WJ_m1,10));
WJ_leng1 = StrLen(IntToStr(WJ_m1 10));
WJ_leng2=StrLen(IntToStr(WJ_m2,10));
WJ_leng2 = StrLen(IntToStr(WJ_m2 10));
WJ_leng3=StrLen(IntToStr(WJ_m3,10));
WJ_leng3 = StrLen(IntToStr(WJ_m3 10));

IF WJ_leng1==4&&WJ_leng2==4&&WJ_leng3==4 THEN
如果WJ_leng1 = = 4 &&wj_leng2 = = 4 &&wj_leng3 = = 4
WJ_str1=StrRight(IntToStr(WJ_m2,10),1);
WJ_str1 = StrRight(IntToStr(WJ_m2 10),1);
IF WJ_str1=="0" THEN
如果WJ_str1 = = " 0 "
W_M1=StrToInt(StrLeft(IntToStr(WJ_m1,10),2)+StrRight(IntToStr(WJ_m2,10),2));
W_M1 = StrToInt(StrLeft(IntToStr(WJ_m1 10),2)+ StrRight(IntToStr(WJ_m2 10),2));
ELSE
其他的
W_M1=StrToInt(StrMid(IntToStr(WJ_m2,10),3,1)+StrMid(IntToStr(WJ_m2,10),2,1)+StrMid(IntToStr(WJ_m1,10),1,1)+StrMid(IntToStr(WJ_m1,10),0,1));
W_M1 = StrToInt(StrMid(IntToStr(WJ_m2 10),3,1)+ StrMid(IntToStr(WJ_m2 10)、2、1)+ StrMid(IntToStr(WJ_m1 10),1,1)+ StrMid(IntToStr(WJ_m1 10),0,1));
ENDIF
ENDIF

WJ_str2=StrRight(IntToStr(WJ_m3,10),1);
WJ_str2 = StrRight(IntToStr(WJ_m3 10),1);
IF WJ_str2=="0" THEN
如果WJ_str2 = = " 0 "
W_M2=StrToInt(StrLeft(IntToStr(WJ_m2,10),2)+StrRight(IntToStr(WJ_m3,10),2));
W_M2 = StrToInt(StrLeft(IntToStr(WJ_m2 10),2)+ StrRight(IntToStr(WJ_m3 10),2));
ELSE
其他的
W_M2=StrToInt(StrMid(IntToStr(WJ_m3,10),3,1)+StrMid(IntToStr(WJ_m3,10),2,1)+StrMid(IntToStr(WJ_m2,10),1,1)+StrMid(IntToStr(WJ_m2,10),0,1));
W_M2 = StrToInt(StrMid(IntToStr(WJ_m3 10),3,1)+ StrMid(IntToStr(WJ_m3 10)、2、1)+ StrMid(IntToStr(WJ_m2 10),1,1)+ StrMid(IntToStr(WJ_m2 10),0,1));
ENDIF
ENDIF

WJ_str3=StrRight(IntToStr(WJ_m1,10),1);
WJ_str3 = StrRight(IntToStr(WJ_m1 10),1);
IF WJ_str3=="0" THEN
如果WJ_str3 = = " 0 "
W_M3=StrToInt(StrLeft(IntToStr(WJ_m3,10),2)+StrRight(IntToStr(WJ_m1,10),2));
W_M3 = StrToInt(StrLeft(IntToStr(WJ_m3 10),2)+ StrRight(IntToStr(WJ_m1 10),2));
ELSE
其他的
W_M3=StrToInt(StrMid(IntToStr(WJ_m1,10),3,1)+StrMid(IntToStr(WJ_m1,10),2,1)+StrMid(IntToStr(WJ_m3,10),1,1)+StrMid(IntToStr(WJ_m3,10),0,1));
W_M3 = StrToInt(StrMid(IntToStr(WJ_m1 10),3,1)+ StrMid(IntToStr(WJ_m1 10)、2、1)+ StrMid(IntToStr(WJ_m3 10),1,1)+ StrMid(IntToStr(WJ_m3 10),0,1));
ENDIF
ENDIF
W_zhuce=1;
W_zhuce = 1;
ELSE
其他的
MsgBox("每组授权码必须4位");
对话框(“每组授权码必须4位”);
ENDIF
ENDIF