vb密码查找程序代码

方法1
判断，查找，输出

方法2
判断，查找，复制，粘贴，

方法1
查找，输出

查找代码

正确例题
Private Sub Command3_Click()

Dim a As String

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

Text3.Text = a

End Sub

查找代码
正确例题
Private Sub Command3_Click()

Dim a, b As String

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

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

Text3.Text = a & b

End Sub

正确例题

Private Sub Command3_Click()

Dim a, b , c, d 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)

Text3.Text = a & b & c & d

End Sub

正确例题

Private Sub Command1_Click()

Text3.SetFocus '到得焦点
Text3.SelStart = 0 '设置选定的起始位置

Text3.SelLength = Len(Text1.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText Text3.SelText '复制选中的文本到剪贴板上

End Sub

Private Sub Command2_Click()
Text2.SelText = Clipboard.GetText()
End Sub

Private Sub Command3_Click()

Dim a, b, c, d, e, f, g 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)

Text3.Text = a & b & c & d & e & f & g

End Sub

Private Sub Command4_Click()
If Text2.Text = Text1.Text Then
Text3.Text = “输入正确,密码是:” & Text2.Text
Else: Text3.Text = “输入错误,请重新输入密码!”
End If
End Sub

正确例题
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