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

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


 

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

12712. Создание модели детали типа Корпус в SolidWorks 2001 233.5 KB
  Практическая работа №3. Тема: Создание модели детали типа Корпус в SolidWorks 2001.Цель: Создание модели детали типа корпус с применением объектов эскиза: многоугольник окружность линия ось нанесением размеров добавлением бобышки выреза изменением элементов добавлен
12713. Создание модели детали типа Качалка в SolidWorks 2001 381 KB
  Практическая работа №4. Тема: Создание модели детали типа Качалка в SolidWorks 2001.Цель: Создание модели детали типа Качалка с применением различных инструментов эскиза знакомство с взаимосвязями эскиза и элементами. Необходимое оборудование и материалы: ПК перс
12714. Создание модели детали по сечениям в SolidWorks 2001Plus 151.5 KB
  Практическая работа №5. Тема: Создание модели детали по сечениям в SolidWorks 2001Plus.Цель: Создание твердотельного элемента путём соединения профилей элемента по сечениям. Необходимое оборудование и материалы: ПК персональный компьютер. Операционная система Windo...
12715. Создание сборки из нескольких деталей в SolidWorks2001Plus 427 KB
  Практическая работа №6. Тема: Создание сборки из нескольких деталей в SolidWorks2001Plus.Цель: Создание сборки из моделей деталей типа корпус кольцо вал и штифт. Необходимое оборудование и материалы: ПК персональный компьютер с операционной системой Windows 2000. Пр...
12716. Создание модели детали типа вал в SolidWork 2006 и чертежа вала в Компас 3D v8 477.5 KB
  Практическая работа №7. Тема:Создание модели детали типа вал в SolidWork 2006 и чертежа вала в Компас 3D v8.Цель: Научиться сохранять созданные в SolidWorks модели в промежуточном формате импортировать их в Компас и создавать чертежи деталей. Необходимое оборудование и материа...
12717. Создание чертежа детали типа Корпус2 в программе компас 3D 221 KB
  Практическая работа №8. Тема:Создание чертежа детали типа Корпус2 в программе компас 3D.Цель: Создание чертежа детали типа корпус с применением модели корпусной детали созданной в практической работе № 3. Необходимое оборудование и материалы: ПК персональный
12718. Организация производственного процесса во времени 171.5 KB
  Лабораторная работа №1 по дисциплине Организация производства и менеджмент: Организация производственного процесса во времени Вариант №6 1.ОРГАНИЗАЦИЯ ПРОИЗВОДСТВЕННОГО ПРОЦЕССА ВО ВРЕМЕНИ. Тема: Производственный цикл изготовления изделий и его виды. ...
12719. ПОТОЧНЫЕ МЕТОДЫ ОРГАНИЗАЦИИ ПРОИЗВОДСТВА 194 KB
  Лабораторная работа №2 по дисциплине Организация производства и менеджмент: ПОТОЧНЫЕ МЕТОДЫ ОРГАНИЗАЦИИ ПРОИЗВОДСТВА Вариант №6 Расчет и построение стандартпланов работы однопредметных поточных линий. Задача 2.1. Определить длину сборочного конвейера ...
12720. Расчет основных календарно-плановых нормативов при оперативном планировании в серийном производстве 113.5 KB
  Лабораторная работа №3 по дисциплине Тема: Расчет основных календарноплановых нормативов при оперативном планировании в серийном производстве. Функциональная задача оперативного планирования в серийном производстве заключается в установлении основных календ...