Vb登陆界面设计

1.所用主要控件，以及关键属性：

登陆界面程序代码：

Dim i As Integer, j As Integer

Private Sub Command1_Click()

If Text2 <> "2008512" Then

j = j + 1

i = MsgBox("请重新输入密码？", vbOKCancel + vbQuestion, "密码错误！" & "第" & j & "次")

    If i = 1 Then

    Text2.Text = ""

    Text2.SetFocus

If j > 3 Then

        MsgBox ("密码错误3次，强制退出！")

        End

        Else

        Text2.Text = ""

        Text2.SetFocus

        End If

    End If

    If i = 2 Then

    End

    End If

Else

    Load Form2

    Form2.Show

End If

End Sub

Private Sub Text1_LostFocus()

If IsNumeric(Text1) = False Then

MsgBox ("请输入数字！")

End If

End Sub

程序实现的功能：

用户名必须输入数字，不然会出现提示窗口：请输入数字。

密码如果输入正确则进入form2登录成功界面，输入错误会出现提示窗口：密码错误！第n次，请重新输入，当三次输入错误时，提示密码输入超过3次，程序自动结束。

3．上机遇到的问题

开始对于变量的声明不是很清楚，不懂全局变量和局部变量的作用范围，后来上百度搜索并且和同学讨论使得程序得以顺利编完。

循环的嵌套问题还是不是很清楚，下课还要在研究一下，多参照些课外资料，多上网搜搜。

Vb的学习使得自己对编程的恐惧心理大大减小，上课老师的演示激发了我浓厚的兴趣，同时可视化的面向对象的编程使得很多功能容易实现，这也在很大程度上增强自己的自信心。