Чтобы это выполнялось для одного числа я сделал. А как сделать чтобы это выполнялось для нескольких чисел введенных через запятую, то есть для строки
Вот листинг программы для одного числа:
Код: Выделить всё
Option Explicit
Sub kvad(ByRef n As String, ByRef k As String)
Dim i, j As Integer
k = "нельзя"
For i = 1 To n
For j = 1 To n
If n = (i * i) + (j * j) Then
k = "можно"
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim num As String, kol As String
num = Val(Text1.Text)
kvad num, kol
Print kol
End Sub