пасаны выручайте

На информатике в школе изучали QBasic и задали написать проги... Две из них я сделал две немогу. Помогите по братски с меня + и благодарность... Вот задание
1) написать программу которая определяет какое из чисел больше
2) написать программу которая определяла бы тип числа ( четное, не четное) кто поможет от души благодарен буду

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

RGame, а расписать можно, а то чот не доходит

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:
не сталкивался с бейсиком

RGame, и на этом спс)
Добавлено 04.05.14 в 19:25:52:
Up