求用vb写出反猜三位数密码的代码

推荐回答

Private Sub Command1_Click()    pwd0 = "123" '设置初始的密码    pwd = Text1.Text 'Text1文本框用于输入密码    For i = 1 To Len(pwd0)        If i > Len(pwd) Then Exit For        If Mid(pwd, i, 1) = Mid(pwd0, i, 1) Then            stri = stri & "○" '完全正确的数字        ElseIf InStr(pwd0, Mid(pwd, i, 1)) <> 0 Then            stri = stri & "△" '存在的数字        Else            stri = stri & "※" '不存在的数字        End If    Next i    MsgBox striEnd Sub