Подсчитать среди трех чисел а, b и с количество целых чисел - VBA

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

Напишите в среде Excel макрос, который среди трех чисел а, b и с должен подсчитывать:Количество целых чисел. Сразу оговорюсь, что я чайник

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
If a=Integer  Then k = k + 1
If b=Integer  Then k = k + 1
If c=Integer  Then k = k + 1
Label4.Caption = "Количество положительных чисел. РАВНО:" & k
End Sub

Пытаюсь использовать этот макрос выдает ошибку

Решение задачи: «Подсчитать среди трех чисел а, b и с количество целых чисел»

textual
                            Листинг программы 
                        
If a=Int(a) Then k = k + 1

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

9 голосов , оценка 4 из 5

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

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

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