Visual Basic校验位生成器

Question

我被要求在Visual Basic上创建一个程序，该程序从文本框中取一个8位数字，并生成一个校验位以形成一个9位数的校验码。

程序应该取文本框中的第一个数字，然后乘以10，第二个乘以9，将第三个乘以8，依此类推，直到你将第八个数字乘以2.从中你添加全部将答案一起划分为9，然后用剩余部分得到答案。从其余部分，我认为你从9减去它然后你得到数字。

是否有人能够给我任何关于如何隔离数字的指针（我认为涉及的中点），将它们乘以各种数字并计算余数。

Answer 1

你可以在循环中使用visual basic的len和left函数 （不确定Visual Basic的版本）

MyString=Text1.text
StringLen = Len(MyString)
total=0

for a=1 to StringLen 
result=Left(MyString, StringLen-1)
if a=1
total=resultx10
elseif a=2
total=total+resultx9
..
..
..
endif
next

希望这有帮助