vb do while_知道

vb do while_知道

瀏覽:462
日期:2026-04-22
最佳答案: Private Sub Command1_Click() Dim a, b, c As Long a = 1 b = 1 c = 1 Do While a < 20 b = 1 Do While b < 20 c = 1 Do While c < 20 If a * a + b * b = c * c Then Print a, b, c End If c = c + 1 ......看更多