Determine whether the factorial of a natural number is greater than or equal to 400, then calculate the square of the number, and then subtract 1 to calculate the sum of squares until the number is reduced to 0 (demonstration Exit DO)

View Code

 1 Public Class Form1 2  3     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 4         Dim number As Integer = 0 5         Dim Check As Boolean = True 6         Dim Value1 As Integer = 1 7         Dim Value2 As Integer = 0 8  9         Do10             Do While number >= 011                 number += 112                 Value1 *= number13 14                 If Value1 >= 4000 Then15                     TextBox1.Text = number16 17                     Do18                         Value2 += number ^ 219                         number -= 120                     Loop Until number = 021 22                     TextBox2.Text = Value223                     Check = False24 25                     Exit Do26                 End If27             Loop28         Loop Until (Check = False)29 30     End Sub31 32     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click33         TextBox1.Clear()34         TextBox2.Clear()35     End Sub36 End Class