Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Narcissistic-decimal-number/VBScript/narcissistic-decimal-number.vb
+++ b/Task/Narcissistic-decimal-number/VBScript/narcissistic-decimal-number.vb
@ -0,0 +1,17 @@
+Function Narcissist(n)
+	i = 0
+	j = 0
+	Do Until j = n
+		sum = 0
+		For k = 1 To Len(i)
+			sum = sum + CInt(Mid(i,k,1)) ^ Len(i)
+		Next
+		If i = sum Then
+			Narcissist = Narcissist & i & ", "
+			j = j + 1
+		End If
+		i = i + 1
+	Loop
+End Function
+
+WScript.StdOut.Write Narcissist(25)