Как исправить ошибку

@Ololololol_19 · Регистрация: 10.04.2020

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

Задача: Дан текст, состоящий из n строк. В каждой строке слова разделены произвольным количеством пробелов. Сформировать новый массив, удалив из исходного текста пустые строки или строки, состоящие из одних пробелов. В полученном массиве слова-палиндромы записать заглавными буквами. Исходный и полученный тексты вывести в разные окна списка. Для решения задачи составить подпрограммы: 1. процедуру формирования нового массива, 2. функцию преобразования слова-палиндромов в одной строке, 3. функцию, вычисляющую среднюю длину строк текста

VB.NET
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
Imports System.Security.Cryptography.X509Certificates
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer
        Dim t(), tnew() As String
        n = Val(InputBox("введите количество строк текста"))
        печать(n, t)
        вывод(n, t, ListBox1)
        TextBox1.Text = срдлина(n, t)
        пустстр(n, t, tnew)
        палиндромы(n, tnew)
        вывод(n, tnew, ListBox2)
    End Sub
    Private Sub печать(ByRef n As Integer, ByRef t() As String)
        Dim i As Integer
        ReDim t(n - 1)
        For i = 0 To n - 1
            t(i) = InputBox("введите строку")
        Next
    End Sub
    Private Sub вывод(ByVal n As Integer, ByVal t() As String, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(t(i))
        Next
    End Sub
    Private Function ideal(ByVal s As String) As String
        s = Replace(s, ".", " ")
        s = Trim(s)
        Do While InStr(s, "  ") <> 0
            s = Replace(s, "  ", " ")
        Loop
        ideal = s
    End Function
    Private Function палиндромы(ByVal n As String, ByRef t() As String) As String
        Dim i, j As Integer
        Dim massl() As String
        For i = 0 To n - 1
            If t(i) <> "" Then
                massl = Split(t(i))
                For j = 0 To UBound(massl)
                    If UCase(massl(j)) = StrReverse(UCase(massl(j))) Then
                        massl(j) = UCase(massl(j))
                    End If
                Next
                t(i) = Join(massl)
            End If
        Next
        Return t(n - 1)
    End Function
    Private Sub пустстр(ByVal n As String, ByRef t() As String, ByVal tnew() As String)
        Dim i, k As Integer
        k = -1
        ReDim t(n - 1)
        For i = 0 To n - 1
            If t(i) <> "" Then
                k += 1
                ReDim Preserve tnew(k)
                tnew(k) = t(i)
            End If
        Next
    End Sub
    Private Function срдлина(ByVal n As String, ByVal t() As String) As Integer
        Dim i, sm As Integer
        For i = 0 To n - 1
            sm += Len(t(i))
        Next
        срдлина = sm / n
    End Function
End Class

На 40 строке выдает ошибку Object reference not set to an instance of an object, не знаю как исправить

I can · 20.12.2023, 22:30

Сообщение от Ololololol_19

Private Sub пустстр(ByVal n As String, ByRef t() As String, ByVal tnew() As String)

ByRef tnew() As String

@Ololololol_19 · 20.12.2023, 22:35 **[ТС]**

не исправилось

I can · 20.12.2023, 22:58

Сообщение от Ololololol_19

не исправилось

А массив-то заполняешь, не ленишься?

Добавлено через 3 минуты
39 строка

Сообщение от Ololololol_19

For i = 0 To n - 1

For i = 0 To ubound(t)

Добавлено через 3 минуты
Так как в новом массиве может быть меньше элементов чем n

@The trick · 24.12.2023, 23:08

Комментарий модератора

Заканчиваем офтоп.

@UBUNTU · 27.12.2023, 18:15

VB.NET
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
Imports System.Security.Cryptography.X509Certificates
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer
        Dim t(), tnew() As String
        n = Val(InputBox("Введите количество строк текста"))
        печать(n, t)
        вывод(n, t, ListBox1)
        TextBox1.Text = срдлина(n, t)
        пустстр(n, t, tnew)
        палиндромы(n, tnew)
        If ListBox2 IsNot Nothing Then
            вывод(n, tnew, ListBox2)
        End If
    End Sub
 
    Private Sub печать(ByRef n As Integer, ByRef t() As String)
        Dim i As Integer
        ReDim t(n - 1)
        For i = 0 To n - 1
            t(i) = InputBox("Введите строку")
        Next
    End Sub
 
    Private Sub вывод(ByVal n As Integer, ByVal t() As String, ByRef lst As ListBox)
        Dim i As Integer
        lst.Items.Clear()
        For i = 0 To n - 1
            lst.Items.Add(t(i))
        Next
    End Sub
 
    Private Function идеал(ByVal s As String) As String
        s = Replace(s, ".", " ")
        s = Trim(s)
        Do While InStr(s, "  ") <> 0
            s = Replace(s, "  ", " ")
        Loop
        идеал = s
    End Function
 
    Private Function палиндромы(ByVal n As String, ByRef t() As String) As String
        Dim i, j As Integer
        Dim массив() As String
        For i = 0 To n - 1
            If t(i) <> "" Then
                массив = Split(t(i))
                For j = 0 To UBound(массив)
                    If UCase(массив(j)) = StrReverse(UCase(массив(j))) Then
                        массив(j) = UCase(массив(j))
                    End If
                Next
                t(i) = Join(массив)
            End If
        Next
        Return t(n - 1)
    End Function
 
    Private Sub пустстр(ByVal n As String, ByRef t() As String, ByVal tnew() As String)
        Dim i, k As Integer
        k = -1
        ReDim t(n - 1)
        For i = 0 To n - 1
            If t(i) <> "" Then
                k += 1
                ReDim Preserve tnew(k)
                tnew(k) = t(i)
            End If
        Next
    End Sub
 
    Private Function срдлина(ByVal n As String, ByVal t() As String) As Integer
        Dim i, сумма As Integer
        For i = 0 To n - 1
            сумма += Len(t(i))
        Next
        срдлина = сумма / n
    End Function
End Class

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Ololololol_19 10 / 9 / 0 Регистрация: 10.04.2020 Сообщений: 40
	20.12.2023, 22:35 [ТС]
	не исправилось 0