vb密码编程

来源：百度知道 编辑：UC知道 时间：2024/06/02 12:50:25
我想编个小程序,就是在界面上有标明数字1-10的十个按键,要按照一定顺序输入数字,如果与欲设的数字顺序一致,则进行下一条指令,请问要怎么做?悬赏50分
就是普通的密码呀,只不过一般的是由用户从键盘上直接输入,我现在要通过点击界面上的button来实现输入这一过程

'代码如下。不知是不是你要的结果 如果不是的话.希望你能说清楚一点..有问题大家相互讨论学习吧.

'把代码复制进新建窗体就可以了
'需要控件:command1(0)

Dim StrNum As String '预设数字

Private Sub Command1_Click(Index As Integer)
Dim StrCh As String
StrCh = Command1(Index).Caption
Text1 = Text1 & StrCh

If Mid(StrNum, Len(Text1.Text), 1) <> StrCh Then MsgBox "口令错误": Text1.Text = "": Exit Sub
If Text1.Text = StrNum Then MsgBox "口令已完全输入正确!"

End Sub

Private Sub Form_Load()
Command1(0).Caption = 0
Text1 = ""
For i = 1 To 9
Load Command1(i)
Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width + 50
Command1(i).Top = Command1(0).Top
Command1(i).Caption = i
Command1(i).Visible = True
Next i

StrNum = "20080808"
End Sub

'朋友,运行成功了吗? 如果成功了,就结答案吧. 偶希望得到你的五十分,哈哈
'哭...看了楼下朋友的代码.然后再看楼主的要求...结果,自