Visual Basic Check Digit Generator

Question

Меня попросили сделать программу на Visual Basic, которая берет 8-значное число из текстового поля и генерирует контрольную цифру для формирования 9-значного контрольного номера.

Программа должна взять первое число в текстовом поле и умножить его на 10, второе на 9, третье на 8 и так далее, пока вы не умножаете цифру eigth на 2. Из этого вы добавляете все ответы вместе, разделите их на девять и получите ответ с остатком. Из остатка, я думаю, вы вычтите его с 9, а затем получите цифру.

Может ли кто-нибудь дать мне указания относительно того, как изолировать цифры (я думаю, что задействована средняя точка), умножить их на различные числа и вычислить остаток.

Answer 1

Вы можете использовать Len и левую функцию Visual Basic в цикле (Не уверен, что о версии 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 

Надеется, что это помогает