4924

Освоение элементов управления и файлов в среде Visual Basic

Лабораторная работа

Информатика, кибернетика и программирование

Освоение элементов управления и файлов в среде VB. Цель работы: овладеть навыками программирования с использованием стандартных элементов управления и файлов. Вариант №11 Задание: Считать матрицу 3*3 из текстового файла...

Русский

2012-11-29

63.5 KB

5 чел.

Освоение элементов управления и файлов в среде VB.

Цель работы: овладеть навыками программирования с использованием стандартных элементов управления и файлов.

Вариант №11

Задание: 

  1.  Считать матрицу 3*3 из текстового файла “test.txt”; вывести матрицу в TextBox.
  2.  Ввести матрицу 3*3 поэлементно, вывести ее в TextBox, при этом каждый элемент умножается на 2. Вычислить сумму диагонали.

Решение:

Для начала работы следует создать проект. Далее помещаем на форму Button (3 шт.). Также на форме следует разместить TextBox (1шт).

Необходимо создать файл, в данном случае с именем “test.txt” где будет храниться каждый элемент матрицы, к примеру:

11,12,13

21,22,23

31,32,33

Таким образом получаем следующую форму:

                                                        Блок-схема

                                       Программа

Сначала следует щелкнуть по форме два раза и вставить следующий программный код:

Public Class Form1

   Dim ar(3, 3) As Integer

   Dim i, j As Integer

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles Button2.Click

       End

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles Button1.Click

       Using MyReader As New _

        Microsoft.VisualBasic.FileIO.TextFieldParser("test.txt", System.Text.Encoding.UTF8)

           MyReader.TextFieldType = FileIO.FieldType.Delimited

           MyReader.SetDelimiters(",")

           Dim currentRow As String()

           While Not MyReader.EndOfData

               currentRow = MyReader.ReadFields()

               Dim currentField As String

               For Each currentField In currentRow

                   ar(i, j) = currentField

                   T1.Text = T1.Text + Str(ar(i, j)) + " "

                   j = j + 1

                   If j > 2 Then

                       j = 0

                       i = i + 1

                       T1.Text = T1.Text + Chr(13) + Chr(10)

                   End If

               Next

           End While

       End Using

   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles Button3.Click

       Dim max As Integer

       T1.Text = ""

       For i = 0 To 2

           For j = 0 To 2

               ar(i, j) = InputBox(Str(i + 1) + ":" + Str(j + 1)) * 2

               T1.Text = T1.Text + Str(ar(i, j))

           Next j

           T1.Text = T1.Text + Chr(13) + Chr(10)

       Next i

       For i = 0 To 2

           max = max + ar(i, i)

       Next i

       T1.Text = T1.Text + "Сумма диагонали" + Str(max)

   End Sub

End Class

  1.  Результат работы программы:

Вывод: я овладел навыками программирования с использованием стандартных элементов управления и файлов.


 

А также другие работы, которые могут Вас заинтересовать

67037. День Рождения. Покупки. Mein Geburtstag. Einkaufen 56 KB
  Цель урока: Развитие навыков говорения по теме. Формирование навыков культуры поведения, соблюдение правил этикета во время праздника. Оборудование: учебник, рабочая тетрадь, схема супермаркета, картинки с рисунками товаров, поздравительные открытки, приглашение на день рождения.
67038. Johann Wolfgang von Goethe – das Gesicht der deutschen Literatur 3.79 MB
  Літературознавчий матеріал розрахований для використання на уроках в старших класах, для проведення позакласних заходів під час шкільних предметних тижнів іноземної мови, для роботи гуртків та факультативів з німецької мови. За допомогою тематичної лексики, тематичних текстів...
67039. План-конспект уроку здоров’я та фізичної культури у початковій школі 81 KB
  Мета уроку: Сприяти зміцненню здоровя учнів; виховувати свідоме ставлення до занять фізичною культурою та ведення здорового способу життя; формування навичок самостійних занять фізичними вправами; профілактика захворювань: сколіоз плоскостопість; формування ключових компетентностей.
67040. Кольорові сни 11.09 MB
  Ознайомити учнів з основами кольорознавства; формувати в учнів відчуття і розуміння художніх засобів виразності колориту палітри колірної гами; засвоїти мистецьку термінологію; визначити значення кольорів в народно-прикладному мистецтві; дослідити вплив кольорів на настрій людини; кольоромузика...
67041. Обобщение знаний по теме «Глагол» (урок-аукцион) 52.5 KB
  В городе в данное время очень много больных скарлатиной. Время глагола Письмо от друга-иностранца. Однажды на уроке после объяснения новой темы Время глагола учитель вызвал ученика и спросил: Если я говорю я умываюсь ты умываешься он умывается мы умываемся вы умываетесь они умываются то какое это время...
67042. О самом главном 89 KB
  Цель. Повысить готовность учащихся к самозащите в случае бедствий или аварий, научить организовывать жизнеобеспечение в чрезвычайных ситуациях. Развивать чувство ответственности, творческого самостоятельного обучения. Воспитывать чувство милосердия, интерес к полученной информации.
67043. СОВЕРШЕНСТВОВАНИЕ СИСТЕМЫ ПОВЫШЕНИЯ КВАЛИФИКАЦИИ КАДРОВ В ОРГАНИЗАЦИИ 1.11 MB
  Изучить теоретические основы системы повышения квалификации; провести анализ исследуемого предприятия и действующей системы обучения персонала; выявить основные проблемы, связанные с эффективным повышением квалификации сотрудников; разработать методические рекомендации по совершенствованию системы повышения квалификации персонала...
67044. Вмій дружбою дорожити 132 KB
  Тип заходу: метод проектів створення колективної творчої роботи сюжетного малюнка на дошці по сценарію заходухлопчик з дівчинкою друзі під сонцем з написом ДРУЖБА промені якого містять Золоті правила спілкування хмаринки уточнення поняття дружби в небі птахи на крилах яких поради...
67045. Година здоров’я «Богатирські яблука» 44.5 KB
  Мета: ознайомити дітей з корисними властивостями яблука, зміцнювати здоров’я дітей, розвивати бажання пізнати нове, розширювати знання дітей про яблука, виховувати естетичний смак, дбайливе ставлення до природи, прагнення дітей бути здоровими, сильними.