如何把一段PB10.5编写的代码打包成可执行EXE程序的具体步骤,万分感谢!
longilongzcsllongastringgsmcstringxlhstringxlh1stringcpxlhstringxlh2stringxlh3stringz...
long i
long zcsl
long a
string gsmc
string xlh
string xlh1
string cpxlh
string xlh2
string xlh3
string zcm
CALL SUPER::clicked
gsmc = PARENT.sle_2.text
FOR i = 1 TO len(gsmc) //2
xlh1 = xlh1 + string(asc(mid(gsmc,i,1)))
NEXT //2
xlh = PARENT.sle_1.text
cpxlh = xlh
FOR i = 1 TO len(xlh) //7
xlh2 = xlh2 + string(asc(mid(xlh,i,1)))
NEXT //7
zcsl = integer(PARENT.sle_3.text)
FOR i = 1 TO len(xlh2) //11
xlh3 = xlh3 + string(integer(mid(xlh2,i,1)) * zcsl)
NEXT //11
xlh1 = left(xlh1 + "123456789123456789123456789",25)
xlh3 = left(xlh3 + "987654321987654321987654321",25)
xlh = ""
FOR i = 1 TO 25 //17
xlh = xlh + string(integer(mid(xlh1,i,1)) + integer(mid(xlh3,i,1)))
NEXT //17
xlh = left(xlh,25)
zcm = left(xlh,5) + "-" + mid(xlh,6,5) + "-" + mid(xlh,11,5) + "-" +mid(xlh,16,5) + "-" + mid(xlh,21)
PARENT.sle_4.text = zcm
RETURN 展开
long zcsl
long a
string gsmc
string xlh
string xlh1
string cpxlh
string xlh2
string xlh3
string zcm
CALL SUPER::clicked
gsmc = PARENT.sle_2.text
FOR i = 1 TO len(gsmc) //2
xlh1 = xlh1 + string(asc(mid(gsmc,i,1)))
NEXT //2
xlh = PARENT.sle_1.text
cpxlh = xlh
FOR i = 1 TO len(xlh) //7
xlh2 = xlh2 + string(asc(mid(xlh,i,1)))
NEXT //7
zcsl = integer(PARENT.sle_3.text)
FOR i = 1 TO len(xlh2) //11
xlh3 = xlh3 + string(integer(mid(xlh2,i,1)) * zcsl)
NEXT //11
xlh1 = left(xlh1 + "123456789123456789123456789",25)
xlh3 = left(xlh3 + "987654321987654321987654321",25)
xlh = ""
FOR i = 1 TO 25 //17
xlh = xlh + string(integer(mid(xlh1,i,1)) + integer(mid(xlh3,i,1)))
NEXT //17
xlh = left(xlh,25)
zcm = left(xlh,5) + "-" + mid(xlh,6,5) + "-" + mid(xlh,11,5) + "-" +mid(xlh,16,5) + "-" + mid(xlh,21)
PARENT.sle_4.text = zcm
RETURN 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询