Передача массива

@Miller-1981 · Регистрация: 26.01.2009

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

Подскажите в чем проблема
Dim a() as integer
redim a(5,5)
vvodmatrix(a)
....
private sub(x() as integer)
...
end sub

дает ошибку несовпадения типов с строке vvodmatrix(a)

@gaw · 01.05.2010, 16:06

Сообщение от Miller-1981

vvodmatrix(a)

а как определено ?

@Miller-1981 · 01.05.2010, 16:14 **[ТС]**

вот весь код

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
Private Sub Command1_Click()
 Dim n As Integer
 Dim m As Integer
 Dim a() As Integer
 Dim x() As Integer
 Dim c() As Integer
 Dim i, j As Integer
 Dim s1 As String
 Dim s As Integer
 Print
 Print
 Print
 Print
 n = InputBox("число столбцов = ?")
 Print "n="; n
 m = InputBox("Число строк = ?")
 Print "m="; m
 ReDim a(1 To m, 1 To n)
 vvodmatrix (a)
 ReDim x(m)
 vvodvector (x)
ReDim c(m)
s1 = ""
For i = 1 To m
 s = 0
 For j = 1 To n
  s = s + a(i, j)
 Next
   If x(i) < s Then
     c(i) = s
   Else
     c(i) = x(i)
   End If
 s1 = s1 & "c(" & i & ")=" & c(i) & ";  "
Next
Print s1
End Sub
 
Private Sub vvodmatrix(x1() As Integer)
Dim i As Integer, j As Integer
For i = LBound(x1) To UBound(x)
For j = LBound(x1, 2) To UBound(x1, 2)
x1(i, j) = InputBox("Элемент матрицы (" _
& i & ", " & j & ") = ?", _
   "Ввод матрицы", , 0, 0)
Print x1(i, j),
   Next
Print
End Sub
 
Private Sub vvodvector(x1() As Integer)
Dim i As Integer
For i = LBound(x1) To UBound(x1)
x1(i) = InputBox("Элемент вектора (" _
& i & ")= ?", "Ввод вектора", , 0, 0)
Print x1(i),
Next
Print
End Sub

@gaw · 01.05.2010, 16:29

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
Private Sub Command1_Click()
 Dim n As Integer
 Dim m As Integer
 Dim a() As Integer
 Dim x() As Integer
 Dim c() As Integer
 Dim i, j As Integer
 Dim s1 As String
 Dim s As Integer
 Print
 Print
 Print
 Print
 n = InputBox("число столбцов = ?")
 Print "n="; n
 m = InputBox("Число строк = ?")
 Print "m="; m
 ReDim a(1 To m, 1 To n)
Call vvodmatrix(a) '==========
 ReDim x(m)
Call vvodvector(x) '==========
ReDim c(m)
s1 = ""
For i = 1 To m
 s = 0
 For j = 1 To n
  s = s + a(i, j)
 Next
   If x(i) < s Then
     c(i) = s
   Else
     c(i) = x(i)
   End If
 s1 = s1 & "c(" & i & ")=" & c(i) & ";  "
Next
Print s1
End Sub
 
Private Sub vvodmatrix(x1() As Integer)
Dim i As Integer, j As Integer
For i = LBound(x1) To UBound(x1) '===========
For j = LBound(x1, 2) To UBound(x1, 2)
x1(i, j) = InputBox("Элемент матрицы (" _
& i & ", " & j & ") = ?", _
   "Ввод матрицы", , 0, 0)
Print x1(i, j),
   Next
Print
 Next '=================
End Sub
 
Private Sub vvodvector(x1() As Integer)
Dim i As Integer
For i = LBound(x1) To UBound(x1)
x1(i) = InputBox("Элемент вектора (" _
& i & ")= ?", "Ввод вектора", , 0, 0)
Print x1(i),
Next
Print
 
End Sub

@STRATEG · 01.05.2010, 16:40

Ненадо задавать тип параметра в функции,и вызывать просто и без всяких ()

Visual Basic
1
2
3
4
5
6
7
Private Sub vvodmatrix(x1)
...
Private Sub vvodvector(x1)
...
vvodmatrix a
...
vvodvector x

P.S. в коде недочеты,нет границ цикла NEXT....у gaw все четко

@Miller-1981 · 01.05.2010, 16:55 **[ТС]**

Спасибо всем прокатило и так и так

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Miller-1981 33 / 32 / 2 Регистрация: 26.01.2009 Сообщений: 592

	Передача массива 01.05.2010, 14:48. Показов 950. Ответов 5 Метки нет (Все метки) Подскажите в чем проблема Dim a() as integer redim a(5,5) vvodmatrix(a) .... private sub(x() as integer) ... end sub дает ошибку несовпадения типов с строке vvodmatrix(a) 0

@Miller-1981 33 / 32 / 2 Регистрация: 26.01.2009 Сообщений: 592
	01.05.2010, 16:55 [ТС]
	Спасибо всем прокатило и так и так 0