vb查找密碼代碼

Private Sub Command1_Click()

Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u As String

a = Mid(Text1.Text, 1, 1)

b = Mid(Text1.Text, 2, 1)

c = Mid(Text1.Text, 3, 1)

d = Mid(Text1.Text, 4, 1)

e = Mid(Text1.Text, 5, 1)

f = Mid(Text1.Text, 6, 1)

g = Mid(Text1.Text, 7, 1)

h = Mid(Text1.Text, 8, 1)

i = Mid(Text1.Text, 9, 1)

j = Mid(Text1.Text, 10, 1)

k = Mid(Text1.Text, 11, 1)

l = Mid(Text1.Text, 12, 1)

m = Mid(Text1.Text, 13, 1)

n = Mid(Text1.Text, 14, 1)

o = Mid(Text1.Text, 15, 1)

p = Mid(Text1.Text, 16, 1)

q = Mid(Text1.Text, 17, 1)

r = Mid(Text1.Text, 18, 1)

s = Mid(Text1.Text, 19, 1)

t = Mid(Text1.Text, 20, 1)

u = Mid(Text1.Text, 21, 1)

Text2.Text = a b c d e f g h i j k l m n o p q r s t u

End Sub

Private Sub Command2_Click()

If Text2.Text = Text1.Text Then

Text3.Text ="輸入正確,密碼是:" Text2.Text

Else: Text3.Text ="輸入錯誤,請重新輸入密碼!"

End If

End Sub