No.253 ロウソクの長さ on VB | Codetter（こーどったー）

'https://yukicoder.me/problems/no/253
Module Program
	Sub Main
		Dim numMin=10
		Dim numMax=1000000001
		Dim turn=0
		Do
			Dim chkNum=If(turn=0,100,CInt((numMin+numMax)/2))
			Console.WriteLine($"? {chkNum}")
			Dim chk=Console.ReadLine()
			If chk="1" Then: numMin=chkNum
			ElseIf chk="-1" Then: numMax=chkNum
			Else
				Console.WriteLine($"! {chkNum+turn}")
				Exit Do
			End If
			If 0<numMin Then numMin-=1
			numMax-=1
			turn+=1
		Loop
	End Sub
End Module