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

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


 

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

26193. Нарушения психической деятельности при маниакальных состояниях 11.65 KB
  Женщины заболевают примерно в 2 раза чаще чем мужчины.У подростков значительно чаще классических вариантов наблюдаются депрессии в форме психопатических эквивалентов с асоциальным поведением. Депрессивные фазы встречаются в несколько раз чаще.
26195. Виды личностных расстройств: шизоидное, шизотипическое 11.75 KB
  Шизоидное расстройство личности Люди страдающие шизоидным расстройством личности испытывают глубокую отчужденность в отношениях изза трудностей в выражении эмоций. Люди с шизоидным расстройством личности ведут замкнутый образ жизни и очень осторожны в контактах с другими людьми. Люди с шизоидным расстройством личности производят впечатление далеких и холодных. Шизотипическое расстройство личности Шизотипическое или шизофренияподобное расстройство личности характеризуется необычностью мыслей убеждений и идей.
26196. Истерическое расстройство личности 18.29 KB
  Симптомы истерического расстройства личности Особенностью истерической психики является отсутствие четких границ между продукцией собственного воображения и действительностью. Зависимое расстройство личности Люди которые подвержены этому заболеванию уверены в том что они абсолютно беспомощны некомпетентны в любой сфере жизнедеятельности. Человек имеющий зависимое расстройство личности постоянно полагается на окружающих ждет что ктото решит его вопросы и ничего не может предпринять самостоятельно.
26197. Виды личностных расстройств: обсессивно-компульсивное, антисоциальное 11.6 KB
  Антисоциальное расстройство личности Суть антисоциального расстройства личности в том что пациент демонстрирует полное неуважение к правам и чувствам других людей. Обсессивнокомпульсивное расстройство личности Люди с обсессивнокомпульсивным расстройством личности как правило озабочены экономией денег стремятся соблюсти во всем абсолютный порядок отказываются обращаться за помощью или сотрудничать с кемлибо так как считают других слишком беспечными и некомпетентными.
26198. Параноидальное расстройство личности, паранойя 17.14 KB
  Люди с параноидальным расстройством личности убеждены что действия со стороны других несут в себе угрозу или дискомфорт. Люди с параноидальным расстройством личности склонны проецировать свои чувства на других особенно когда речь идет о чувствах с которыми они сами не могут согласиться. Параноидальное расстройство личности не является проявлением шизофрении расстройства настроения с психотическими функциями и других психотических расстройств.
26199. Шизофрения 18.36 KB
  Симптоматология шизофрении многообразна и своеобразна. Легче перечислить психопатологические симптомы и синдромы которые не характерны для шизофрении чем те которые встречаются часто. Другие выявляются далеко не у всех больных шизофренией но точно появляются почти только при шизофрении разорванность мышления и речи и являются для этой болезни патогномоничными близкими к специфическим проявлениями. Как и в общей психопатологии в целом клинические проявления шизофрении принято разграничивать на отрицательные и положительные.
26200. Социальная адаптация больного шизофренией 11.38 KB
  В психиатрическом диспансере благодаря усилиям медицинского персонала больные заново учатся какимто жизненным навыкам: ведению домашнего хозяйства элементам личной гигиены ведению бюджета и т. Больные шизофренией в межприступный период вполне нормальные и обычные люди хорошо понимающие в чем суть их болезни и они хотят себе помочь им нужна лишь поддержка родных. Очень важно что бы больные продолжали свою трудовую деятельность на сколько позволяет их состояние. Шизофрения не изученная болезнь не ясны причины ее возникновения но...
26201. Модель психической патологии в когнитивном подходе 16.82 KB
  Терапевты помогают пациентам распознать негативные мысли тенденциозные интерпретации и логические ошибки которыми изобилует их мышление и которые согласно Беку вызывают у них депрессию. Терапевты также побуждают пациентов бросить вызов своим дисфункциональным мыслям опробовать новые интерпретации и в конечном счете начать использовать в своей повседневной жизни новые способы мышления. Убежденность пациента в достоверности его негативных идей сохраняется благодаря следующим систематическим ошибкам мышления 1. Произвольные умозаключения:...