Зависает программа - VB

Формулировка задачи:

Всем привет! Excel виснет при вставке данной функции:

Public Function autom(n, m As Integer)
 Dim i, x, buf As Integer
 Dim st As String
 For i = n To m
  x = i ^ 2
  While i < x
   buf = x Mod 10
   x = buf
  Wend
  If i = x Then
   st = st & i & "; "
  End If
  Next i
  autom = st
End Function

Что не так? подскажите

Решение задачи: «Зависает программа»

textual
                            Листинг программы 
                        

                            Public Function autom2(n As Long, m As Long)
 Dim i As Long
 Dim st As String
 For i = n To m
  If i * i Mod (1 & String(Len(CStr(i)), "0")) = i Then
    st = st & i & "; "
  End If
  Next i
  autom2 = st
End Function
                        

Оцени полезность:

7 голосов , оценка 4.143 из 5

Похожие ответы