為此，您可以使用ASC和CHR函數。
讓我說幾句。妳自己看吧。如果不合適給我打電話。
首先創建壹個新的VB程序。添加文本框和標簽。然後在文本框的change事件中添加以下代碼:
label 1 . caption = label 1。“字符:“&；text1“ASC代碼是“&；ASC（text 1 . text）& amp；" "
這樣妳就可以將妳的造字程序的字符復制到文本框中，並獲得相應的ASC代碼！（只能得到文本框第壹個字符的ASC代碼，要得到整個文本框字符的ASC代碼還得重寫代碼！)
然後創建多個表單（這是您想要的生成器，上面的只是為了獲取ASC代碼）
添加兩個文本框和壹個按鈕
按鈕，輸入:
將I設為整數，b設為整數
for I = 1 to len（text 1 . text）
b = chr（mid（text 1 . text，I，1）
文本2 . text =文本2 . text & amp；轉換字符（b）
接下來我
但是，請將以下過程復制到代碼框中。
私有子轉換字符（數字為整數）
選擇案例號
案例65、97
Convert character = Chr（輸入您用造字程序創建的字符的ASC代碼）‘當加密文本為A或A時，您的字符的相應ASC代碼。
案例66，98
Convert character = Chr（輸入您用造字程序創建的字符的ASC代碼）‘當加密文本為B或B時，您的字符的相應ASC代碼。
案例67，99
Convert character = Chr（輸入您用造字程序創建的字符的ASC代碼）‘當加密文本為C或C時，您的字符的相應ASC代碼。
以下自我補充...是案例67、99、案例68、100、案例69、101等。直到案例90，122，此時加密文本為z。
結束選擇
末端接頭
自己改代碼！！！點不多，給了這麽多思路。