氢化双酚a型环氧树脂:vb高手谁能帮我解释一下这个东西 谢谢了

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 05:35:02
Option Explicit
Const Password As String = "111"
Private Sub Form_Load()
Const MAX_LOGON_ATTEMPTS As Integer = 3
Static sintLogonAttempts As Integer
frmlogon.Show vbModal
Do Until frmlogon.Txtpassword.Text = Password
sintLogonAttempts = sintLogonAttempts + 1
If sintLogonAttempts < MAX_LOGON_ATTEMPTS Then
MsgBox prompt:="密码无效", _
buttons:=vbOKOnly + vbInformation
frmlogon.Txtpassword.Text = ""
frmlogon.Show vbModal
Else
MsgBox prompt:="试图登录次数太多，再见", _
buttons:=vbOKOnly + vbInformation
End
End If
Loop
End Sub

这段代码是学delphi和vb两个语言写出的来登录代码，好里的附值和比较都是用等于号（=），而delphi里的附值和比较是不同的。
解释一下：
首先定义一个字符串常量，值为111(密码)
还定义了一个整型常，值为3(登录次数)
把窗体显示出来，模式窗体。(这里会出错吧。)因为模式窗体运行是在这个窗体退出后才会运行显示窗体之后的语句。如果是本窗体的话另当别论。
接下去判断密码是否正确，还要判断是否登录次已经超出用户空义的次数。以下就是循环判断。

一个登陆窗体

这段代码能运行嘛?
估计不能运行,代码有众多错误!
根本不能运行,特别是msgbox函数
MsgBox prompt:="试图登录次数太多，再见", _
buttons:=vbOKOnly + vbInformation
咋能这样使用?
应该这样
msgbox "试图登录次数太多",vbokonly

vb高手谁能帮我解释一下这个东西 谢谢了 谁能帮我解释一下这个vb语句? 高手帮我看看这段VB代码？解释一下 ～谢谢 了 ～在线等 谁能帮我解释一下这个 高手帮我解释一下~```谢谢！ 高手帮我解释一下谢谢~~~~~ 帮我解释一下 谢谢高手 高手帮我解释一下这个程序 谁能帮我解释一下.谢谢 谁能帮我解释一下,谢谢