VB文件模式错误如何处理？

Question

代码如下：

Dim a As Integer
Dim b As Integer

Private Sub Command1_Click()
a = 100
Open "C:\a.txt" For Output As #1
Close
Open "C:\a.txt" For Input As #1
Write #1, a
Close
Open "C:\a.txt" For Input As #1
Input #1, a
MsgBox (a)
End Sub

运行效果如下：

如何处理？谢谢

Answer 1

【相关推荐】

• 你可以看下这个问题的回答https://ask.csdn.net/questions/7630004
• 这篇博客也不错, 你可以看下基于VB图书管理系统的设计与实现
• 您还可以看一下 张景平老师的VB程序设计教程:从入门到精通课程中的 自定义坐标系和两个案例小节, 巩固相关知识点
  
• 除此之外, 这篇博客: VB6.0中提示：该部件的许可证信息没有找到，在设计环境中，没有合适的许可证使用该功能”的解决办法中的 符号文件的作用 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

  符号文件是反编译中比较有利的一个外挂，他可以在IDA反编译时，把所有函数的名称和参数对应到二进制中。方便分析人员快速定位。而vb6的这个dll我只找到了3个符号文件，必须配合非常旧的dll才能正确使用，所以最终也只用上了其中的一个叫做msvbvm60.dbg的文件。当你把他和dll挂接在一起后。IDA就可以进行自动分析，强大分析能力，简直让人佩服的五体投地。直接看截图吧：
  
  就这代码给你反编译的，你都不好意思说看不懂。哈哈。利用F5提供的C代码查看功能，发现有个叫做CalcValue的函数，这个函数居然可以算出来一个license key，然后和你注册表里面的key，一个字一个字的判断，如果相等那么就可以使用这个控件。当我发现这里时，我激动地拿出ollydbg调试了一下，发现果真如此。这个算法咋形容呢？你还能再不负责任一点吗。
  

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^