Да ладно вам, найдите пару минут дабы помочь человеку (тем более не ему, а
Сыну моего соседа )
1.
3. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем все символы, расположенные на нечетных позициях (например строка «Программа» превратиться в «ргамамроП»).
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public Sub test()
Dim strIn As String
Dim strOut As String
Dim i As Integer
strIn = "Программа"
strOut = ""
'четные в начале строки
For i = 2 To Len(strIn) Step 2
strOut = strOut + Mid(strIn, i, 1 )
Next
'потом нечетные
For i = 1 To Len(strIn) Step 2
strOut = strOut + Mid(strIn, i, 1 )
Next
Debug.Print strOut
End Sub
1.
4. Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Найти количество слов, которые содержат хотя бы одну букву «А».
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Public Sub test1()
Dim strIn As String
Dim i As Integer
Dim countWords As Integer
Dim InWords As Boolean
strIn = "Это тестовая строка в которой будем подсчитывать количество бкув А"
countWords = 0
InWords = True
For i = 1 To Len(strIn)
'если "пробел", то начинается новое слово
If Mid(strIn, i, 1 ) = " " Then InWords = True
'если в новом слове и буква "АЭ , то увеличиваем кол-острок
If InWords And UCase(Mid(strIn, i, 1)) = "А" Then
countWords = countWords + 1
InWords = False
End If
Next i
Debug.Print Str(countWords)
End Sub
5. Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами: А2,А4,А6,…..
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Sub test2()
Dim Mas( 10 ) As Integer
Dim MinZnach As Integer
Dim i As Integer
MinZnach = 32767
For i = 0 To 10 Step 2
If MinZnach > Mas(i) Then MinZnach = Mas(i)
Next
Debug.Print MinZnach
End Sub
cipi занимался программированием
выше приведенное немного освежит память, и не составить труда доделать остальные задания, особенно про матрицы
А мы поможем :-)
I Have Nine Lives You Have One Only
THINK!
