' NewestMultiply.vb - This program prints the numbers 0 through 10 along
' with these values multiplied by 2 and by 10.
' Input: None
' Output: Prints the numbers 0 through 10 along with these values multiplied by 2 and by 10.
Option Explicit On
Option Strict On
Module NewestMultiply
Sub Main()
' Declarations
Const Head1 As String = "Number: "
Const Head2 As String = "Multiplied by 2: "
Const Head3 As String = "Multiplied by 10: "
Dim NumberCounter As Integer ' Numbers 0 through 10
Dim ByTen As Integer ' Stores the number multiplied by 10
Dim ByTwo As Integer ' Stores the number multiplied by 2
Const NUM_LOOPS As Integer = 10 ' Constant used to control loop
' This is the work done in the housekeeping() procedure
System.Console.WriteLine("0 through 10 multiplied by 2 and by 10")
' This is the work done in the detailLoop() procedure 

' Write your Do Until loop here

End Sub ' End of Main() procedure
End Module ' End of NewestMultiply module

 

 

 

2.Write a do Until Loop that uses the loop control variable to take on the valued 0 through 10.

3. In the body of the loop, calculate the value of the loop control variable multilplied by 2 and by 10.

4. save this source code file in a directory of your choice and then make it that directory your working directory.

5. Compile the source code file NewestMultiply.vb.