Dim I As Byte,J As Byte,K As String
题目
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
答案
好像是把文本1的文字加密后存入文本2
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 填词语:（）（）的冰灯 整理（）（）
- As is ofen the case,we have worked out the production plan.
- 若a^2+b^2=2c^2.若 ,则直线ax+by+c=0 被圆 x^2+y^2=1所截得的弦长为 (
- 用一句古诗劝说朋友谦虚,别骄傲.
- 用2,6,7,8组成24
- 合唱队有13名男生,15名女生,男生占总人数的( )
- 儿 力 马 中 立 力 水 另这几个字加两笔组新字!
- 1、已知：a+b+c=0,
- 什么是液体倍比稀释法?
- 用"方正,博学,恐惧,讪笑,叮嘱,绵延,瞬息,幽寂,人声鼎沸,荒草萋萋,来势汹汹,人迹罕至"写一段50字的话
热门考点