Public Function displayArmstrongNumbers() Dim i, num As Integer Dim res As Integer Dim s As Integer For i = 2 To 1000 num = i s = 0 While num > 0 res = num Mod 10 s = s + (res * res * res) num = num \ 10 End While If i = s Then Return i End If Next Return displayArmstrongNumbers() End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox(“Armsrtong Numbers betwwen 1 To 1000 are : ” & displayArmstrongNumbers()) End Sub