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

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


 

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

11757. Моделирование динамических звеньев систем автоматического управления на аналоговом вычислительном комплексе АВК-6 479 KB
  Моделирование динамических звеньев систем автоматического управления на аналоговом вычислительном комплексе АВК6 Методические указания по выполнению лабораторной работы Моделирование динамических звеньев систем автоматического управления на аналоговом вычисл...
11758. Исследование авиационной приборной системы слежения за угловым положением вала 460 KB
  Исследование авиационной приборной системы слежения за угловым положением вала Методические указания по выполнению лабораторной работы Исследование авиационной приборной системы слежения за угловым положением вала по дисциплине Теория автоматического уп
11759. Исследование системы автоматического регулирования частоты вращения вала двигателя 797 KB
  Исследование системы автоматического регулирования частоты вращения вала двигателя Методические указания по выполнению лабораторной работы Исследование системы автоматического регулирования частоты вращения вала двигателя по дисциплине Теория автоматичес...
11760. ММДО Шпоры 6.32 MB
  Билет № 1 Загальна задача лінійного програмування. Линейное программирование раздел математического программирования который изучает задачу определения экстремума линейной функции нескольких переменных при линейных ограничениях на переменные в виде рав...
11761. Математичні методи дослідження операцій 2.36 MB
  ВСТУП Дослідження операцій це розділ прикладної математики що займається побудовою математичних моделей реальних задач і процесів економічних соціальних технічних військових і таких інших їх аналізом і застосуваннями. Більшість цих моделей повязані з отри...
11762. Розробка програмного забезпечення автоматизованого дослідження операцій про оптимальне планування асортименту продукції верстатобудівельного заводу 3.97 MB
  Вступ [2] 1. Теоретичні основи дослідження операцій [2.1] 1.1 Завдання на розробку програмного забезпечення [2.2] 1.2 Основні поняття дослідження операцій [2.3] 1.3 Метод послідовного покращення плану перший алгоритм [2.4] 1.4 Задачі лінійного прогр...
11763. Математические методы исследования операций 2.73 MB
  МЕТОДИЧЕСКИЕ УКАЗАНИЯ к изучению курса и выполнению контрольной работы по дисциплине Математические методы исследования операций для студентов специальности 7.080404 Интеллектуальные системы принятия решений заочной ускоренной формы обучения УДК Ме...
11764. Методические указания к выполнению лабораторных работ по дисциплине Математические методы исследования операций 2.62 MB
  Методические указания к выполнению лабораторных работ по дисциплине Математические методы исследования операций для студентов специальностей направления подготовки Компютерные науки дневной ускоренной формы обучения УДК Мето...
11765. Задачі лінійного цілочислового програмування 1.27 MB
  Лабораторна робота № 6 Задачі лінійного цілочислового програмування Короткі теоретичні відомості 21. МЕТОД ГОМОРІ РОЗВЯЗУВАННЯ ЗАДАЧ ЛІНІЙНОГО ЦІЛОЧИСЛОВОГО ПРОГРАМУВАННЯ Розглянемо задачу лінійного цілочислового програ