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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Dim i As Long, k As Long
  5.     Me.AutoRedraw = True
  6.     For i = 0 To 9
  7.         k = Rnd * 100000
  8.         Me.Print k, Even(k)
  9.     Next
  10. End Sub
  11. Private Function Even(ByVal k As Long) As Boolean
  12.     Even = Not k And 1
  13. End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы