求解釋這段VB程序

Dim?sum?'定義變體變量sum

Private?Sub?Form_Load()?'窗體加載事件

Dim?i?As?Integer'定義整型變量i

a?=?Array("麻辣茭白",?"梅菜扣肉",?"清蒸白魚",?"水晶肴肉",?"鐵板牛柳",?"蝦仁蒸餃",?"香酥鴨?",?"魚香茄子",?"家常豆腐",?"竹筒飯?",?"夫妻肺片",?"幹煸鱔魚",?"宮保雞丁",?"火爆腰花",?"螞蟻上樹",?"軟炸蝦仁",?"生菜牛肉",?"蒜泥白肉",?"蒜香排骨",?"糖醋裏脊",?"回鍋肉?",?"杏仁豆腐",?"魚香肉絲",?"松鼠鱖魚",?"鹽水鴨?",?"佛跳墻?",?"獅子頭?",?"紅燒肉?",?"辣子雞丁",?"紅燒排骨",?"涼拌苦瓜",?"麻婆豆腐",?"拔絲香芋",?"牙簽牛肉",?"松子玉米",?"清蒸鱸魚",?"醬牛肉　",?"宮爆雞丁")'將多個蔡名賦給數組a

b?=?Array(10,?18,?20,?20,?20,?15,?18,?10,?10,?10,?15,?20,?18,?20,?20,?15,?20,?18,?25,?25,?18,?25,?20,?25,?28,?18,?18,?18,?20,?20,?12,?12,?15,?18,?18,?25,?25,?18)

'將菜名對應的單價賦給數組b

For?i?=?LBound(a)?To?UBound(a)?'i從數組a的下標到數組a的上標

List1.AddItem?a(i)?&?Space(2)?&?b(i)'菜名和對應的單價存入list控件的同壹行

Next?i?'結束循環

End?Sub

Private?Sub?List1_Click()

i?=?List1.ListIndex?'將list1控件項目數賦給i

List2.AddItem?List1.Text'list2添加list的選中項

sum?=?sum?+?Val(Right(List1.Text,?2))'計算出消費的總額

List1.RemoveItem?i?'移除list中的項目

Label1?=?"消費金額:"?&?sum?&?"元"'標簽1顯示消費信息及消費總額

End?Sub

Private?Sub?List2_Click()

i?=?List2.ListIndex?'將list2控件項目數賦給i

List1.AddItem?List2.Text'添加list2選中項到list1中

sum?=?sum?-?Val(Right(List2.Text,?2))'計算消費總額

List2.RemoveItem?i?'移除list2中的項目

Label1?=?"消費金額:"?&?sum?&?"元"'標簽1顯示消費信息

End?Sub