Найти члены последовательности - VB
Формулировка задачи:
Даны натуральные числа n, a1, a2, ..., an. Найти члены последовательности являющиеся полными квадратами.
Сделать нужно через Sub/End Sub, с InputBox и MsgBox в ответе.
Число n вводиться через клавиатуру, числа a1, a2, ..., an - рандом.
И нужно чтоб всё происходило не на листах Exsel'я, а отдельных окнах.
Вот пример другой задачи, которую я решил, нужно чтоб выглядело похоже:
Задача:
Дана строка символов. Подсчитать наибольшее количество идущих подряд пробелов.
Мой код:
Решение задачи: «Найти члены последовательности»
textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, A() As Integer
Dim i As Integer, s As String, ss As String
n = InputBox("n = ", , 10)
ReDim A(1 To n)
Randomize
For i = 1 To n
A(i) = Int(Rnd * 100 + 1)
If Sqr(A(i)) = Int(Sqr(A(i))) Then ss = ss & A(i) & " "
s = s & CStr(A(i)) & " "
Next i
If ss = "" Then
MsgBox "В ряду чисел" & vbCrLf & s & _
vbCrLf & "полных квадратов нет."
ElseIf UBound(Split(ss, " ")) = 1 Then
MsgBox "В ряду чисел" & vbCrLf & s & _
vbCrLf & "полным квадратoм является число" & _
vbCrLf & ss
Else
MsgBox "В ряду чисел" & vbCrLf & s & _
vbCrLf & "полными квадратами являются числа" & _
vbCrLf & ss
End If
End Sub