ChekBox Меню для блюд. Расчет стоимости - VB

Формулировка задачи:

Захотел сделать меню с чекбоксами. И чтобы выводило стоимость при подсчёте. Сумма оплаты поставлена в тегах.То есть,чтобы высчитывало сумму тегов. Пока получилось что-то такое. P.S. В первом фрейме все Чек1 во втором фрейме все чек2

Option Explicit
 
Private Sub Command1_Click()
        Dim i As Integer
    Dim sum As String, zn As Double
    sum = 0
    For i = 0 To 2
        If Check1(i).Tag <> 0 Then zn = Check1(i).Tag
        
        sum = sum + zn
    Next i
    
    MsgBox sum
End Sub

Решение задачи: «ChekBox Меню для блюд. Расчет стоимости»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i As Integer
Dim sum As Double
For i = 0 To 2
  If Check1(i) Then sum = sum + Check1(i).Tag
  If Check2(i) Then sum = sum + Check2(i).Tag
Next i
MsgBox sum
End Sub
                        

Оцени полезность:

15 голосов , оценка 3.933 из 5

Похожие ответы