Question

vb，找出所有三位水仙花数，并将它们的最大与最小值显示在文本框t1和t2

Answer 1

Private Sub Command1_Click()
Dim k1 As Integer, k2 As Integer, k3 As Integer, x As Integer
t1.Text = ""
t2.Text = ""
For k1 = 1 To 9
    For k2 = 0 To 9
        For k3 = 0 To 9
            x = Val(k1 & k2 & k3)
            If k1 ^ 3 + k2 ^ 3 + k3 ^ 3 = x Then
                Print x;
                If t2.Text = "" Then
                    t2.Text = x
                Else
                    t1.Text = x
                End If
            End If
        Next k3
    Next k2
Next k1
End Sub

Answer 2

Private Sub Command1_Click()
Dim i, j, m, n, min, max As Integer
For n = 100 To 999
i = n \ 100
j = (n Mod 100) \ 10
m = n Mod 10
If i ^ 3 + j ^ 3 + m ^ 3 = n Then
If min = 0 Then
  min = n
End If
If max < n Then max = n
End If
Next n
t1.Text = min
t2.Text = max
End Sub

追问

能再帮忙解决个吗？谢谢

Answer 3

我可以帮你搞，QQ8152456