1-)
'Do while
t = 0
c = 0
x = 0
Do While x < 10
x = x + 1
If InputBox("Lütfen sayı giriniz.") Mod 2 = 0 Then
c = c + 1
Else
t = t + 1
End If
Loop
MsgBox c & " çift sayı" & vbCrLf & t & " tek sayı"


'do until
t = 0
c = 0
x = 0
Do Until x >= 10
x = x + 1
If InputBox("Lütfen sayı giriniz.") Mod 2 = 0 Then
c = c + 1
Else
t = t + 1
End If
Loop
MsgBox c & " çift sayı" & vbCrLf & t & " tek sayı"

2-)
t = 0
x = 0
c = 1
Do Until c < 0

c = InputBox("Lütfen sayı giriniz.")

t = t + c
If c < 1 Then x = x + 1
Loop
MsgBox x & " kadar sayı girilmiş." & vbCrLf & "ortalaması: " & (t / x) & vbCrLf & "toplamı: " & t


3-)

'do until
c = InputBox("sayı giriniz.")
r = 1
Do Until c < 2
r = r * c
c = c - 1
Loop
MsgBox "bu sayının faktoriyeli " & r & " dir"

'Do while
c = InputBox("sayı giriniz.")
r = 1
Do While c > 1
r = r * c
c = c - 1
Loop
MsgBox "bu sayının faktoriyeli " & r & " dir"