Проектирование приложений в среде Visual Basic 6.0 и СУБД MS Access

    Dim min As Single

    Dim max As Single

    Dim n As Integer

    Dim i As Integer

    List1.Clear

    n = InputBox("введите длинну массива")

    ReDim a(1 To n)

    For i = 1 To n

        a(i) = InputBox("введите элемент массива")

        List1.List(i - 1) = a(i)

    Next i

 

    min = a(1)

    max = a(1)

    For i = 2 To n

        If a(i) < min Then min = a(i)

        If a(i) > max Then max = a(i)

    Next i

 

 

10

 

Label2.Caption = "Максимальный элемент " + Str(max) + " больше минимального " +

Str(min) + " в " + Str(max / min) + " раз."

 

End Sub______________________

 

Private Sub Command2_Click()

  End

End sub

 

Результат выполнения программы.

 

 

Нажимаем  клавишу запуск, заполняем массив и в Label выводится ответ задачи.

 
 
 
 
 
 
 
 
 
 
 
 
 

11

 

ЗАДАЧА  №4.

 

Условие: Дан массив A(N,M). Найти среднее арифметическое элементов массива,   значения которых меньше заданного, в каждом столбце массива.

 

Расположение  объектов на форме.

 

 

Программный код.

 

Private Sub Command1_Click()

    Dim a() As Single

    Dim num As Single

    Dim n As Integer

    Dim m As Integer

    Dim i As Integer

    Dim j As Integer

    Dim st As String

    Dim sum As Single

    Dim q As Integer

 

    n = InputBox("введите количество строк")

    m = InputBox("введите количество столбцов")

    num = InputBox("введите число")

    kol = 0

    List1.Clear

    ReDim a(1 To n, 1 To m)

12

    For i = 1 To n

        st = ""

        For j = 1 To m

            a(i, j) = InputBox(Str(i) + ", " + Str(j) + ": введите элемент")

            st = st + Str(a(i, j)) + " "

        Next j

        List1.List(i - 1) = st

    Next i

   

    st = ""

    For j = 1 To m

        sum = 0: q = 0

        For i = 1 To n

            If a(i, j) < num Then

                sum = sum + a(i, j)

                q = q + 1

            End If

        Next i

        If q = 0 Then

            st = st + "0 "

        Else

            st = st + Str(sum / q) + " "

        End If

    Next j

   

    List1.List(n) = "Средние арифметические  среди элементов меньше " + Str(num) + ":"

    List1.List(n + 1) = st

End Sub________________________________

 

Private Sub Command2_Click()

End

End Sub

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

13 
Результат выполнения программы.

 

   

 

   ЗАДАЧА  №5.

 
 

Условие: Написать процедуру, которая четные числа в одномерном массиве заменяет нулями. Применить эту процедуру к заданному массиву.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

14 
Расположение объектов на форме.

 

 

Программный код.

 

Private Sub Command1_Click()

    Dim a() As Single

    Dim num As Single

    Dim n As Integer

    Dim m As Integer

    Dim i As Integer

    Dim j As Integer

    Dim st As String

    Dim sum As Single

    Dim q As Integer

 

    n = InputBox("введите количество строк")

    m = InputBox("введите  количество столбцов")

    num = InputBox("введите  число")

    kol = 0

    List1.Clear

    ReDim a(1 To n, 1 To m)

 

    For i = 1 To n

     

15

  st = ""

        For j = 1 To m

            a(i, j) = InputBox(Str(i) + ", " + Str(j) + ": введите элемент")

            st = st + Str(a(i, j)) + " "

        Next j

        List1.List(i - 1) = st

    Next i

   

    st = ""

    For j = 1 To m

        sum = 0: q = 0

        For i = 1 To n

            If a(i, j) < num Then

                sum = sum + a(i, j)

                q = q + 1

            End If

        Next i

        If q = 0 Then

            st = st + "0 "

        Else

            st = st + Str(sum / q) + " "

        End If

    Next j

   

    List1.List(n) = "Средние арифметические среди  элементов меньше " + Str(num) + ":"

    List1.List(n + 1) = st

End Sub_______________________________________________

 

Private Sub Command2_Click()

End

End Sub

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

16 
Результат выполнения программы.

 

 

ЗАДАЧА  №6.

 

Условие: Имеются сведения о городах: название, количество осадков 1 июля. Определить город, в котором было меньше всего осадков и само это количество осадков.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

17 
Расположение объектов на форме.

 

 

Программный код.

 

Private Type data

    naz As String * 20

    osad As Integer

End Type__________________________________

 

Private Sub Command1_Click()

    MSFlexGrid1.Clear

    Dim dan As data

    Dim i As Integer

    Open "aa.dat" For Random As #1 Len = Len(dan)

    Do

        dan.naz = InputBox("введите название города")

        dan.osad = InputBox("введите количество  осадков")

        Put #1, , dan

    Loop Until MsgBox("Продолжить ввод?", 36) = vbNo

    MsgBox "файл создан"

    Close #1

   

    Open "aa.dat" For Random As #1 Len = Len(dan)

 

18

    For i = 1 To LOF(1) / Len(dan)

        Get #1, , dan

        MSFlexGrid1.TextMatrix(i, 0) = dan.naz

        MSFlexGrid1.TextMatrix(i, 1) = dan.osad

    Next i

    Close #1

End Sub

 

Private Sub Command2_Click()

    Dim i As Integer

    Dim min As Integer

    Dim dan As data

    Dim naz As String

 

    Open "aa.dat" For Random As #1 Len = Len(dan)

    Get #1, , dan

    min = dan.osad

    naz = dan.naz

    For i = 2 To LOF(1) / Len(dan)

        Get #1, , dan

        If min > dan.osad Then

            min = dan.osad

            naz = dan.naz

        End If

    Next i

    Close #1

   

    MsgBox "Минимальное количество осадков(" + Str(min) + ") в городе " + naz

End Sub_____________________________________________________

 

Private Sub Command3_Click()

    Kill "aa.dat"

End Sub

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

19

Результат выполнения программы.

 

 
 
 
 
 
 

ЗАДАЧА  №7

 
 
 
 

Условие: Имеются сведения о музеях : название, количество экспонатов, количество экспонатов в запасном фонде. Вывести сведения о музеях, в которых количество экспонатов в запасном фонде больше 30% от количества экспонатов.

 
 
 
 
 
 
 
 

20 
Расположение объектов на форме.