Как описать функцию Even(K) логического типа, возвращающую TRUE, если целый параметр K является четным, и FALSE в противном случае - VB

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

Помогите пожалуйста решить задачу, очень срочно надо. Proc24. Описать функцию Even(K) логического типа, возвращающую TRUE, если целый параметр K является четным, и FALSE в противном случае. С ее помощью найти количество четных чисел в наборе из 10 целых чисел.

Решение задачи: «Как описать функцию Even(K) логического типа, возвращающую TRUE, если целый параметр K является четным, и FALSE в противном случае»

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

                            Option Explicit
 
Private Sub Form_Load()
    Dim i As Long, k As Long
    Me.AutoRedraw = True
    For i = 0 To 9
        k = Rnd * 100000
        Me.Print k, Even(k)
    Next
End Sub
Private Function Even(ByVal k As Long) As Boolean
    Even = Not k And 1
End Function
                        

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

12 голосов , оценка 3.583 из 5

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