设加密算法函数名为encryptxt，解密算法函数名为unencryptxt，不带参数。
加密窗口“生成密文”按钮事件：
privatesub生成密文_click()
frame1.caption=encryptxt(text1.text)
endsub
解密窗口“解密”按钮事件：
privatesub解密_click()
frame2.caption=unencryptxt(rrame1.caption)
匿名回答于2021-04-04 02:10:11
