31 lines
435 B
VB.net
31 lines
435 B
VB.net
|
count = 0
|
||
|
|
firsteigth=""
|
||
|
|
For i = 1 To 100
|
||
|
|
If IsHappy(CInt(i)) Then
|
||
|
|
firsteight = firsteight & i & ","
|
||
|
|
count = count + 1
|
||
|
|
End If
|
||
|
|
If count = 8 Then
|
||
|
|
Exit For
|
||
|
|
End If
|
||
|
|
Next
|
||
|
|
WScript.Echo firsteight
|
||
|
|
|
||
|
|
Function IsHappy(n)
|
||
|
|
IsHappy = False
|
||
|
|
m = 0
|
||
|
|
Do Until m = 60
|
||
|
|
sum = 0
|
||
|
|
For j = 1 To Len(n)
|
||
|
|
sum = sum + (Mid(n,j,1))^2
|
||
|
|
Next
|
||
|
|
If sum = 1 Then
|
||
|
|
IsHappy = True
|
||
|
|
Exit Do
|
||
|
|
Else
|
||
|
|
n = sum
|
||
|
|
m = m + 1
|
||
|
|
End If
|
||
|
|
Loop
|
||
|
|
End Function
|