Количество целых чисел - VBA

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

Написать в Excel макрос, который среди трех чисел (а, b, с) должен подсчитывать количество целых чисел.

null

Мне кажется что сам алгоритм неправильный, исправьте кому не лень пожалста)

Решение задачи: «Количество целых чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub CommandButton1_Click()
Dim a, b, c, k ' честнее оставить Variant, чем назначать тип от балды
    a = -14
    b = 0.5
    c = 1
        k = 3
        If a \ 1 <> a Then k = k - 1
        If b \ 1 <> b Then k = k - 1
        If c \ 1 <> c Then k = k - 1
        'заменил взятие остатка на деление нацело
    MsgBox "Количество целых чисел " & k 'добавил перед k пробел
End Sub

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

7 голосов , оценка 4.143 из 5

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

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

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