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

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


 

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

21166. Общие понятия эксплуатации. Техническое обслуживание СВТ 49.5 KB
  Техническое обслуживание СВТ Эксплуатация ЭВМ заключается в использовании машины для выполнения всего комплексах возложенных на нее задач. Для эффективного использования и поддержания ЭВМ в работоспособном состоянии в процессе эксплуатации производится техническое обслуживание ТО. ТО это комплекс организационных мероприятий предназначенных для эксплуатации и ремонта ЭВМ. Существует 3 вида ТО: индивидуальный; групповой; централизованный; При индивидуальном ТО обеспечивается обслуживание одной машины силами и средствами персонала...
21167. ЭЛЕКТРИЧЕСКИЕ СОЕДИНЕНИЯ В КОНСТРУКЦИЯХ СВТ 609 KB
  В зависимости от конструктивных особенностей обратного провода ЛП подразделяют на симметричные состоящие из двух одинаковых изолированных проводов несимметричные с одним общим проводом для многих ЛП и коаксиальные с обратным проводом по оплетке коаксиального кабеля. В поперечном сечении провода бывают круглыми или прямоугольными пленочные и печатные проводники прямоугольными. Провода защищаются изолирующими диэлектрическими оболочками а при необходимости экранами. Линии электропитания представляют собой объемные провода пленочные и...
21168. Микропроцессоры 1970-х – 1990-х годов: архитектура и эволюция 439.5 KB
  Новое поколение микропроцессоров ознаменовалось появлением 32битных процессоров 80386 1985 и 486SX 1989 которые могли адресовать до 4 Гбайт памяти и выполнять несколько задач одновременно. Каждая ячейка хранит часть или все данное или команду и с ней ассоциируется идентификатор называемый адресом памяти или просто адресом. Центральный процессор последовательно вводит или выбирает команды из памяти и выполняет определяемые ими задачи. К середине 1990х годов однако из магнитных устройств внешней памяти остались в использовании...
21169. ПРОМЫШЛЕННЫЕ РОБОТЫ 43.5 KB
  По требованию к точности манипулирования различают роботы нормальной точности с погрешностью позиционирования в зависимости от грузоподъемности 01 5 мм прецизионные роботы с погрешностью 5 мкм и ультрапрецизионные роботы с погрешностью до 003 мкм. Роботы нормальной точности применяют для манипулирования транспортными или технологическими кассетами перекладки полупроводниковых пластин из кассеты в кассету на химических операциях. Прецизионные роботы манипулируют пластинами или кристаллами на операциях посадки кристалла разводки...
21170. РАСЧЕТ ПОТРЕБЛЯЕМОЙ МОЩНОСТИ 185.5 KB
  1 РАСЧЕТ ПОТРЕБЛЯЕМОЙ МОЩНОСТИ Потребляемая мощность всей платы будет зависеть от потребляемой мощности отдельных элементов и количества микросхем.1 Потребляемая мощность микросхем Тип микросхемы Количество корпусов Мощность потребляемая одним корпусом мВт Мощность потребляемая всеми корпусами мВт MAX1106 1 445 445 AD232 1 696 696 где Pпотр потребляемая мощность всей платы P мощность одной микросхемы n количество микросхем. В итоге: Pпотр = 445 696 = 1141 мВт Таким образом потребляемая мощность платы составила всего около 1 Вт...
21171. Расчет надежности 22 KB
  Для выполнения приближенного расчета необходимо знать усредненные значения интенсивностей отказов λi типовых элементов и число Ni элементов определенного типа в каждой группе. В группе объединяются элементы которые имеют примерно одинаковую интенсивность отказов. Для полного расчета надежности необходимо иметь данные о реальных режимах работы элементов устройства и о зависимостях интенсивностей отказов элементов от температурных электрических и других режимов и нагрузок.
21172. ОСНОВЫ ПОСТРОЕНИЯ САПР ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ 52 KB
  Цель САПР это повышение качества проектов снижение материальных затрат сокращение сроков проектирования и ликвидация тенденции к росту числа проектировщиков а также повышение производительности их труда. Для САПР характерно системное использование ЭВМ при рациональном распределении функций между человеком и ЭВМ. Предметом САПР являются формализация проектных процедур структурирование и типизация процессов проектирования постановка модели методы и алгоритмы решения проектных задач способы построения технических средств создания...
21173. Современная память 2.18 MB
  В скором будущем будет также стандартизирована память DDR2800 в связи с чем многие материнские платы уже поддерживают этот тип памяти. Остальные же типы памяти не стандартизированы и не факт что материнская плата способна поддержать эту память на заявленной тактовой частоте. Возникает вопрос: почему же производители памяти соревнуясь друг с другом стараются выпускать все более скоростную память Ответ довольно прост это маркетинговый ход. Но так ли это на самом деле и действительно ли производительность памяти целиком и полностью...
21174. СТРУКТУРНАЯ СХЕМА КОНСТРУКТОРСКО-ТЕХНОЛОГИЧЕСКОГО ПРОЕКТИРОВАНИЯ ПЕЧАТНОЙ ПЛАТЫ 74 KB
  Выбор типа конструкции блока и варианта конструктивного исполнения модуля I уровня ячейки. Выбор компоновочной структуры ячеек ЭА. Выбор типа конструкции ПП. Выбор класса точности ПП.