Visual basic ошибочка в программе

@ТеРимОк · Регистрация: 11.05.2014

Студворк — интернет-сервис помощи студентам

Написал программу введения матрицы A и r, решения систем уравнений схемой Халецкого и вывода ответа в виде матрицы x. В промежуточной месте есть вывод матрицы А: DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j)). Незнаю что не правильно, но в строке c(i, j) = (A(i, j) - s1) / b(i, i) выходит ошибка ( два скриншота приложил, с формой и ошибкой). Кто может помогите пожалуйста. Спасибо всем

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 Dim i, j, n, s, s1, s2 As Integer
        Dim A(,), r(), x(), c(,), b(,), y() As Integer
        n = 8
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n
        DataGridView1.ColumnCount = n
        For i = 1 To n - 1
            For j = 1 To n - 1
                A(i, j) = 0
            Next
        Next
 
        For i = 1 To 8
            r(i) = 0
        Next
 
        For i = 1 To 8
            For j = 1 To 8
                A(1, 1) = 1
                A(1, 2) = -1
                A(1, 5) = -1
                A(2, 2) = 1
                A(2, 3) = 1
                A(2, 4) = -1
                A(3, 1) = -1
                A(3, 4) = 1
                A(3, 6) = -1
                A(3, 7) = -1
                A(4, 3) = -1
                A(4, 7) = 1
                A(4, 8) = 1
                A(5, 4) = Val(TextBox2.Text)
                A(6, 3) = Val(TextBox1.Text)
                A(6, 4) = Val(TextBox2.Text)
                A(6, 7) = Val(TextBox3.Text)
                A(7, 5) = Val(TextBox4.Text)
                A(8, 5) = Val(TextBox4.Text)
                A(8, 7) = Val(TextBox3.Text)
                A(8, 8) = Val(TextBox5.Text)
                r(1) = Val(TextBox7.Text)
                r(2) = Val(TextBox8.Text)
                r(3) = Val(TextBox6.Text)
                r(4) = Val(TextBox6.Text)
            Next
        Next
 
        For i = 0 To n - 1
            For j = 0 To n - 1
                DataGridView1.Rows(i).Cells(j).Value = Str(A(i, j))
            Next j
        Next i
 
 
        For i = 1 To 8
            For j = 1 To 8
                c(i, j) = 0
                b(i, j) = 1
            Next
        Next
 
        For i = 1 To n
            c(i, i) = 1
        Next
 
        For i = 1 To n
            b(i, 1) = A(i, 1)
            c(1, i) = A(1, i) / b(1, 1)
        Next
 
        y(1) = r(1) / b(1, 1)
 
        For i = 2 To n
            For j = 2 To i
                s = 0
                For k = 1 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s
            Next
 
 
            For j = i To n
                s1 = 0
                s2 = 0
                For k = 1 To i - 1
                    s1 = s1 + b(i, k) * c(k, j)
                    s2 = s2 + b(i, k) * y(k)
                Next
               [B][I] c(i, j) = (A(i, j) - s1) / b(i, i)[/I][/B]
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        For i = 0 To n - 1
            TextBox9.Text = TextBox9.Text & Str(x(i)) & " "
        Next i

Новый точечный рисунок.zip

Новый точечный рисунок (2).zip

@Catstail · 17.05.2014, 23:08

А зачем строки 19,20 и 46,47??? Ты совершенно бессмысленно повторяешь 64 раза линейную последовательность присвоений.

@ТеРимОк · 17.05.2014, 23:43 **[ТС]**

Изменил немножко программу, учитывая замечание, и добавил

Visual Basic
1
2
3
4
5
6
7
8
9
 c(0, 4) = A(0, 4)
        c(1, 2) = A(1, 2)
        c(1, 3) = A(1, 3)
        c(2, 3) = A(2, 3)
        c(2, 5) = A(2, 5)
        c(2, 6) = A(2, 6)
        c(3, 6) = A(3, 6)
        c(3, 7) = A(3, 7)
        c(5, 6) = A(5, 6)

, так как матрица С не выходит как должна выходить, т.е. главная диагональ равна единицам, а всё что выше, не равно тому, что находиться выше главной диагонали матрицы А.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Dim i, j, n, s, s1, s2 As integer
        Dim A(,), r(), x(), c(,), b(,), y() As Double
        n = 7
        ReDim A(n, n), r(n), x(n), c(n, n), b(n, n), y(n)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n + 1
        DataGridView1.ColumnCount = n + 1
        For i = 0 To n
            For j = 0 To n
                A(i, j) = 0
                r(i) = 0
            Next
        Next
 
        A(0, 0) = 1
        A(0, 1) = -1
        A(0, 4) = -1
        A(1, 1) = 1
        A(1, 2) = 1
        A(1, 3) = -1
        A(2, 0) = -1
        A(2, 3) = 1
        A(2, 5) = -1
        A(2, 6) = -1
        A(3, 2) = -1
        A(3, 6) = 1
        A(3, 7) = 1
        A(4, 3) = Val(TextBox2.Text)
        A(5, 2) = Val(TextBox1.Text)
        A(5, 3) = Val(TextBox2.Text)
        A(5, 6) = Val(TextBox3.Text)
        A(6, 4) = Val(TextBox4.Text)
        A(7, 4) = Val(TextBox4.Text)
        A(7, 6) = Val(TextBox10.Text)
        A(7, 7) = Val(TextBox5.Text)
        r(4) = Val(TextBox7.Text)
        r(5) = Val(TextBox8.Text)
        r(6) = Val(TextBox6.Text)
        r(7) = Val(TextBox6.Text)
 
        For i = 0 To 7
            For j = 0 To 7
                c(i, j) = 0
                b(i, j) = 0
            Next
        Next
 
        For i = 0 To 7
            c(i, i) = 1
        Next
 
        For i = 0 To n
            b(i, 0) = A(i, 0)
            c(0, i) = A(0, i) / b(0, 0)
        Next
 
        y(0) = r(0) / b(0, 0)
 
        For i = 1 To n
            For j = 1 To i
                s = 0
                For k = 0 To j - 1
                    s = s + b(i, k) * c(k, j)
                Next
                b(i, j) = A(i, j) - s                
            Next
        Next
 
b(2, 1) = A(2, 1)
 
        For j = i To n
            s1 = 0
            s2 = 0
            For k = 0 To i - 1
                s2 = s2 + b(i, k) * y(k)
                y(i) = (r(i) - s2) / b(i, i)
            Next
        Next
 
        c(0, 4) = A(0, 4)
        c(1, 2) = A(1, 2)
        c(1, 3) = A(1, 3)
        c(2, 3) = A(2, 3)
        c(2, 5) = A(2, 5)
        c(2, 6) = A(2, 6)
        c(3, 6) = A(3, 6)
        c(3, 7) = A(3, 7)
        c(5, 6) = A(5, 6)
 
        x(n) = y(n)
        For i = n - 1 To 1 Step -1
            s = 0
            For k = i + 1 To n
                s = s + c(i, k) * x(k)
            Next
            x(i) = y(i) - s
        Next
 
        TextBox11.Text = TextBox11.Text & Str(s)
 
        For i = 0 To n
            TextBox9.Text = TextBox9.Text & Str(y(i))
        Next i
 
 
        For i = 0 To n
            For j = 0 To n
                DataGridView1.Rows(i).Cells(j).Value = Str(c(i, j))
            Next j
        Next i

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Catstail Супер-модератор 38168 / 21103 / 4307 Регистрация: 12.02.2012 Сообщений: 34,692 Записей в блоге: 14
	17.05.2014, 23:08
	Сообщение было отмечено The trick как решение Решение А зачем строки 19,20 и 46,47??? Ты совершенно бессмысленно повторяешь 64 раза линейную последовательность присвоений. 0

Visual basic ошибочка в программе

Решение