VB.NET技术求助：修正Duck Numbers判断及区间Even Numbers查找代码

Alright, let's work through your VB.NET tasks properly. First, let's clarify key definitions, then fix and explain the code for both requirements.

First, let's confirm what a Duck Number is: it's a positive integer that contains at least one 0 digit, but does not start with 0 (e.g., 102, 3050 are valid Duck Numbers; 012, 5, 0 are not).

Here's the corrected and commented code for your Button1_Click event (assuming you're using a TextBox for input and a Label to display results):

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' Grab and clean up user input
    Dim inputStr As String = TextBox1.Text.Trim()
    Dim num As Integer

    ' Validate input: make sure it's a positive integer
    If Not Integer.TryParse(inputStr, num) OrElse num <= 0 Then
        Label1.Text = "请输入有效的正整数！"
        Return
    End If

    Dim isDuckNumber As Boolean = False

    ' Rule 1: Duck numbers can't start with 0 (even if the parsed number is valid)
    If inputStr.Length > 1 AndAlso inputStr(0) = "0"c Then
        isDuckNumber = False
    Else
        ' Rule 2: Check if the number contains at least one 0
        For Each c As Char In inputStr
            If c = "0"c Then
                isDuckNumber = True
                Exit For ' No need to check further once we find a 0
            End If
        Next
    End If

    ' Display the result
    Label1.Text = If(isDuckNumber, $"{num} 是Duck Number！", $"{num} 不是Duck Number！")
End Sub

Key Explanations: #

• Input Validation: Using Integer.TryParse ensures we don't crash if the user enters non-numeric text, and we check that the number is positive (since Duck Numbers are positive).
• Leading Zero Check: We look at the original input string (not the parsed number) because something like "012" would parse to 12, but it's not a valid Duck Number.
• Efficient Check: We exit the loop as soon as we find a 0 digit to save unnecessary processing.

Even numbers are integers divisible by 2 (i.e., number Mod 2 = 0 in VB.NET). Here's the code to collect and display all even numbers between 10 and 100:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim startRange As Integer = 10
    Dim endRange As Integer = 100
    Dim evenNumbersList As New List(Of Integer)()

    ' Loop through the range and collect even numbers
    For i As Integer = startRange To endRange
        If i Mod 2 = 0 Then
            evenNumbersList.Add(i)
        End If
    Next

    ' Format the result to match your example
    Dim resultText As String = $"10到100之间的Even Numbers为 {String.Join(" ", evenNumbersList)}"
    Label2.Text = resultText

    ' If you want to output to the console instead, uncomment this:
    ' Console.WriteLine(resultText)
End Sub

Key Explanations: #

• List Collection: Using a List(Of Integer) makes it easy to gather all even numbers before formatting them into a single string.
• Even Check: i Mod 2 = 0 is the standard way to check for even numbers in VB.NET (it checks if there's no remainder when divided by 2).
• String Formatting: String.Join(" ", evenNumbersList) converts the list into a space-separated string, matching the output format you requested. The resulting output will include 10, 12, 14, ..., up to 100.

内容的提问来源于stack exchange，提问作者M.Karami