Двухмерный массив, просто массив и дана строка, состоящая из русских слов - VB

Узнай цену своей работы

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

Пожалуйста помогите=))))))и если можно напишите что значит каждая строка кода=) 1.Дан массив размера N и число k (0<k<5,k<N).заполнить массив случайными числами в диапазоне от 0 до 100.Осуществить циклический сдвиг элементов массива вправо на k позиций. 2.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими).Определить длину самого длинного слова. 3.Дан двухмерный массив целых чисел М(5,5),диапазон значений элементов массива-от -10 до 10 (Заполнить случайными числами). Создать новый массив N в ячейки А1:Е5 активного рабочего листа, а массив N в ячейку G1:К5.Ячейки G1:К5 выделить синим цветом (vbBlue).

Решение задачи: «Двухмерный массив, просто массив и дана строка, состоящая из русских слов»

textual
Листинг программы
Private Sub Command1_Click()
Dim text, maxLen As Integer, a
text = InputBox("text")
a = Split(text, " ")
maxLen = Len(a(0))
For i = 0 To UBound(a)
a(i) = Replace(a(i), " ", "")
If Len(a(i)) > maxLen Then maxLen = Len(a(i))
Next i
MsgBox maxLen
End Sub

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

8   голосов , оценка 4 из 5
Похожие ответы