江西煤矿安全培训中心:VB问题 Sub Main() 出错了
来源:百度文库 编辑:高校问答 时间:2024/05/13 09:14:53
请问这是哪出错了呀
Option Explicit
Public mw As String
Sub Main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb")
Set re = zb.OpenRecordset("xb")
If re.RecordCount <> 0 Then 'XB中有记录,说明不是首次使用
If Dir(App.Path + "/OK.PAS") <> "ok.pas" Then '保存密码的文件不在
MsgBox "保存密码的文件你藏哪去了?它叫OK.PAS,在同一目录里.", 32, "出错"
End
Else
mw = ""
Open App.Path + "/ok.pas" For Input As #1
Input #1, mw
Close #1
For i = 1 To Len(mw)
pas(i - 1) = Mid(mw, i, 1) '将密文分成单个字符
pas(i - 1) = Chr(Asc(pas(i - 1)) - 50 - i * 2) '单个字符解密
Next i
mw = ""
For i = 1 To 8
mw = mw + pas(i - 1) '合并得到明文
Next i
i = 0
Do While True
frmpass.Show 1 '确认密码对话框
If frmpass.grzbpass <> mw Then '密码不对
i = i + 1
If i = 3 Then '三次都不对
MsgBox "请尊重他人的隐私权!你没有隐私吗?", 48, "我会告你的哦!"
End
End If
Else
Exit Do
End If
Loop
End If
End If
frmxb.Show
End Sub
Option Explicit
Public mw As String
Sub Main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb")
Set re = zb.OpenRecordset("xb")
If re.RecordCount <> 0 Then 'XB中有记录,说明不是首次使用
If Dir(App.Path + "/OK.PAS") <> "ok.pas" Then '保存密码的文件不在
MsgBox "保存密码的文件你藏哪去了?它叫OK.PAS,在同一目录里.", 32, "出错"
End
Else
mw = ""
Open App.Path + "/ok.pas" For Input As #1
Input #1, mw
Close #1
For i = 1 To Len(mw)
pas(i - 1) = Mid(mw, i, 1) '将密文分成单个字符
pas(i - 1) = Chr(Asc(pas(i - 1)) - 50 - i * 2) '单个字符解密
Next i
mw = ""
For i = 1 To 8
mw = mw + pas(i - 1) '合并得到明文
Next i
i = 0
Do While True
frmpass.Show 1 '确认密码对话框
If frmpass.grzbpass <> mw Then '密码不对
i = i + 1
If i = 3 Then '三次都不对
MsgBox "请尊重他人的隐私权!你没有隐私吗?", 48, "我会告你的哦!"
End
End If
Else
Exit Do
End If
Loop
End If
End If
frmxb.Show
End Sub
能在网上回答问题的人一般工作都比较忙的,建议以后问问题时说清除点,这样不仅能提高效率,而且也是对回答者的尊重。
先问个问题,你的问题出在哪一行?或者能不能贴出出错的完整信息,这样大家能给你更好的帮助。