如何在vb.net中编写此代码？

Question

我正在尝试将此代码翻译成VB.NET，但我不知道如何翻译。
Pyton代码：

import math
skippie=raw_input("If you know how to do this, enter skip ")
if skippie=="skip":

found = False
varmin=1
varmax=100
while not found:

    guess = (varmax+varmin)/2
    ans=raw_input("Is your input larger (l), smaller(s), or equal to (e) than " + str(guess) + " ")
    if ans == "L" or ans == "l":
        varmin = guess
    elif ans == "S" or ans == "s":
        varmax = guess
    else:
        print "Yay! I got it!"
        found = True

Pastebin代码：pastebin link

Answer 1

我认为这段代码可以改进，但我认为将其与原始代码保持非常接近会更有帮助：

Console.WriteLine("If you know how to do this, enter skip")
Dim skippie As String = Console.ReadLine()
If skippie = "skip" Then
    Dim found As Boolean = False
    Dim varmin As Integer = 1
    Dim varmax As Integer = 100
    While Not Found
        Dim guess As Integer = (varmax + varmin) / 2
        Console.WriteLine("Is your input larger than (l), smaller than (s), or equal to (e) {0}?", guess.ToString)
        Dim ans As String = Console.ReadLine()
        If ans = "L" Or ans = "l" Then
            varmin = guess
        ElseIf ans = "S" Or ans = "s" Then
            varmax = guess
        Else
            Console.WriteLine("Yay! I got it!")
            found = True
        End If
    End While
End If

下次，请尝试在发布之前自己翻译代码，并将您的尝试与结果一起发布

编辑：Windows窗体版本

If InputBox("If you know how to do this, enter skip") = "skip" Then
    Dim varmin As Integer = 1
    Dim varmax As Integer = 100
    Do
        Dim guess As Integer = (varmax + varmin) / 2
        Select Case UCase(InputBox("Is your input larger than (l), smaller than (s), or equal to (e) " & guess.ToString & "?"))
            Case "L"
                varmin = guess
            Case "S"
                varmax = guess
            Case "E"
                MsgBox("Yay! I got it!")
                Exit Do
        End Select
    Loop
End If

我对这个版本也做了一些风格上的改变。（大部分情况下，我消除了不必要的变量）行为是相同的，但在我看来，第二个版本更vb.net，而第一个版本更python