1樓:
這是我的理解,不知道這是不是您想要的,希望對您有所幫助以下是**:
.版本 2
.子程式 _按鈕1_被單擊
.區域性變數 數字1, 文字型, , "0"
.區域性變數 數字2, 文字型, , "0"
.區域性變數 數字3, 文字型, , "0"
.區域性變數 ch, 文字型
.區域性變數 i, 整數型
.區域性變數 d, 整數型, , "3"
ch = 刪首尾空 (編輯框1.內容)
i = 1
.判斷迴圈首 (i ≤ 取文字長度 (ch))加入成員 (數字1, 取文字中間 (ch, i, 1))i = i + 1
.判斷迴圈尾 ()
ch = 刪首尾空 (編輯框2.內容)
i = 1
.判斷迴圈首 (i ≤ 取文字長度 (ch))加入成員 (數字2, 取文字中間 (ch, i, 1))i = i + 1
.判斷迴圈尾 ()
ch = 刪首尾空 (編輯框3.內容)
i = 1
.判斷迴圈首 (i ≤ 取文字長度 (ch))加入成員 (數字3, 取文字中間 (ch, i, 1))i = i + 1
.判斷迴圈尾 ()
d [1] = 1
ch = 「」
.判斷迴圈首 (d [1] ≤ 取陣列成員數 (數字1))d [2] = 1
.判斷迴圈首 (d [2] ≤ 取陣列成員數 (數字2))d [3] = 1
.判斷迴圈首 (d [3] ≤ 取陣列成員數 (數字3))ch = ch + 數字1 [d [1]] + 數字2 [d [2]] + 數字3 [d [3]] + 「.」
d [3] = d [3] + 1
.判斷迴圈尾 ()
d [2] = d [2] + 1
.判斷迴圈尾 ()
d [1] = d [1] + 1
.判斷迴圈尾 ()
編輯框4.內容 = 取文字左邊 (ch, 取文字長度 (ch) - 1)
2樓:匿名使用者
.版本 2
.支援庫 spec
.子程式 _按鈕1_被單擊
.區域性變數 n1, 整數型
.區域性變數 n2, 整數型
.區域性變數 n3, 整數型
.區域性變數 總數, 整數型
總數 = 0
.計次迴圈首 (取文字長度 (編輯框2.內容), n2).
計次迴圈首 (取文字長度 (編輯框1.內容), n1).計次迴圈首 (取文字長度 (編輯框3.
內容), n3)總數 = 總數 + 1
編輯框4.加入文字 (取文字中間 (編輯框1.內容, n1, 1) + 取文字中間 (編輯框2.
內容, n2, 1) + 取文字中間 (編輯框3.內容, n3, 1) + 「.」)
.計次迴圈尾 ()
.計次迴圈尾 ()
.計次迴圈尾 ()
除錯輸出 (「總數: 」 + 到文字 (總數) + 「 個」)------------------你測試一下,看看效果如何-------------------
易語言如何實現000-999的所有三個數字的組合 比如:000 001 002 003-999
3樓:匿名使用者
真的貌似很簡單.....
也就做個1~999的迴圈...
.區域性變數 tmp, 整數型
.計次迴圈首 (999, tmp)
列表框1.加入專案 (取文字右邊 (「000」 + 到文字 (tmp), 3), )
處理事件 ()
.計次迴圈尾 ()
要不你蒙了,要不我理解錯了你的題意?
4樓:逆天書生
.版本 2
.支援庫 spec
.區域性變數 計次, 整數型
.區域性變數 結果, 文字型
.計次迴圈首 (1001, 計次)
.如果 (計次 < 10)
結果 = 「00」 + 到文字 (計次 - 1).否則.如果 (計次 < 100)
結果 = 「0」 + 到文字 (計次 - 1).否則.如果 (計次 < 1000)
結果 = 到文字 (計次 - 1)
.否則.如果結束
.如果結束
.如果結束
除錯輸出 (結果)
.計次迴圈尾 ()
易語言如何編寫輸入任意字元便生成十六位英文字母及數字組合 最好有原始碼 求各位
5樓:歲歲年年相似
.版本 2
.程式集 視窗程式集1
.程式集變數 文字, 文字型
.子程式 __啟動視窗_建立完畢
文字 = 「00123456789abcdefghijklmnopqrstuvwxyz0」
置隨機數種子 ()
.子程式 _編輯框1_內容被改變
標籤1.標題 = 「」
.計次迴圈首 (16, )
標籤1.標題 = 標籤1.標題 + 取文字中間 (文字, 取隨機數 (1, 38), 1)
.計次迴圈尾 ()
6樓:匿名使用者
不可逆運算,md5加密取前面十六位數即可。
7樓:黑潮家族林宇軒
你的這個組合是隨機還是什麼
易語言一組數字組成號碼篩選:
8樓:匿名使用者
雖然會寫,但是你的陣列組合什麼的讓人很難聽懂,算了,還是不寫了.軟體定製區歡迎你.
如何用易語言正則取如下數字易語言正規表示式如何取裡面的數字
版本 2 常量 常量1,var latest draw result red d d d d d d d d d d blue var latest draw phase d var latest draw time 版本 2 程式集 視窗程式集1 子程式 按鈕1 被單擊 區域性變數 提取正則,正規...
易語言如何實現無限迴圈語句
版本 2 支援庫 eapi.子程式 啟動視窗 建立完畢.區域性變數 a,邏輯型a 假e68a8462616964757a686964616f31333365636539 判斷迴圈首 a 假 置剪輯板文字 編輯框1.內容 模擬按鍵 ctrl鍵,v鍵,模擬按鍵 回車鍵,延時 10 置剪輯板文字 編輯框2...
怎麼通過易語言實現,開啟易語言程式後,滑鼠被吸附住,就是只能在視窗裡面活動,還有怎麼解除限制
滑鼠被吸附住,這種思想應該是不懂程式設計的人來描述,對於你自己開發程式,需要有一眼就看穿的內力!這只是一種表現給使用者的視覺效果,而已。思路 暫時想到2種,就說第一種吧 判斷滑鼠是否在視窗範圍內,如果已經在臨界位置,則保持不動即可。那麼現在的問題只不過是設定滑鼠位置了。關於吸附的效果,在靠近臨界位置...