支持庫規範
。裝配窗裝配1
。程序集可變長度,整數類型
。程序集變量a,整數類型
。匯編變量b,整數類型
。具有較小匯編變量的數字,整數類型。
。大量的匯編變量,整型。
。中間數量的集合變量,整數類型
。程序集變量替換結果,文本類型。
。程序集變量的臨時數量,整數類型
。subroutine _ button 1_被點擊。
編輯框2。內容= " "
a = 1
b = 2
長度=文本長度(編輯框1。內容)
中間數=對數值(編輯框1。內容)
。計數循環頭(長度-1,)
調用子程序(&;比較算法、、、)
。計數周期尾部()
子程序比較算法
較小的數=對數值(取文本的中間(對文本(中間數),1,1))
。計數循環頭(長度-a,)
較大的數字=到數值(取文本的中間(到文本(中間數),b,1))
如果為真(較小的數字>較大的數字)
臨時號碼=較小的號碼
較小的數字=較大的數字
較大的號碼=臨時號碼
如果真的結束了。
b = b + 1
。計數周期尾部()
編輯框2。內容=編輯框2。內容+文本(較小的數字)
a = a + 1
如果為真(a =長度)
編輯框2。內容=編輯框2。內容+文本(較大的數字)
如果真的結束了。
b = 2
替換後的結果=潛臺詞替換(編輯框1。內容,轉為文本(較小的數字),"",1,true)
中位數= to值(替換後的結果)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
我測試過了,沒問題。花了我壹個小時10分。