|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2011, 21:20 | #1 |
Регистрация: 29.11.2011
Сообщений: 6
|
Ошибка в коде программы VB
подчеркивает InputVector и OutputVector, в чем ошибка?
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 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в коде программы. Не выполняется. | steeledguy | Помощь студентам | 2 | 19.11.2011 03:25 |
Ошибка в коде программы | eXtrem | Помощь студентам | 5 | 09.04.2011 19:34 |
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? | ankris | HTML и CSS | 5 | 23.11.2010 16:58 |
Ошибка в коде шифрующей программы. как исправить | Dima_Sat | Помощь студентам | 0 | 18.12.2009 13:35 |
[C++] ошибка в коде программы!! | jazzben | Помощь студентам | 12 | 27.09.2008 19:25 |