Question

Running on a particular treadmill you burn 3.9 calories per minute. Create an application (function) that uses a loop to display the number of calories burned after 10,15,20,25 and 30minutes

Answer 1

Module Module1
'main function
Sub Main()
For i As Integer = 10 To 30 Step 5
Dim numberofcalories As Double = 3.8999999999999999 * i 'number of calories
Console.WriteLine(numberofcalories.ToString() + " calories burned after
" + i.ToString() + " minutes") 'show result
Next
Console.ReadLine() 'Delay
End Sub

End Module