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

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


 

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

18318. ОРГАНІЗАЦІЙНА СТАДІЯ СУДОВО-БУХГАЛТЕРСЬКОЇ ЕКСПЕРТИЗИ 311 KB
  ТЕМА 5. ОРГАНІЗАЦІЙНА СТАДІЯ СУДОВОБУХГАЛТЕРСЬКОЇ ЕКСПЕРТИЗИ ПЛАН 5.1. Порядок призначення судовобухгалтерської експертизи. 5.2. Зміст та структура постанови ухвали про призначення судовобухгалтерської експертизи. 5.3. Проведення судовобухгалтерської експерти
18319. МЕТОДИКА ДОСЛІДЖЕННЯ СУДОВО-БУХГАЛТЕРСЬКОЮ ЕКСПЕРТИЗОЮ ОСНОВНИХ ФІНАНСОВО-ГОСПОДАРСЬКИХ ОПЕРАЦІЙ 628 KB
  ТЕМА 6. МЕТОДИКА ДОСЛІДЖЕННЯСУДОВОБУХГАЛТЕРСЬКОЮ ЕКСПЕРТИЗОЮ ОСНОВНИХ ФІНАНСОВОГОСПОДАРСЬКИХ ОПЕРАЦІЙ ПЛАН 6.1. Методика експертного дослідження стану та операцій із грошовими коштами в касі. 6.2. Методика експертного дослідження операцій на рахунках у банку. 6.3. ...
18320. ЗАВЕРШАЛЬНА СТАДІЯ СУДОВО-БУХГАЛТЕРСЬКОЇ ЕКСПЕРТИЗИ 270 KB
  ТЕМА 7. ЗАВЕРШАЛЬНА СТАДІЯ СУДОВОБУХГАЛТЕРСЬКОЇ ЕКСПЕРТИЗИ ПЛАН 7.1. Висновок експертабухгалтера структура та методика його складання. 7.2. Особливості складання висновку експертизи що виконується під час судового розгляду та повідомлення про неможливість дати ви...
18321. Институциональный (организационный) анализ 45.13 KB
  Институциональный организационный анализ Задачи институционального анализа Институциональный организационный анализ это комплекс взаимосвязанных процедур по сбору информации и принятию решений в области взаимодействия участников проекта сторонних организа
18322. Инвестиционный проект. Виды инвестиционных проектов 2 MB
  Инвестиционный проект. Виды инвестиционных проектов: проектный цикл предпроектные исследования. Общая последовательность разработки и анализа проекта. Содержание стандартного инвестиционного проекта порядок разработки и сопровождения мониторинг Инвестиционны
18323. Информационные технологии в Управлении проектами 235.5 KB
  Информационные технологии в Управлении проектами Информационные технологии программное обеспечение в проектной практике. Корпоративная система управления проектами КСУП. Основные объекты управления в проектноориентированной организации. Устройство корпоративно
18324. Коммерческий анализ 180.01 KB
  Коммерческий анализ Коммерческий анализ это комплекс взаимосвязанных процедуре по изучению и оптимальной организации коммерческих операций участника проекта. Коммерческий анализ имеет два аспекта. Первый аспект связан с необходимостью оценки перспектив рын...
18325. Стандартизация проектной деятельности: основные стандарты управления проектами; международные и национальные стандарты в области УП 265.5 KB
  Стандартизация проектной деятельности: основные стандарты управления проектами; международные и национальные стандарты в области УП; профессиональные международные и национальные квалификационные стандарты; корпоративные стандарты и нормы. Стандарт Standard образец...
18326. Политика в области качества 618.08 KB
  Политика в области качества Политика в области качества – документ разрабатываемый высшим руководством По требованию документа ИСО 9001 в организации должны быть также разработаны цели в области качества. При этом они могут быть оформлены как один документ Цели в обл