作为一个初学者，做了一个输入密码打开文件夹的程序，现在想加入修改密码的功能，所以新建了txt文件“mm.txt”,内容只有6位密码，这是里面的一部分：
    Open "E:\\mm.txt" For Input As #1
    Line Input #1, a
    Close #1
Form2是修改密码的页面，也放入了这个代码，读取txt文件里的6位密码，然后
   If Val(Text1.Text) = a And Val(Text2.Text) = 000000 Then
   Command1.Enabled = True
   Else
   Command1.Enabled = False
   End If
通过两个密码的验证开启修改密码的按钮，
但是Form1里面
If Val(Text1.Text) = a Then
 Command1.Enabled = True
按钮能够成功打开
但是Form2里面却不成功。。。。。
问题就在这里嗯，求大神！！！！

Text2.text一直都有输，而且我为了验证这个，
把 If Val(Text1.Text) = a And Val(Text2.Text) = 000000 Then的And改成了Or，就是Text1的问题。
关于变量a的定义只有Dim a as String，没有其他的了。。。。
不过这个我刚刚好像解决掉了。
接下来还出现了一个问题就是Form2里运行时说是“错误的文件名或号码”。。
Private Sub Command1_Click()
Open App.path & "E:\1.Txt." For Output As #1
 Print #1, Text3.Text
Close #1
Kill "E:\mm.txt"
 Name "E:\1.Txt" As "E:\mm.txt"
Form1.Show
Unload Me
End Sub

[此贴子已经被作者于2017-1-22 18:44编辑过]

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈问题解决啦
蟹蟹！！！！！