某城市為了鼓勵大家采用公共交通方式出行，推出了一種地鐵換乘公交車的優(yōu)惠方案：在搭乘一次地鐵后可以獲得一張面額為本次地鐵價格的優(yōu)惠券，有效期為60分鐘，在有效期內(nèi)可以使用這張優(yōu)惠券，免費搭乘一次票價不超過這張優(yōu)惠券的公交車。在有效期內(nèi)指開始乘公交車的時間與開始乘地鐵的時間之差小于等于60分鐘。搭乘地鐵獲得的優(yōu)惠券可以累積，即可以連續(xù)搭乘若干次地鐵后再連續(xù)使用優(yōu)惠券搭乘公交車，但每次搭乘公交車只能使用一張優(yōu)惠券。搭乘公交車時，如沒有合適的優(yōu)惠券，則自己全額支付：如果有多張優(yōu)惠券滿足條件，則優(yōu)先消耗獲得最早的優(yōu)惠券。
小葉同學(xué)根據(jù)優(yōu)惠政策，編寫了計算優(yōu)惠后需要支付費用的程序，同時將乘車記錄按時間先后順序逐行顯示。在Textl里輸入乘車記錄的數(shù)量n,Text2里輸入n組數(shù)據(jù)，每組乘車記錄有3個數(shù)據(jù)，依次是車型（1表示地鐵、2表示公交）、開始乘車時間、乘車票價。每個數(shù)據(jù)以逗號結(jié)尾。不會有兩次乘車記錄出現(xiàn)在同一分鐘。數(shù)組d存儲乘車記錄的結(jié)構(gòu)如圖a所示：

程序界面如圖b所示：

（1）在VB表達(dá)式Val（Textl.Text）中，Val、Textl.Text依次表示

C

C

（單選，填字母：A.方法名、屬性名、事件名/B.函數(shù)名、對象名、方法名/C.函數(shù)名、對象名、屬性名）。
（2）實現(xiàn)上述功能的程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有誤，請改正。