51问答网 > VBS的小程序是银行卡效验位算法的。想让他循环起来能重复使用但是成了死循环。求帮助

VBS的小程序是银行卡效验位算法的。想让他循环起来能重复使用但是成了死循环。求帮助

2025-01-07 03:13:48

推荐回答（1个）

回答1：

dim nbr(20)
dim i,s,t
DO until A=7
cd_nbr=inputbox ("输入除最后一位后的卡号","输入卡号","")
for i=len(cd_nbr) to 1 step -1
nbr(i)=mid(cd_nbr,i,1)
next
for i=len(cd_nbr) to 1 step -2
nbr(i)=2*nbr(i)
if len(nbr(i))>=2 then nbr(i)=1+right(nbr(i),1)
next
for i=1 to len(cd_nbr)
s=s+nbr(i)
next
t=10-right(s,1)
if t=10 then t=0
A=msgbox ("完整卡号应为: "+cstr(cd_nbr)+cstr(t) & chr(10)& "是否重新进行银行卡效验？" & chr(10)& "点【是】继续，点【否】退出！",vbYesNo,now)
LOOP