题目
Dim I As Byte,J As Byte,K As String
Open App.Path & "WORLD " & Text1.Text & ".nes" For Binary As #1
For I = 1 To 175
Get #1,CLng("&HD66" + I),J
If J >= 10 And J < 190 Then
J = J + 55
K = K & Chr(J)
Else
K = K & Str(J)
End If
Next
Close #1
Text2.Text = K
Open App.Path & "WORLD " & Text1.Text & ".nes" For Binary As #1
For I = 1 To 175
Get #1,CLng("&HD66" + I),J
If J >= 10 And J < 190 Then
J = J + 55
K = K & Chr(J)
Else
K = K & Str(J)
End If
Next
Close #1
Text2.Text = K
提问时间:2021-01-11
答案
好像是把文本1的文字加密后存入文本2
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点
- 11求函数y=log2^2x-log2x^2+3在区间[1/2,16]伤的值域 2函数fx=ln(x^2-4x+3),x∈[4,正无穷)的值域为
- 2在军事演习中,某空降兵从飞机上跳下,先做自由落体运动,在t1时刻速度达较大值v1时打开降落伞,做减速运动,在t2时刻以较小速度v2着地.他的速度图象如图所示.下列关于该空降兵在0~t1
- 3把0.8:15分之4化成最简单的整数比是
- 4mike does well in chinese.改为同义句
- 5Under no circumstances and at no time___be the first___nuclear weapons.
- 61千米每小时等于多少迈
- 7要使自己成为一道亮丽的风景线,应该怎样去做
- 8A:Hello,Ben!Yesterday was Tree____Day,What did you do yesterday!
- 9缺陷者捧出的鲜花相关实例
- 10为什么氢气+氧气点燃生成水这个反应也能证明水是由氢氧元素组成的吗