Реализовать ввод/вывод в консоль в готовом коде

@Павел1998 · Регистрация: 01.12.2016

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

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
Module Module1
    Sub Main()
        
        Dim i As Integer
        Dim j As Integer
        Dim A(2, 2) As Double
        Dim B(2) As Integer
 
        For i = 1 To 2
            For j = 1 To 2
                A(i, j) = InputBox("A(" & i & "," & j & ")")
            Next j
        Next i
 
        For i = 1 To 2
            For j = 1 To 2
                B(i) = B(i) + A(i, j)
 
            Next j
        Next i
 
 
        For i = 1 To 2
            For j = 1 To 2
                A(i, j) = A(i, j) / B(i)
            Next j
        Next i
 
        For i = 1 To 2
            For j = 1 To 2
                MsgBox(A(i, j))
            Next j
        Next i
 
 
    End Sub
End Module

@OwenGlendower · 04.01.2017, 10:15

Павел1998, InputBox заменяем на Console.ReadLine, MsgBox на Console.WriteLite.

@Павел1998 · 04.01.2017, 11:32 **[ТС]**

"WriteLite" не является членом "System.Console".
Слишком большое число аргументов у "Public Shared Function ReadLine() As String".

@1231231ghacking · 04.01.2017, 11:35

Измени

VB.NET
1
Console.WriteLite

На

VB.NET
1
Console.WriteLine

@Павел1998 · 04.01.2017, 11:41 **[ТС]**

Ошибка 1 Выражение не порождает значение.

@OwenGlendower · 04.01.2017, 16:47

Павел1998, покажи весь код

@Павел1998 · 04.01.2017, 22:14 **[ТС]**

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
Module Module1
    Sub Main()
        
        Dim i As Integer
        Dim j As Integer
        Dim A(2, 2) As Double
        Dim B(2) As Integer
 
        For i = 1 To 2
            For j = 1 To 2
                A(i, j) = Console.ReadLine("A(" & i & "," & j & ")")
 
 
            Next j
        Next i
 
        For i = 1 To 2
            For j = 1 To 2
                B(i) = B(i) + A(i, j)
 
            Next j
        Next i
 
 
        For i = 1 To 2
            For j = 1 To 2
                A(i, j) = A(i, j) / B(i)
            Next j
        Next i
 
        For i = 1 To 2
            For j = 1 To 2
                Console.WriteLine(A(i, j))
            Next j
        Next i
 
 
    End Sub
End Module

@OwenGlendower · 04.01.2017, 23:52

Павел1998, замени строку №11 на две таких

VB.NET
1
2
Console.Write("A(" & i & "," & j & ")")
A(i, j) = Console.ReadLine()

@Павел1998 · 05.01.2017, 13:03 **[ТС]**

Вылетает в конце

@OwenGlendower · 05.01.2017, 13:10

Павел1998, ты программист или кто? Прочитай текст ошибки, посмотри в какой строке она возникает и исправь её.

@Bidgo · 05.01.2017, 14:38

Сообщение от Павел1998

Вылетает в конце

Может просто программа завершает работу?

@Bidgo · 05.01.2017, 14:38

Сообщение от Павел1998

Вылетает в конце

Может просто программа завершает работу?

@Павел1998 · 05.01.2017, 20:22 **[ТС]**

Не, она посчитала. И я ее должен закрыть. А она сразу же выключается

SergProgrammer · 05.01.2017, 20:33

Павел1998, перед

VB.NET
1
End Sub

в строчке выше допиши

VB.NET
1
Console.ReadLine()

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@OwenGlendower Администратор 18304 / 14228 / 5368 Регистрация: 17.03.2014 Сообщений: 28,900 Записей в блоге: 1
	04.01.2017, 10:15
	Павел1998, InputBox заменяем на Console.ReadLine, MsgBox на Console.WriteLite. 0

@Павел1998 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 16
	04.01.2017, 11:32 [ТС]
	"WriteLite" не является членом "System.Console". Слишком большое число аргументов у "Public Shared Function ReadLine() As String". 0

@Павел1998 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 16
	04.01.2017, 11:41 [ТС]
	Ошибка 1 Выражение не порождает значение. 0

@OwenGlendower Администратор 18304 / 14228 / 5368 Регистрация: 17.03.2014 Сообщений: 28,900 Записей в блоге: 1
	04.01.2017, 16:47
	Павел1998, покажи весь код 0

@Павел1998 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 16
	05.01.2017, 13:03 [ТС]
	Вылетает в конце 0

@OwenGlendower Администратор 18304 / 14228 / 5368 Регистрация: 17.03.2014 Сообщений: 28,900 Записей в блоге: 1
	05.01.2017, 13:10
	Павел1998, ты программист или кто? Прочитай текст ошибки, посмотри в какой строке она возникает и исправь её. 1

@Павел1998 0 / 0 / 0 Регистрация: 01.12.2016 Сообщений: 16
	05.01.2017, 20:22 [ТС]
	Не, она посчитала. И я ее должен закрыть. А она сразу же выключается 0