vb点菜系统代码

Form1Private Sub Combo1_Click()For j = 0 To 20  If Combo1.ListIndex = j Then    Label4.Caption = bia