Попытка найти ascii значение последней буквы
Do
password = InputBox("Enter a password")
password1 = password.Substring(0, 1)
password2 = Asc(password1)
password4 = password.Substring(password.Length, 1)
password3 = Asc(password4)
If password2 >= 65 And password2 <= 90 Then
false1 = True
End If
If password3 >= 35 And password3 <= 37 Then
false2 = True
End If
Loop Until false1 = True And false2 = True
Что я уже пробовал:
Кажется, он перегружен? пробовал установить passlength в переменную, но не работает
0x01AA
Попробуй password4 = password.Substring(password.Length - 1, 1) и еще лучше проверить, был ли введен пароль.
CHill60
Это стоит опубликовать в качестве решения
0x01AA
Но я потеряюсь, если появятся еще вопросы (я думаю, что это visual basic?). Лучше тебе ответить на этот вопрос.
phil.o
Вы действительно должны опубликовать его как решение, так как оно совершенно верно.
0x01AA
Спасибо вам обоим :)