【答案解析】(1) Teat1(Index) (2) Check1(i). Value (3) List1.AddItem (4) sum+Val(Text1(i)) * price (5) List1.Clear [解析] (1)当用户选择某种商品后，焦点应落在对应的数量文本框内； (2)for循环遍历所有商品，如果商品被选中并且数量不空，则进行累计； (3)向List控件对象中添加内容应使用AddItem方法； (4)累加总金额； (5)清除List控件对象中的内容应使用Clear方法。