VvodDannih
End Sub
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem -4
List1.AddItem 2
List1.AddItem -5
List1.AddItem -2
List1.AddItem 5
List1.AddItem -3
List1.AddItem 8
List1.AddItem -5
List1.AddItem 1
End Sub
Sub VvodDannih()
Dim m(1 To 10) As Integer
For i = 1 To 10
m(i) = List1.List(i - 1)
Next i
Debug.Print "Исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call cv10(m())
End Sub
Sub cv10(m1() As Integer)
k = 0
While k <> 2
n = m1(10)
For i = 10 To 2 Step -1
m1(i) = m1(i - 1)
Next i
m1(1) = n
k = k + 1
Wend
Dim path As String
path = "F:\govno.txt"
rez = ""
rez = rez + "Конечный массив" + vbCrLf
For i = 1 To 10
rez = rez + Str(m1(i))
Next i
Open path For Append As #1
Print #1, rez
Close #1
End Sub
11. Одномерный массив из положительных и отрицательных чисел сдвинуть влево на 3 позиции.Ввод рандом.вывод текстбокс
Sub zadacha11()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = Int(Rnd() * 100) + 1 - 50
Next i
Debug.Print "Исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call cv11(m())
End Sub
Sub cv11(m1() As Integer)
k = 0
While k <> 3
n = m1(1)
For i = 2 To 10
m1(i - 1) = m1(i)
Next i
m1(10) = n
k = k + 1
Wend
Text1.Text = "Новый массив" + vbCrLf
For i = 1 To 10
Text1.Text = Text1.Text & Str(m1(i)) & " "
Next i
Text1.Text = Text1.Text + vbCrLf
End Sub
Private Sub Command1_Click()
zadacha11
End Sub
12. В одномерном массиве из положительных и отрицательных чисел отсортировать по возрастанию нечетные элементы. Ввести с клавиатуры, вывести на форму
Sub zadacha12()
Dim m(1 To 10) As Integer
For i = 1 To 10
m(i) = InputBox("Введите " & i & "число")
Next i
Debug.Print "Исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
rez = ""
rez = rez + "Исходный массив" + vbCrLf
For i = 1 To 10
rez = rez + Str(m(i))
Next i
Print rez
Call cv12(m())
End Sub
Sub cv12(m1() As Integer)
For i = 1 To 10
For j = i + 1 To 10
If m1(i) Mod 2 <> 0 And m1(j) Mod 2 <> 0 And m1(j) < m1(i) Then
a = m1(i)
m1(i) = m1(j)
m1(j) = a
End If
Next j
Next i
Print "Конечный массив"
For i = 1 To 10
Print m1(i);
Next i: Debug.Print: Debug.Print
End Sub
Private Sub Command1_Click()
zadacha12
End Sub
13. В одномерном массиве из положительных и отрицательных чисел отсортировать по убыванию отрицательные элементы.
Ввод листбокс. Вывод на диск
Private Sub Command1_Click()
VvodDannih
End Sub
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem -4
List1.AddItem -7
List1.AddItem 4
List1.AddItem -2
List1.AddItem 5
List1.AddItem -10
List1.AddItem 8
List1.AddItem -5
List1.AddItem 1
End Sub
Sub VvodDannih()
Dim m(1 To 10) As Integer
For i = 1 To 10
m(i) = List1.List(i - 1)
Next i
Debug.Print "Исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call obrabotka(m())
End Sub
Sub obrabotka(m() As Integer)
For i = 1 To 9
For j = i + 1 To 10
If m(i) < 0 Then
If m(j) < 0 Then
If m(j) > m(i) Then
a = m(i)
m(i) = m(j)
m(j) = a
End If
End If
End If
Next j
Next i
' Вывод результата
Dim path As String
path = "F:\govno.txt"
rez = ""
rez = rez + "Конечный массив" + vbCrLf
For i = 1 To 10
rez = rez + Str(m(i))
Next i
Open path For Append As #1
Print #1, rez
Close #1
End Sub
14. В одномерном массиве из положительных и отрицательных чисел отсортировать по возрастанию положительные нечетные элементы.
Ввод с диска. Вывод в листбокс.
Private Sub Command1_Click()
vvod
End Sub
Sub vvod()
Dim m(1 To 10) As Integer
номер = FreeFile
Open "F:\soft\infa\a1.txt" For Input As номер
Print "Исходный массив"
For i = 1 To 10