当前位置 :
DimIAsByte,JAsByte,KAsStringOpenApp.Path&"WORLD"&Text1.Text&".nes"ForBinaryAs#1ForI=1To175Get#1,CLng("&HD66"+I),JIfJ>=10AndJ<190ThenJ=J+55K=K&Chr(J)ElseK=K&Str(J)EndIfNextClose#1Text2.Text=K
更新时间: 2025-08-19 13:22:43
1人问答
问题描述:

DimIAsByte,JAsByte,KAsString

OpenApp.Path&"WORLD"&Text1.Text&".nes"ForBinaryAs#1

ForI=1To175

Get#1,CLng("&HD66"+I),J

IfJ>=10AndJ

蒙永民回答:
  好像是把文本1的文字加密后存入文本2
最新更新
优秀其它推荐
保卡通(baokatong.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
Copyright©2009-2021 保卡通 baokatong.com 版权所有