Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Module VBModule
Sub Main()
Dim a, b as Integer
a = 10
b = 007
a += 13
Dim bl as Boolean = false
'Console.WriteLine("Sum of a and b is " & (a+b) & bl)
Dim str as String = "Just for test"
'Console.WriteLine(str)
Dim nullAble as String = Nothing
'Console.WriteLine(nullAble)
Console.WriteLine("Please input something")
Dim strIn as String
strIn = Console.ReadLine()
Console.WriteLine("Input is " & strIn)
End Sub
End Module
Module VBModule
Sub Main()
Dim a,b,T1,T2,F,y as Integer
y= 1
while y = 1
a = Console.ReadLine()
b = Console.ReadLine()
If (a = 1 or a= 0) & (b = 1 or b=0) Then
y = 0
End If
End while
If a = Not b Then
T1 = 1
Else
T1 = 0
End If
If a = b & a = 1 Then
T2 = 1
Else
T2 = 0
End If
If T1 = 1 or T2 =1 Then
F=1
Else
F=0
End If
End Sub
End Module
Module VBModule
Sub Main()
Dim a,b,T1,T2,F,y as Integer
y= 1
while y = 1
a = Console.ReadLine()
b = Console.ReadLine()
If (a = 1 or a= 0) & (b = 1 or b=0) Then
y = 0
End If
End while
If a = Not b Then
T1 = 1
Else
T1 = 0
End If
If a = b & a = 1 Then
T2 = 1
Else
T2 = 0
End If
If T1 = 1 or T2 =1 Then
F=1
Else
F=0
End If
End Sub
End Module
