vb：Private Sub Form_Click() Dim a,b,c ,x As Integer For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 x=100 * c + 10 * b + a If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then print x; Next c Next b Nex...