Ошибка в VB - Помощь студентам

Мина · 01.12.2011, 01:10

В программном коде подчеркивает слова InputVector и OutputVector. Не могу понять в чем причина. Вектора вроде объявлены, не подскажете в чем может быть ошибка?

Heming · 01.12.2011, 01:16

Мина, пока в вас не полетели камни, скажу:код в студию, по тому что вы сказали можно только кучу злобных шуток в ответ, тут же не экстрасенсы сидят, нужно видеть среду происходящего.

Мина · 01.12.2011, 01:37

ой сори щас будет код

Мина · 01.12.2011, 01:38

Public Class Form1
Function F1(ByVal x() As Single) As Boolean
F1 = True
For i = 1 To x.GetUpperBound(0) - 1
If x(i) > x(i + 1) Then
Else
x = False
End If
Exit For
Next
End Function
Private Sub btnПуск_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnПуск.Click
Dim TA(), TB() As Single
Dim n As Integer
txtЖурнал.Clear()
n = InputBox("n=?")
txtЖурнал.AppendText("n=" & n & vbCrLf)
ReDim TA(n), TB(n)
InputVector(TA, "TA")
txtЖурнал.AppendText("Вектор ТА" & vbCrLf)
OutputVector(TA, txtЖурнал)
InputVector(TB, "TB")
txtЖурнал.AppendText("Вектор ТB" & vbCrLf)
OutputVector(TB, txtЖурнал)
If F1(TA) Then
txtЖурнал.AppendText("TA УПОРЯДОЧЕН" & vbCrLf)
Else
OutputVector(TA, txtЖурнал)
End If
If F1(TB) Then
txtЖурнал.AppendText("TB УПОРЯДОЧЕН" & vbCrLf)
Else
OutputVector(TB, txtЖурнал)
End If
End Sub
End Class

не знаю на сколько правильно, но препод утвердил

01.12.2011, 01:10	#1
Мина Регистрация: 29.11.2011 Сообщений: 6	Ошибка в VB В программном коде подчеркивает слова InputVector и OutputVector. Не могу понять в чем причина. Вектора вроде объявлены, не подскажете в чем может быть ошибка?

01.12.2011, 01:16	#2
Heming Форумчанин Регистрация: 06.07.2010 Сообщений: 105	Мина, пока в вас не полетели камни, скажу:код в студию, по тому что вы сказали можно только кучу злобных шуток в ответ, тут же не экстрасенсы сидят, нужно видеть среду происходящего. Carpe Diem

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Nero - ошибка драйвера DMA. ошибка CRC	NecRoMat	Софт	5	09.05.2012 01:29
Ошибка run-time Error 1004 общая ошибка ODBC	kaval88	Microsoft Office Excel	0	27.02.2011 20:20
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами?	ankris	HTML и CSS	5	23.11.2010 16:58
Это ошибка Delphi или моя ошибка???	bloodeagle	Общие вопросы Delphi	3	12.11.2009 15:26
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка...	infrared	Помощь студентам	0	16.04.2009 17:44

01.12.2011, 01:37	#3
Мина Регистрация: 29.11.2011 Сообщений: 6	ой сори щас будет код

01.12.2011, 01:38	#4
Мина Регистрация: 29.11.2011 Сообщений: 6	Public Class Form1 Function F1(ByVal x() As Single) As Boolean F1 = True For i = 1 To x.GetUpperBound(0) - 1 If x(i) > x(i + 1) Then Else x = False End If Exit For Next End Function Private Sub btnПуск_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnПуск.Click Dim TA(), TB() As Single Dim n As Integer txtЖурнал.Clear() n = InputBox("n=?") txtЖурнал.AppendText("n=" & n & vbCrLf) ReDim TA(n), TB(n) InputVector(TA, "TA") txtЖурнал.AppendText("Вектор ТА" & vbCrLf) OutputVector(TA, txtЖурнал) InputVector(TB, "TB") txtЖурнал.AppendText("Вектор ТB" & vbCrLf) OutputVector(TB, txtЖурнал) If F1(TA) Then txtЖурнал.AppendText("TA УПОРЯДОЧЕН" & vbCrLf) Else OutputVector(TA, txtЖурнал) End If If F1(TB) Then txtЖурнал.AppendText("TB УПОРЯДОЧЕН" & vbCrLf) Else OutputVector(TB, txtЖурнал) End If End Sub End Class не знаю на сколько правильно, но препод утвердил