可以透過計次迴圈得到一串字串，達到你想要的結果。 以下提供的程式碼具有通用性。 程式碼如下： .版本 2 .子程式 取隨機長度文字, 文字型 .引數 取漢字的文字, 文字型 .引數 取出的數目, 整數型 .區域性變數 Temp, 整數型 .區域性變數 取出的文字, 文字型 置隨機數種子 () .計次迴圈首 (取出的數目, ) 取出的文字 ＝ 取出的文字 ＋ 取文字中間 (取漢字的文字, 取隨機數 (1, 取文字長度 (取漢字的文字) ÷ 2) × 2 － 1, 2) .計次迴圈尾 () 返回 (取出的文字) 呼叫程式碼如下（例項）： 編輯框_輸出結果.內容 ＝ 取隨機長度文字 (編輯框_姓.內容, 到整數 (編輯框_姓長度.內容)) ＋ 取隨機長度文字 (編輯框_名.內容, 到整數 (編輯框_名長度.內容)) 在我的演示程式中，演示結果如下： 如果你不想讓字重複，請使用以下程式碼，此程式碼同樣具有通用性： .版本 2 .子程式 取隨機長度文字, 文字型 .引數 取漢字的文字, 文字型 .引數 取出的數目, 整數型 .區域性變數 Temp, 整數型 .區域性變數 臨時文字, 文字型 .區域性變數 隨機文字, 文字型 .區域性變數 取出的文字, 文字型 置隨機數種子 () 臨時文字 ＝ 取漢字的文字 .計次迴圈首 (取出的數目, ) 隨機文字 ＝ 取文字中間 (臨時文字, 取隨機數 (1, 取文字長度 (臨時文字) ÷ 2) × 2 － 1, 2) 取出的文字 ＝ 取出的文字 ＋ 隨機文字 臨時文字 ＝ 子文字替換 (臨時文字, 隨機文字, “”, , , 真) .計次迴圈尾 () 返回 (取出的文字) 此程式碼即符合你的要求。 如有疑問請追問。
可以透過計次迴圈得到一串字串，達到你想要的結果。 以下提供的程式碼具有通用性。 程式碼如下： .版本 2 .子程式 取隨機長度文字, 文字型 .引數 取漢字的文字, 文字型 .引數 取出的數目, 整數型 .區域性變數 Temp, 整數型 .區域性變數 取出的文字, 文字型 置隨機數種子 () .計次迴圈首 (取出的數目, ) 取出的文字 ＝ 取出的文字 ＋ 取文字中間 (取漢字的文字, 取隨機數 (1, 取文字長度 (取漢字的文字) ÷ 2) × 2 － 1, 2) .計次迴圈尾 () 返回 (取出的文字) 呼叫程式碼如下（例項）： 編輯框_輸出結果.內容 ＝ 取隨機長度文字 (編輯框_姓.內容, 到整數 (編輯框_姓長度.內容)) ＋ 取隨機長度文字 (編輯框_名.內容, 到整數 (編輯框_名長度.內容)) 在我的演示程式中，演示結果如下： 如果你不想讓字重複，請使用以下程式碼，此程式碼同樣具有通用性： .版本 2 .子程式 取隨機長度文字, 文字型 .引數 取漢字的文字, 文字型 .引數 取出的數目, 整數型 .區域性變數 Temp, 整數型 .區域性變數 臨時文字, 文字型 .區域性變數 隨機文字, 文字型 .區域性變數 取出的文字, 文字型 置隨機數種子 () 臨時文字 ＝ 取漢字的文字 .計次迴圈首 (取出的數目, ) 隨機文字 ＝ 取文字中間 (臨時文字, 取隨機數 (1, 取文字長度 (臨時文字) ÷ 2) × 2 － 1, 2) 取出的文字 ＝ 取出的文字 ＋ 隨機文字 臨時文字 ＝ 子文字替換 (臨時文字, 隨機文字, “”, , , 真) .計次迴圈尾 () 返回 (取出的文字) 此程式碼即符合你的要求。 如有疑問請追問。