神马品牌网江苏建湖城南实验初中:关于VB得问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 19:00:02
我按书做了一个加密程序,但解密时出了错误,帮忙看看有什么问题:
Private Sub Form_Load()
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
End Sub
加密的原文:
研究性学习体会 一个学期的研究性学习马上就结束了，许多同学从中学到了不少的东西。它帮助我们成长，帮助我们学习，我们受益父非浅。
身为“戏剧研究与表演”这小组的一员，我深深感受到了研究性学习的快乐。整个学期以来，整个小组的成员都怀着一颗充满求知欲的心去学习戏剧的知识。开始，我还以为戏剧就只是舞台剧。不看没关系，一看啊，戏剧的范围还真广，电视剧、童话剧、歌剧、舞剧、喜剧……，数不胜数，原来小品、笑话、短片也都是戏剧的其中几种。我感觉到研究戏剧是多么有趣啊！看来这小组还真是选对了。
后来，研究戏剧的表演，又让我更加深一层的了解。所谓“台上一分钟，台下十年功”，这道理还真不假。平常看起来特别好看，却不知道幕后有多么复杂的过程，构思、编剧、排练、修改、正式表演，这么多的过程得花多少时间啊！我和郭湘我搭档，准备在总结大会上表演一番。经过多次的排练和修改，终于在紧急的最后关头弄好了。在研究性学习直接大会上，我和我的默契搭档表演了一出小偷进屋的笑话。郭湘的滑稽动作和我有趣的语言，笑得大家前俯后仰，看到自己给大家带来了欢乐，自己心理也在乐。我听到心在说“我好快乐！
我好快乐！”又听到别人在说：“我好高兴！我好高兴！”我是笑在嘴里甜在心里.一看搭档,天啊,肚子都笑得发酸.
这学期的研究性学习又开始,内容也比以前更加有趣生动,只要一想到又要进行研究,心里就乐哈哈的.一回想起研究性学习,是多么美丽的回忆啊 !
加密后:
掩旧修驯虾田浑*遗 驯其滴掩旧修驯虾瞒少咀诫?琳6绪蛾投驯摧众驯登琳才摄滴兜?…?谤?诬醚秤钞6谤?诬醚驯虾6诬醚舒茵嘎费墙…
解密后:
研究性学习体会 一学期的研究性学习马上就结5了，许多同学从中学到了不少的东5。5帮5我们成长，帮5我们学习，我们受益父非浅。
帮帮忙---
Private Sub Form_Load()
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
End Sub
加密的原文:
研究性学习体会 一个学期的研究性学习马上就结束了，许多同学从中学到了不少的东西。它帮助我们成长，帮助我们学习，我们受益父非浅。
身为“戏剧研究与表演”这小组的一员，我深深感受到了研究性学习的快乐。整个学期以来，整个小组的成员都怀着一颗充满求知欲的心去学习戏剧的知识。开始，我还以为戏剧就只是舞台剧。不看没关系，一看啊，戏剧的范围还真广，电视剧、童话剧、歌剧、舞剧、喜剧……，数不胜数，原来小品、笑话、短片也都是戏剧的其中几种。我感觉到研究戏剧是多么有趣啊！看来这小组还真是选对了。
后来，研究戏剧的表演，又让我更加深一层的了解。所谓“台上一分钟，台下十年功”，这道理还真不假。平常看起来特别好看，却不知道幕后有多么复杂的过程，构思、编剧、排练、修改、正式表演，这么多的过程得花多少时间啊！我和郭湘我搭档，准备在总结大会上表演一番。经过多次的排练和修改，终于在紧急的最后关头弄好了。在研究性学习直接大会上，我和我的默契搭档表演了一出小偷进屋的笑话。郭湘的滑稽动作和我有趣的语言，笑得大家前俯后仰，看到自己给大家带来了欢乐，自己心理也在乐。我听到心在说“我好快乐！
我好快乐！”又听到别人在说：“我好高兴！我好高兴！”我是笑在嘴里甜在心里.一看搭档,天啊,肚子都笑得发酸.
这学期的研究性学习又开始,内容也比以前更加有趣生动,只要一想到又要进行研究,心里就乐哈哈的.一回想起研究性学习,是多么美丽的回忆啊 !
加密后:
掩旧修驯虾田浑*遗 驯其滴掩旧修驯虾瞒少咀诫?琳6绪蛾投驯摧众驯登琳才摄滴兜?…?谤?诬醚秤钞6谤?诬醚驯虾6诬醚舒茵嘎费墙…
解密后:
研究性学习体会 一学期的研究性学习马上就结5了，许多同学从中学到了不少的东5。5帮5我们成长，帮5我们学习，我们受益父非浅。
帮帮忙---