Imports System
Public Module Module1
Public Sub Main()
dim number as integer, divSeven as boolean
'defines variables 'number' as an integer, and 'divSeven' as a boolean
console.WriteLine("Input a number: ")
'asks the user to unput a number
number = console.ReadLine()
'assigns user input to the variable 'number'
divSeven = false
'resets the boolean value to false
if (number mod 7 = 0):
'checks if the number is divisible by 7 without remainders
divSeven = True
'sets boolean to true, if divisible by 7
end if
'ends if loop
while divSeven = false:
'loops while the number is not divisible by 7
number += 1
'adds one to the number
'checks if the number is divisible by 7
end while
'ends pretest loop
console.WriteLine(number)
'displays number
End Sub
End Module