在VB中怎么制作一个银行密码校对的小程序

首先启动vb6.0，执行文件祥好-新建命令，d出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。

在主界面中，按住鼠标左键按住窗体周围的任意一个小竖磨正方形进行拖拽，调节窗体的大小，直至自己满意为止。

Dim l1, l2 As Long

Private Sub Form_Load()

Timer1.Interval = 3000

Timer2.Interval = 8000

Timer3.Interval = 8000

Timer1.Enabled = True

Label1.Caption = "现在有0个顾客正在等候，新到的顾客请到这来等候！"

Label2.Caption = "现在有0个顾客正在等候，新到的顾客请到这来等候！"

End Sub

Private Sub Timer1_Timer()

guke = guke + 1

If l1 >l2 Then

l2 = l2 + 1

Timer3.Enabled = True

Label1.Caption = "现在有" &l1 &"个顾客正在等候，新到的顾客请到这来等候！"

Label2.Caption = "现在有" &l2 &"个顾客正在等候"

Else

l1 = l1 + 1

Timer2.Enabled = True

Label2.Caption = "现在有" &l2 &"个顾客正在等候，新到的顾客请到这来等候！"

Label1.Caption = "现在有" &l1 &"个顾客租蚂正在等候"

End If

End Sub

Private Sub Timer2_Timer()

l1 = l1 - 1

Label1.Caption = "现在有" &l1 &"个顾客正在等候，新到的顾客请到这弊配埋来等候！"

Label2.Caption = "现卖枝在有" &l2 &"个顾客正在等候"

End Sub

Private Sub Timer3_Timer()

l2 = l2 - 1

Label2.Caption = "现在有" &l2 &"个顾客正在等候，新到的顾客请到这来等候！"

Label1.Caption = "现在有" &l1 &"个顾客正在等候"

End Sub

希望帮到你