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

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


 

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

5831. Особенности социальной работы с неполными семьями на примере КГУ СО центра социальной помощи семье и детям Вдохновение г.Барнаула 1.03 MB
  Исходные данные Противоречие межу потребностью неполных семей в социальной помощи и возможностью специалистов по ее оказанию. Содержание разделов работы Наименование раздела работы Трудоемкость, от всего объема работы Срок ...
5832. Изучение вопросов и проблем учета расчетов по оплате труда и анализа фонда оплаты труда на примере ООО Азимут 151.7 KB
  Введение Труд работников - важнейший элемент процесса производства. В производстве живой труд играет ведущую роль. В то же время труд является основным источником удовлетворения материальных потребностей каждого работника. Через оплату труда ос...
5833. Популяционная генетика 34.5 KB
  Популяционная генетика Популяционная генетика исследует закономерности распределения генов и генотипов в популяциях. Установление этих закономерностей имеет как научное, так и практическое значение в разных разделах биологии, таких как экология и эк...
5834. Предмет і методологічні засади дослідження операцій 1.58 MB
  Предмет і методологічні засади дослідження операцій Лекція 1 Сутність проблематики теорії дослідження операцій Понятійний апарат дослідження операцій. Класифікація задач оптимізації та управління Математичне моделювання в опт...
5836. Використання програмних технологій в аудиті 1.85 MB
  Аудит в умовах застосування комп'ютерних облікових систем. Методологія комп'ютерного аудиту. Методи аудиту із застосуванням комп'ютерів. Особливості аудиту підприємств, які застосовують комп'ютерні інформаційні системи. Налагодження комп'ютеризованих процедур аудиту та внутрішнього контролю.
5839. Водопостачання та водовідведення. Конспект лекцій 4.8 MB
  Метою вивчення дисципліни є формування у майбутніх фахівців умінь і знань з сучасних методів проектування, будівництва та експлуатації систем водопостачання і водовідведення населених міст, житлових і промислових об'єктів...