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.  Результат работы программы:

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


 

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

24262. Мы вправе знать, что носим (Названия одежды) 42.04 KB
  Определить источники заимствования слов со значением одежда, из каких языков они пришли в русский, выяснить происхождение слов, провести анкетирование школьников, составить буклет и краткий словарь иностранных и исконно русских слов.
24263. Структура имиджа 34.5 KB
  Структура имиджа Одним из важных аспектов общего восприятия и оценки организации является впечатление которое она производит то есть ее имидж образ. Имидж объективный фактор играющий существенную роль в оценке любого социального явления или процесса. Понятие имидж происходит от латинского imago связанного с латинским словом imitari означающего имитировать . Согласно толковому словарю Вебстера имидж это искусственная имитация или преподнесение внешней формы какоголибо объекта и особенно лица.
24264. Управление имиджем и репутацией организации 41.5 KB
  Одно из определений понятия репутация: совокупность мнений о достоинствах и недостатках компании. Они состоят в том чтобы помогать компании успешно продавать товары или услуги привлекать надежных партнеров обеспечивать защиту от конкурентов содействовать выведению на рынок новых товаров или услуг. Важнее становится не то что и как говорят о себе компании а что они реально делают. Существует устойчивое мнение что позиционирование компании на рынке в большей степени определяется деятельностью по созданию имиджа внешней атрибутикой...
24265. Общие особенности типов образовательных технологий (классификация В.Г.Гульчевской) 52 KB
  Однако ни одна из указанных попыток усовершенствования технологий формирующего обучения не привела к изменению характера самого процесса обучения, которое по-прежнему оставалось иллюстративно-репродуктивным. Не менялись соответственно и характерные признаки технологий технократического типа.
24266. Тепловые двигатели и их КПД. Цикл Карно 256 KB
  Из первого закона термодинамики следует возможность совершения системой частиц механической работы за счет тепла, полученного от тела с большей температурой – «нагревателя».
24267. Взаимодействие PR-служб с органами государственной власти. Лоббирование 68.5 KB
  Взаимодействие PRслужб с органами государственной власти.ru изучение взаимодействия бизнеса и власти. власти на всех основных этапах формирования – от планирования и организации товародвижения до окончательной реализации товаров и услуг как внутри страны так и за ее пределами. Помимо финансовой и законодательной поддержки тесное взаимодействие представителей бизнеса с органами власти их социальные инвестиции способствуют улучшению имиджа и укреплению репутации как организации так и ее руководителя.
24268. Внутренняя энергия 437.5 KB
  Если термодинамический процесс изображен на p-v-диаграмме, то площадь под кривой этого процесса численно равна работе, произведенной газом в этом процессе.
24269. Основные этапы развития СМИ 34 KB
  развитие журналистики как общественного института совершенствование полиграфической базы становление прессы как основы демократии; 5 с 1900 г. К настоящему времени большинство исследователей едины во мнении что появление прессы следует отнести к V в. Гуттенбергом процесса печати с помощью подвижных литер дало толчок развитию прессы и журналистики. Родиной прессы как социального института можно считать территорию Западной Европы.