12 lines
420 B
Text
12 lines
420 B
Text
Public Sub Form_Open()
|
|
Dim sIn As String = InputBox("Enter 2 integers seperated by a comma")
|
|
Dim iFirst, iSecond As Integer
|
|
|
|
iFirst = Val(Split(sIn)[0])
|
|
iSecond = Val(Split(sIn)[1])
|
|
|
|
If iFirst < iSecond Then Print iFirst & " is smaller than " & iSecond & gb.NewLine
|
|
If iFirst > iSecond Then Print iFirst & " is greater than " & iSecond & gb.NewLine
|
|
If iFirst = iSecond Then Print iFirst & " is equal to " & iSecond
|
|
|
|
End
|