判断自然数的阶乘大于等于４００,然后计算此数的平方，再一次减1计算其平方和，直到数字减小到0（演示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         Do
10             Do While number >= 0
11                 number += 1
12                 Value1 *= number
13 
14                 If Value1 >= 4000 Then
15                     TextBox1.Text = number
16 
17                     Do
18                         Value2 += number ^ 2
19                         number -= 1
20                     Loop Until number = 0
21 
22                     TextBox2.Text = Value2
23                     Check = False
24 
25                     Exit Do
26                 End If
27             Loop
28         Loop Until (Check = False)
29 
30     End Sub
31 
32     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
33         TextBox1.Clear()
34         TextBox2.Clear()
35     End Sub
36 End Class

 

转载于:https://www.cnblogs.com/wocn/archive/2013/03/28/vb_net_while_until_do_exit.html