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

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


 

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

72199. Россия в 1917 г. Альтернативы общественного развития 40 KB
  Февральская революция 1917 г. стала эпохальным событием в истории России. Династия Романовых, правившая 304 года, рухнула за неполных 8 дней. До сих пор ученые колеблются в оценке событий 1917 г. Февральская революция была вызвана целым комплексом причин: Первая мировая война.
72200. Россия в период Гражданской войны 44 KB
  Причины сущность движущие силы и основные этапы Гражданской войны. Политическое противоборство в годы Гражданской войны. Иностранная интервенция способствовала затягиванию гражданской войны принимавшей различные формы от мятежей и диверсий до крупномасштабных военных сражений.
72201. Россия в 18 веке 102 KB
  18 век – это время расцвета, а затем и кризиса феодальной системы. В Европе наступает период заката абсолютизма. В России в это время феодализм переживает период апогея, но с конца века усиливается кризис феодальной системы, однако в отличие от Запада кризис феодализма сопровождался не сужением...
72202. Россия в 19 веке 57.5 KB
  В основе социальной структуры лежал сословный принцип. Дворянство еще более увеличило свои привилегии, однако к середине 19 века наблюдался явный кризис помещичье-крепостнического хозяйства. В центре общественной мысли стояли два важнейших вопроса: судьба крестьян и самодержавия.
72203. Русь в 16-17 веках 69 KB
  16 век – это сложный противоречивый период. В его центре такие события, как правление Ивана IV, постоянные войны с Польшей, Швецией, Ливонией. Происходит расширение территории страны. Были присоединены Казань, Астрахань, Сибирское ханство. На рубеже 16-17 веков Россию потрясла Смута.
72204. История управления качеством 61.5 KB
  Характерные особенности: Жесткий контроль качества изготовления продукции с использованием методов математической статистики; Внимание к процессу планирования по объемным и качественным показателям административный контроль за выполнением планов; совершенствование управления фирмой в целом.
72205. ПРЕДМЕТ АКУШЕРСТВА И ГИНЕКОЛОГИИ. ОСНОВНЫЕ ИСТОРИЧЕСКИЕ ЭТАПЫ РАЗВИТИЯ АКУШЕРСКОЙ НАУКИ. ОРГАНИЗАЦИЯ АКУШЕРСКО-ГИНЕКОЛОГИЧЕСКОЙ ПОМОЩИ 203.5 KB
  В современном представлении акушерство и гинекологию следует рассматривать как науку о женщине. Наш предмет изучает физиологию и патологию женской половой системы, состояние и деятельность женских половых органов в нормальных и патологических условиях...
72206. История рекламы в России 39 KB
  Российская реклама в современном её понимании началась примерно в 1988-89г. И до 1991-92г. Это был хаотично образующийся рынок. Рынок рекламы как экономическое понятие возник в России в 1992г. Примерно к 1993г. Стали появляться подразделения, специализирующиеся в разных областях.
72207. Виды соединений. Резьбовые соединения. Геометрические параметры резьбы. Материалы резьбовых деталей, допускаемые напряжения 2.32 MB
  Детали, составляющие машину, связаны между собой. Связи могут быть подвижными (шарниры, подшипники, зацепления и др.) и неподвижными. Неподвижные связи называют соединениями. Соединения подразделяются на разъемные и неразъемные. Разъемные соединения позволяют разъединять детали без их повреждения.