Question

我的程序需要将所有 EVEN 数字写入等于或低于我输入的数字。

这是到目前为止。我不明白为什么它不起作用。

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles                 Button1.Click
            Dim nombre As Integer
            Dim valca As Integer
            number = Convert.ToInt16(txtnombre.Text)
            While number > 0
                number -= 1
                valca = number Mod 2
                If valca = 0 Then
                    lblreponse.Text += CStr(number) + " "
                Else
                    lblreponse.Text = " "
                End If
            End While
        End Sub
    End Class

Answer 1

  If valca = 0 Then
      lblreponse.Text += CStr(number) + " "
  Else
      lblreponse.Text = " "
  End If

如果数字是奇数，则lblreponse.Text被覆盖并带有空格。之前的所有数据都将丢失。

你想做的可能只是

  If valca = 0 Then
      lblreponse.Text += CStr(number) + " "
  End If

^{^{实际上......一旦得到偶数，为什么不继续减去两个而不是一个？}}

列出所有较小的偶数

1 个答案: