程序？t表單1。button 1單擊（發件人:？to subject）；
var？總計:？雙份；
開始
總計？:=?StrToFloat（EDT price 1。正文）？*?StrToInt（EDT num 1。正文）？+
StrToFloat（edprice 2。正文）？*?StrToInt（EDT num 2。正文）？+
StrToFloat（edprice 3。正文）？*?StrToInt（EDT num 3。文字）；
show message（“* * *米？”？+?FloatToStr（總數）？+?？元。);
結束；
程序？t form 1 . edtprice 1 keypress（發送方:？to subject；？var？重點:？char）；
開始
如果？不是嗎？（關鍵？在？['0'..'9','.'])?然後
鑰匙？:=?#0;
結束；
程序？t form 1 . EDT num 1 keypress（發送方:？to subject；？var？重點:？char）；
開始
如果？不是嗎？（關鍵？在？['0'..'9'])?然後
鑰匙？:=?#0;
結束；運行效果截圖如下: