Do Loop и Function - VB

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

Подскажите пожалуйста!!! Предположим задана некоторая функция и к ней задано условие, чтобы конечный результат был больше нуля, необходимо ли в данном случае использовать процедуру Function? А также посоветуйте материал о этой процедуре. Заранее спасибо!!!

Решение задачи: «Do Loop и Function»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
X1 = 1.75
x = X1
Do
Print x
x = x - 0.5
Loop While x > 0
End Sub
 
Private Sub Command2_Click()
X1 = 1.75
For x = X1 To 0 Step -0.5
Print x
Next
End Sub
 
Private Sub Command3_Click()
X1 = 1.75
x = X1
1 Print x
x = x - 0.5
If x > 0 Then GoTo 1
End Sub
 
 
Private Sub Command4_Click()
f (1.75)
End Sub
 
Function f(X1)
f = X1
If f > 0 Then
Print f
f = f(X1 - 0.5)
End If
End Function
                        