VBNet - Форум - Last attempt!!!

Вопрос: Last attempt!!! Добавлено: 21.11.05 13:14

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

People спасайте!!! Опять я с текстом к вам... Function ChekOnLetter не интегрируется в private sub Command1. Пишет error: expected End Sub
При запуске command2_click() пишет Error: argument not optional (т.е. аргумент - это CheckOnLetter)

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
Dim cnt%

Private Sub Command1_Click()
Function CheckOnLetter(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
For i = 1 To 20000
    For j = 1 To Len(arrWords(i))
        If CheckOnLetter(arrWords(i), j) Then letters(i) = letters(i) + 1
    Next
Next
For i = 1 To 20000
    If letters(i) > result Then
        result = letters(i)
        result2 = i
    End If
Next
MsgBox arrWords(result2)'Я вообще хотел ответ выдать, как Label1.caption=arrWords(result2) - так можно?
End Function
End Sub

Private Sub Command2_Click()
cnt = 0
For i = 1 To Len(sArr(Max))
   If CheckOnLetter(Mid(sArr(Max), i, 1)) Then
       cnt = cnt + 1
   End If
Next i
Label2.caption=cnt
End Sub

Что тут можно сделать??????? Уже 4 дня с этой прогой вожусь, пойду скоро намыливать веревку! :(
З.Ы. нет сначала расправлюсь с преподшей по информатике
:)
Ответить

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

Номер ответа: 1 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391	Профиль \| \| #1	Добавлено: 21.11.05 15:12
	м-да.... Function fff 'код функции End Function Sub aaa 'код процедуры EndSub Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #2	Добавлено: 21.11.05 16:19
	от ужеш паскатислы! или дельфисты... пофиг, незря говорят: сел за этот язык - считай умер Привожу к твоему сведению, что в VB, в Си, итп... НЕЛЬЗЯ делать вложенный функции/процедуры, то только Делфи отличится по этому поводу... так что Private Sub Command1_Click() это процедура обрабатывающая клик по кнопке... и в ней НЕЛЬЗЯ писать Function CheckOnLetter ... функцию которая что-то там делает... Ответить

Номер ответа: 3 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #3	Добавлено: 21.11.05 17:27
	Ну почему же, в Сях можно, хотя и неявно - Inline. А так - только вызовом. Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 21.11.05 17:41
	да, хакер прав... пиши отдельно! Ответить

Страница: 1 |