Найти члены последовательности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д