UC知道VB缺少As 高手请问要怎么改正~~!!
来源：百度知道 编辑：UC知道 时间：2024/06/17 06:09:08
Private Sub Form_Load()
File Name1 = InputBox("请:")
Open File Name 1 $ For Input As #1
Line Input # 1 a$
MsgBox a $, ,"文本内容"
Close #1
mm$ = " "
n = Len(a$)
For i = 1 To n
b$=Mid $ (a$,i,1)
c$ = Chr(Asc(b$) - 10)
mm$ = mm$ & c$
Next
MsgBox mm $, ,"后文本内容"
File Name2 $=InputBox("加密后路径:")
Open File Name 2 $ for output As # 2
Print #2, mm$
End
End Sub
我用的是VB6.0
File Name1 = InputBox("请:")
Open File Name 1 $ For Input As #1
Line Input # 1 a$
MsgBox a $, ,"文本内容"
Close #1
mm$ = " "
n = Len(a$)
For i = 1 To n
b$=Mid $ (a$,i,1)
c$ = Chr(Asc(b$) - 10)
mm$ = mm$ & c$
Next
MsgBox mm $, ,"后文本内容"
File Name2 $=InputBox("加密后路径:")
Open File Name 2 $ for output As # 2
Print #2, mm$
End
End Sub
我用的是VB6.0
你这个程序问题很多
记得变量先定义,否则容易出错
空格太多所以提示缺少As
而且开完Filename2没有Close
帮你修改了,看看吧
Private Sub Form_Load()
Dim FileName1, Filename2, a, b, c, mm As String
FileName1 = InputBox("请:")
Open FileName1 For Input As #1
Line Input #1, a
MsgBox a, , "文本内容"
Close #1
mm = " "
n = Len(a)
For i = 1 To n
b = Mid(a, i, 1)
c = Chr(Asc(b) - 10)
mm = mm & c
Next
MsgBox mm, , "后文本内容"
Filename2 = InputBox("加密后路径:")
Open Filename2 For Output As #2
Print #2, mm
Close #2
End Sub