No.246 質問と回答 on VB | Codetter（こーどったー）

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