VB题--设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示
设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示“密码错误！请重新输入密码。”。若连续三次输入的密码都不正确，则在屏幕上显示一个消息框，并在消息框上显示提示信息“对不起，您不能使用本系统！”，然后结束本程序的执行。
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起，您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误，请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
用VB编写程序(设计密码验证登录窗体,密码正确显示登录成功,否则若三...
先设计好界面，（如：用标签控件，2个文本框，）在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框的属性名称中输入username.在设置字体 想要输入错误密码三次退出程序方法如下；在密码的代码框中输入：unload.me chick=3.End sub ...
用vb制作一个输入用户名和密码的用户窗体,单机确定时显示"张三,你好"的...
'窗体上添加2个label，2个textbox，1个commandbutton控件Private Sub Command1_Click()MsgBox "张三，你好"End SubPrivate Sub Form_Load()Label1.Caption = "用户名"Label2.Caption = "密 码"Command1.Caption = "确定"Text1.Text = ""Text2.Text = ""End Sub ...
怎么用VB设计一个登陆程序,能实现“用户名和密码从文件中读取”,简单...
（1）设计登录界面，输入正确的用户名和密码后才可进入系统。用户名和密码从文件中读取。允许3次错误。(2) 正确登录后，在LED显示窗口的标题栏上显示，“欢迎你！用户名”，不同的用户显示内容不同。(3)用户退出系统时，显示一个新的窗口，上面显示该用户退出时间，并提示“欢迎下次使用！”...
vb中设置一段关于输入一段密码,按回车显示内容的代码,回车怎么表示?
'''窗体需要一个textbox Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then MsgBox Text1.Text '文本框是没value这个属性的,回车的ascii码为13 '这里也可以用If KeyAscii = vbKeyReturn Then 来判断 End Sub
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。怎样...
首先添加一个窗体，在这个窗体上加一个文本框的控件，在这个文本框的单击事件中写如下的程序：Dim num, sum, it(1), n, t, hPrivate Sub Form_Click()File1.Refreshsum = 0List1.ClearFor i = 0 To File1.ListCount - 1t = Split(File1.List(i), ".")(UBound(Split(File1.List(i...
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。
假设你的图片路径为d:\\fafa.gif,代码如下：Private Sub Form_Click()Picture1.Picture = IIf(Picture1.Picture = LoadPicture(""), LoadPicture("d:\\fafa.gif"), LoadPicture(""))End Sub 这样就可以单击切换图片了，对了，你要加一个图片框控件，再写入代码 ...
做一个登录页面,如果输入正确的用户名和密码,则进入欢迎页面,否则错误...
密码: <asp:TextBox ID="TextBox2" runat="server"><\/asp:TextBox> <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="密码" Width="116px" \/> 代码窗体的代码如下:using System;using System.Data;using System.Configuration;using System.Web;using System.Web.Security...
创建一个名为"检验密码"的窗体,窗体中包含一个名为"密码"的文本框,一...
晕，你这连语言环境都没说，怎么回答？是vba，vb，还是javascript？看样子是vba。是要做窗体表单的。
设计一个程序当单击窗体时,在窗体上显示任意一幅图片
按下按钮2，则在图形框中随机显示三角锥体。按下按钮3，则退出程序。此程序在Windows95系统上VB5.0环境下调试通过。′程序准备:PrivateSubForm－Load()Command1.Caption=〃随机文字〃Command2.Caption=〃立体图形〃Command3.Caption=〃退出〃Form1.ScaleMode=1 Picture1.ScaleMode=1 EndSub ′随机文字动画...
用VB编程实现用户登录验证。代码如下,但执行时总是出现错误,比如...
< 2 Then '若口令输入错,给出提示信息 MsgBox "口令错误,请重新输入"Text2.Text = ""Text2.SetFocus else MsgBox "非法用户不能使用本系统"End end if else MDIForm1.Show Unload Me Exit Sub end if count = count + 1 '输入口令次数加1 data1.recordset.filter = ""End Sub ...
