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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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