Por favor explique este programa VB
Dim?sum?'Definir suma de variable variante
Private?Sub?Form_Load()?'Evento de carga de formulario Dim?i?As?Integer'Definir variable entera i a ?=? Array("Arroz salvaje picante",?"Cerdo estofado Mei Cai",?"Pescado blanco al vapor",?"Carne cristalina",?"Filete de ternera chisporroteante",?"Albóndigas de camarones al vapor", "¿Pato crujiente fragante?" ,?"Berenjena con sabor a pescado",?"Tofu casero",?"Arroz en tubo de bambú?",?"Rodajas de pulmón de pareja",?"Anguila seca salteada",?"Pollo Kung Pao",?" “Riñón caliente”,?”Hormigas trepando a un árbol”,?”Gambas suaves fritas”,?”Ternera con lechuga”,?”Carne blanca al ajillo”,?”Costillas de cerdo al ajillo”,?”Lomo de cerdo agridulce”, ?"Cerdo dos veces cocido?" ?"Tofu con almendras",?"Cerdo desmenuzado con sabor a pescado",?"Pescado mandarín ardilla", "¿Pato salado?", "¿Buda salta el muro?",?"León ¿cabeza?",?"Cerdo estofado?",?" "Pollo picante",?"Costillas de cerdo estofadas",?"Melón amargo frío",?"Ma Po tofu",?"Taro desmenuzado",?"Carne con palillo de dientes" ,?"Maíz con piñones",?"Lubina al vapor",? "Carne de res con salsa de soja",?"Pollo Gongbao")'Asigne varios nombres de Cai a la matriz 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) 'Asigne el precio unitario correspondiente al nombre del plato a la matriz b
For?i?=?LBound(a)?To?UBound(a)?'i del subíndice de matriz a al superíndice de la matriz a
List1.AddItem? a(i)?&?Space(2)?&?b(i)'El nombre del plato y el precio unitario correspondiente se almacenan en el misma fila del control de lista
Next?i?'End the loop
End?Sub
Private?Sub?List1_Click()
i?=?List1.ListIndex?'Asigna el número de elementos de control de lista1 a i
List2.AddItem?List1.Text'list2 agrega los elementos seleccionados de la lista
sum?=?sum?+?Val(Right(List1.Text,?2))'Calcular el consumo total
List1.RemoveItem?i?'Eliminar elementos de la lista
Etiqueta1?=?"Cantidad de consumo:"?&?suma?&?"Yuan"'La etiqueta 1 muestra información de consumo y Consumo total
Fin?Sub
Privado?Sub? List2_Click()
i?=?List2.ListIndex?'Asignar el número de elementos de control de list2 a i
List1.AddItem?List2.Text'Agregar elementos seleccionados de list2 a list1
sum?=?sum?-?Val(Right(List2.Text,?2))' Calcular consumo total
List2.RemoveItem?i?'Eliminar elementos en lista2 p>
Etiqueta1?=?"Cantidad de consumo:"?&?sum?&?"yuan"' La etiqueta 1 muestra información de consumo
End?Sub