vb编程实例

最好写详细一点
谢了

去百度文库，查看完整内容>

内容来自用户:可爱的小滨滨3
用VB编写一个密码解锁界面
我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。
下面是我看了两天书后编写的一个小程序：
功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。
①先建立一个小窗口，如下图：





帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。
②程序的编写
Text1：





初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。
2、text2
3、command1
初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。
4、command2
跳往第二个界面，隐藏第一界面。
5、初始指令
6、全局变量
全局变量本界面可以修改、其它界面可以调用的变量。
②建立第二个窗口
Text的序号从上到下依次顺序排列，command的命令一次从左到右排列
③第二个窗口的程序编写
1、Text1：
Private Sub Text1_LostFocus()
Dim b As Integer
Dim pw_1 As String, pw_2 As String
pw_2 = Form1.m
pw_1 = Text1.Text
If pw_1 > pw_2 Then
b = MsgBox("

Static s As Integer s 是静态变量，过程结束后，数据依然存在，且值保持原来不变 一开始s=0 m(1),走入Function,时，n=1 ,循环一次（加上一个1），s=1,m(1)=1 m(2),走入Function,时，s=1(值保持原来1不变),n=2 ,循环2次（加上2个1），s=3,m(2)=3 m(3),走入Function,时，s=3(值保持原来3不变),,n=3 ,循环3次（加上3个1），s=6,m(3)=6 m(1)+m(2)+m(3)=1+3+6=10

哦，你要多大的程序？？？ '初学vb的经典入门程序如下 '画三个文本框，text属性设为空 '画四command按钮，capition属性分别设为“+”“-”“*”“/” '把以下代码复制到代码窗口，运行，为text1，text2输入数字，任意点击一个按钮看看 Private Sub Command1_Click()'这个叫click事件，用于鼠标单击时响应 Text3.Text = Val(Text1.Text) + Val(Text2.Text) 'command1("+")被点时运行这里 End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) '（-）被点时运行这里 End Sub Private Sub Command3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) 'command3("*")被点时运行这里 End Sub Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) 'command4("/")被点时运行这里 End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息