Red de conocimiento de recetas - Industria de la restauración - Por favor explique este programa VB

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

Etiqueta1?=?"Cantidad de consumo:"?&?sum?&?"yuan"' La etiqueta 1 muestra información de consumo

End?Sub