Использование стандартных элементов управления Кнопка, Метка и Текстовое поле. Многострочные текстовые поля. Пример использования

Form1.Cls

End Sub

Private Sub Command5_Click()

End

End Sub

Приложение Г

 

 

Программа к Заданию 3.1, составленная на языке программирования Visual Basic 6.0.

 

 

Рисунок Г.1. – Результат работы Задание 3.1

 

Таблица Г.1 – Установка свойств элементам управления

Эл. управления	Свойства	Значения
Форма	Name	Form1
	Caption	Form1
Командная кнопка	Name	Command1
	Caption	Ввести массив А
Командная кнопка	Name	Command2
	Caption	Очистить
Командная кнопка	Name	Command3
	Caption	Выход
Командная кнопка	Name	Command4
	Caption	Ввести массив В
Командная кнопка	Name	Command5
	Caption	Отсортировать

 

Продолжение приложения Г

 

Программный код к Заданию 3.1:

 

Dim n As Integer

Dim m As Integer

Dim i As Integer

Dim b() As Integer

Dim a() As Integer

Dim k As Integer

Dim c() As Integer

Dim f As Integer

Dim r As Integer

Private Sub Command1_Click()

k = 0

Print "Ìàññèâ À:"

n = Val(InputBox("Ââåäèòå  ðàçìåð ìàññèâà À"))

ReDim a(n) As Integer

For i = 1 To n

a(i) = Val(InputBox("Ââåäèòå  ýëåìåíòû ìàññèâà À"))

Print a(i);

If a(i) > 0 Then

k = k + 1

ReDim Preserve c(k + 1)

c(k) = a(i)

End If

Next i

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Продолжение приложения Г

 

Print

Print "Ìàññèâ B:"

m = Val(InputBox("Ââåäèòå  ðàçìåð ìàññèâà B"))

ReDim b(m)

For i = 1 To m

b(i) = Val(InputBox("Ââåäèòå  ýëåìåíòû ìàññèâà B"))

Print b(i);

If b(i) > 0 Then

k = k + 1

ReDim Preserve c(k + 1)

c(k) = b(i)

End If

Next i

End Sub

Private Sub Command5_Click()

Print

Print "Ìàññèâ Ñ:"

k1: f = 0

For i = 1 To k - 1

If c(i) <= c(i + 1) Then GoTo k2

r = c(i)

c(i) = c(i + 1)

c(i + 1) = r

f = 1

k2: Next i

If f = 1 Then GoTo k1

For i = 1 To k

Print c(i);

Next i

End Sub

 

 

Приложение Д

 

Программа к Заданию 3.2, составленная на языке программирования Visual Basic 6.0.

 

 

Рисунок Д.1. – Результат работы Задание 3.2

 

Таблица Д.1 – Установка свойств элементам управления

Эл. управления	Свойства	Значения
Форма	Name	Form1
	Caption	Form1
Командная кнопка	Name	Command1
	Caption	Ввести массив А
Командная кнопка	Name	Command2
	Caption	Очистить
Командная кнопка	Name	Command3
	Caption	Выход
Командная кнопка	Name	Command4
	Caption	Ввести массив В
Командная кнопка	Name	Command5
	Caption	Отсортировать

 

 

Продолжение приложения Д

 

Программный код к Заданию 3.2:

 

Dim n As Integer

Dim m As Integer

Dim i As Integer

Dim b() As Integer

Dim a() As Integer

Dim k As Integer

Dim c() As Integer

Dim j As Integer

Dim w As Integer

Private Sub Command1_Click()

k = 0

Print "Ìàññèâ À:"

n = Val(InputBox("Ââåäèòå  ðàçìåð ìàññèâà À"))

ReDim a(n) As Integer

For i = 1 To n

a(i) = Val(InputBox("Ââåäèòå  ýëåìåíòû ìàññèâà À"))

Print a(i);

If a(i) > 0 Then

k = k + 1

ReDim Preserve c(k + 1)

c(k) = a(i)

End If

Next i

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Продолжение приложения Д

 

Print

Print "Ìàññèâ B:"

m = Val(InputBox("Ââåäèòå  ðàçìåð ìàññèâà B"))

ReDim b(m)

For i = 1 To m

b(i) = Val(InputBox("Ââåäèòå  ýëåìåíòû ìàññèâà B"))

Print b(i);

If b(i) > 0 Then

k = k + 1

ReDim Preserve c(k + 1)

c(k) = b(i)

End If

Next i

End Sub

Private Sub Command5_Click()

Print

Print "Ìàññèâ Ñ:"

For j = 2 To k

i = j - 1

w = c(j)

Do While w < c(i)

c(i + 1) = c(i)

i = i - 1

Loop

c(i + 1) = w

Next j

For i = 1 To k

Print c(i);

Next i

End Sub