Imports System
Public Module Module1
Public Sub Main()
dim x as integer
do until (x=10)
console.writeline("the value of x="&x)
x=x+1
loop
End Sub
End Module