Private Sub Command1_Click()
' Нахождение максимального значения среди элементов
' одномерного массива

Dim i As Long
Dim Max As Long
Dim Mas(0 To 5) As Long

' Заполняем массив случайными числами
For i = 0 To 5
Mas(i) = Int(Rnd * 100)
Next i

Max = Mas(0)
For i = 0 To 5
If Mas(i) > Max Then Max = Mas(i)
Next i

Text1.Text = Max
End Sub
Добавлено 04.05.14 в 18:36:25:
Dim testNumber As Integer

Private Sub Form_Load()
testNumber = 5

If chek(testNumber) Then
MsgBox "четное"
Else
MsgBox "нечетное"
End If

End
End Sub

Private Function chek(number As Integer) As Boolean
If (number / 2 - Fix(number / 2)) Then
chek = False
Else
chek = True
End If
End Function
Добавлено 04.05.14 в 18:36:36:
копипаст
Добавлено 04.05.14 в 18:36:53:
не сталкивался с бейсиком

if chislo%2 == 0 then
четн
else
не четн
Добавлено 04.05.14 в 18:32:27:
бейсик не знаю