程序: Private Sub CommandButton1_Click() Dim x As Integer Dim y As Integer x = 1 y = 1 l = 2 With Sheet1 .Cells.Clear .Cells(1, 1) = x .Cells(1, 2) = y For x = 1 To 100 For y = 1 To 100 If 1 / x + 1 / y = 2 / 3 Then .Cells(l, 1) = x .Cells(l, 2) = y l = l + 1 End If N ...