Может ли помочь мне исправить свой код vb?

Question

Dim age As Integer = 1 

Do While 1980 + age <> age * age 
    lblResult.Text = "The solution is " & age & " years old." 
    age = age + 1 
Loop 

Когда я запускаю эту программу, она даст 44, а не 45. Есть ли что-нибудь с ней?

Answer 1

Проблема заключается в том, что код обновляет lblResult.Text, прежде чем он увеличиваетage, поэтому, когда age увеличивается от 44 до 45, цикл завершается без обновления метки, чтобы показать окончательное значение age.

Чтобы исправить код, обновите lblResult.Textпосле с приращением age. Хотя вы могли бы сделать это внутри цикла ...

Do While 1980 + age <> age * age 
    age = age + 1 
    lblResult.Text = "The solution is " & age & " years old." 
Loop 

... достаточно обновить этикетку только один раз, после завершения цикла:

Do While 1980 + age <> age * age 
    age = age + 1 
Loop 

lblResult.Text = "The solution is " & age & " years old."