Как описать функцию 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д