Question

编程vb题 编程显示100–500之间所有水仙花数，并求出它们的和(水仙花是3位数，其各位数的立方

编程vb题
编程显示100–500之间所有水仙花数，并求出它们的和(水仙花是3位数，其各位数的立方之和等于该数本身)

Answer 1

Private Sub Form_Click()
   Dim s As Integer
   Cls
   Print "所求水仙花数为：";
   For i = 100 To 500
      If i = (i Mod 10) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i \ 100) ^ 3 Then
         s = s + i
         Print i;
      End If
   Next i
   Print
   Print "它们的和为：" & s
End Sub

追问

这个也不懂，高手

追答

Private Sub Combo1_KeyPress(KeyAscii As Integer)
   Dim flag As Boolean
   If KeyAscii = 13 Then
      flag = False
      For i = 0 To Combo1.ListCount - 1
         If Combo1.Text = Combo1.List(i) Then
            flag = True
            Exit For
         End If
      Next i
      If flag = False Then
         Combo1.AddItem Combo1.Text
      End If
   End If
   
End Sub

追问

谢谢你

Answer 2

Private Sub Command1_Click()
    Dim i As Integer, s As Integer
    Dim sum As Integer
    Dim a As Integer, b As Integer, c As Integer
    Print "100到500所有水仙花数（也叫梅花数）：";
    For i = 100 To 500
        a = i \ 100      '取百位数
        b = i \10 Mod 10 '或 b = i Mod 100 \10  取十位数
        c = i Mod 10     ‘取个位数
        s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据
        If s = i Then
            Print i;
            sum = sum +i
        End If
    Next i
    Print "和为：" & sum 
End Sub