Question

How to write the 7 BOOM game. If a number divide by 7 OR include the digit 7, print "BOOM". The input is 1-99 in VB.NET

Answer 1

Imports System

Public Class Game7BOOM_VB_NET
    Public Shared Sub Main(ByVal args As String())
        Console.Write("Enter a number between 1 to 99: ")
        Dim n As Integer = Integer.Parse(Console.ReadLine())

        If n Mod 7 = 0 OrElse n / 10 = 7 OrElse n Mod 10 = 7 Then
            Console.WriteLine("BOOM")
        Else
            Console.WriteLine(n)
        End If
    End Sub
End Class



' run:
'
' Enter a number between 1 to 99: 17
' BOOM
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Game7BOOM_VB_NET
    Public Shared Sub Main(ByVal args As String())
        Console.Write("Enter a number between 1 to 99: ")
        Dim limit As Integer = Integer.Parse(Console.ReadLine())

        For i As Integer = 1 To limit
            If i Mod 7 = 0 OrElse i / 10 = 7 OrElse i Mod 10 = 7 Then
                Console.WriteLine("BOOM")
            Else
                Console.WriteLine(i)
            End If
        Next
    End Sub
End Class




' run:
'
' Enter a number between 1 to 99: 30
' 1
' 2
' 3
' 4
' 5
' 6
' BOOM
' 8
' 9
' 10
' 11
' 12
' 13
' BOOM
' 15
' 16
' BOOM
' 18
' 19
' 20
' BOOM
' 22
' 23
' 24
' 25
' 26
' BOOM
' BOOM
' 29
' 30
'

 

70+ SQL courses for beginners and professionals