Dim I As Byte,J As Byte,K As StringOpen App.Path & "\WORLD " & Text1.Text & ".nes" For Binary As #1For I = 1 To 175Get #1,CLng("&HD66" + I),JIf J >= 10 And J < 190 ThenJ = J + 55K = K & Chr(J)ElseK = K & Str(J)End IfNextClose #1Text2.Text = K
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/05 14:29:47
![Dim I As Byte,J As Byte,K As StringOpen App.Path &](/uploads/image/z/13397878-46-8.jpg?t=Dim+I+As+Byte%2CJ+As+Byte%2CK+As+StringOpen+App.Path+%26+%22%5CWORLD+%22+%26+Text1.Text+%26+%22.nes%22+For+Binary+As+%231For+I+%3D+1+To+175Get+%231%2CCLng%28%22%26HD66%22+%2B+I%29%2CJIf+J+%3E%3D+10+And+J+%3C+190+ThenJ+%3D+J+%2B+55K+%3D+K+%26+Chr%28J%29ElseK+%3D+K+%26+Str%28J%29End+IfNextClose+%231Text2.Text+%3D+K)
Dim I As Byte,J As Byte,K As StringOpen App.Path & "\WORLD " & Text1.Text & ".nes" For Binary As #1For I = 1 To 175Get #1,CLng("&HD66" + I),JIf J >= 10 And J < 190 ThenJ = J + 55K = K & Chr(J)ElseK = K & Str(J)End IfNextClose #1Text2.Text = K
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
Dim I As Byte,J As Byte,K As StringOpen App.Path & "\WORLD " & Text1.Text & ".nes" For Binary As #1For I = 1 To 175Get #1,CLng("&HD66" + I),JIf J >= 10 And J < 190 ThenJ = J + 55K = K & Chr(J)ElseK = K & Str(J)End IfNextClose #1Text2.Text = K
好像是把文本1的文字加密后存入文本2