VBNet - Форум - Ox41-41-41-41-41-41!!!!!!!

Вопрос: Ox41-41-41-41-41-41!!!!!!! Добавлено: 22.11.05 16:11

Автор вопроса: LoveSan

Не могу понять в чем ошибка...

Dim arrWords(1 To 20000) As String, i As Long, letters(1 To 20000) As Long, result As Long, j As Long, result2 As Long
Dim sArr() As String 'Массив строк для хранения слов
Dim Max As Long

Function MinWord(st As String, position As Long) As Boolean
sArr = Split(Text1.Text, " ")
Max = 0
For i = 0 To UBound(sArr)
    If Len(sArr(i)) < Len(sArr(Max)) Then
        'Это слово короче
        Max = i
    End If
Next i
MsgBox sArr(Max)
End Function

Private Sub Command1_Click()
Call MinWord
End Sub

ВЫДАЕТ ЭРРОР: ARGUMENT NOT OPTIONAL!!!
Ответить

Ответы Всего ответов: 13

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 22.11.05 16:25
	Уписаться можно... ) Function MinWord(st As String, position As Long) As Boolean Call MinWord Не замечаешь разницы в типах параметров при декларации функции и её вызове? Ответить

Номер ответа: 2 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #2	Добавлено: 22.11.05 16:35
	следующий раз сообщения с подобной темой будут удаляться без предупреждения. Ответить

Номер ответа: 3 Автор ответа: LoveSan Вопросов: 10 Ответов: 4	Профиль \| \| #3	Добавлено: 22.11.05 16:47
	Если писать Call MinWord(st As String, position As Long) As Boolean Тоже выдает ошибку... Я в VB совсем noob, мож че недопонимаю? Ответить

Номер ответа: 4 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #4	Добавлено: 22.11.05 16:51
	Private Sub Command1_Click() empt = MinWord ("абракадабра", 1) End Sub Ответить

Номер ответа: 5 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #5	Добавлено: 22.11.05 20:12
	2 UU: imho, какие нужно иметь нервы, чтобы ответить на вопрос! sorry за флуд Ответить

Номер ответа: 6 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540	Профиль \| \| #6	Добавлено: 22.11.05 20:28
	какие нужно иметь нервы, чтобы ответить на вопрос человек просто не знает Vb.. Причем тут нервы? Он же не задал вопрос типа: "Как из VB биос прошить..?" 2 UU: сорри за флуд v2.0 Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 22.11.05 21:59
	Private Sub Form_Load() '(читать с права на лево) MsgBox MostLongWord("Улыбок тебе дед Мокар", vbInformation, "Самое длинное слово" End End Sub Private Function MostLongWord(text As String) As String Dim tmpArr() As String 'динамич. массив tmpArr = Split(text, " " 'разбили на массив слов Dim i As Integer, _ now_max_len As Integer, _ pos As Integer For i% = 0 To UBound(tmpArr) 'цикл для прохода по всему массиву If Len(tmpArr(i) > now_max_len Then 'находим самое длинное now_max_len% = Len(tmpArr(i) pos% = i% 'запоминаем его End If Next i% MostLongWord = tmpArr(pos) 'возвратили самое длинное End Function Ответить

Номер ответа: 8 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #8	Добавлено: 22.11.05 22:02
	а тьфу, самое короткое надо было? ну короче смысл понятен, думаю сам дальше переделаешь... Ответить

Номер ответа: 9 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #9	Добавлено: 22.11.05 22:45
	Прочитайте наоборот: "улыбок тёбе дед мокаР" ))) Ответить

Номер ответа: 10 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #10	Добавлено: 23.11.05 12:40
	Noviks, да ты ещё и читать умеешь?! круто! Ответить

Номер ответа: 11 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #11	Добавлено: 23.11.05 12:47
	2HACker, а ты видимо не умеешь, раз здесь (http://www.vbnet.ru/forum/show.aspx?id=92114) такие вопосы задаешь... Ответить

Номер ответа: 12 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #12	Добавлено: 23.11.05 18:59
	2 UU (sorry for offtop) 10) Полный рабочий день Всётаки на последнем месте написали, темболее Киев, не так уж и далеко от меня... Да и просто, что, переспросить нельзя? Ответить

Номер ответа: 13 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #13	Добавлено: 23.11.05 20:44
	2 Noviks: не флуди! 2 «Unknown Lamer»: хотя я такой же в Delph'ях и С'ях 2 UU: sorry за флуд v3.0 Ответить

Страница: 1 |