Определить, сколько слов и цифр в тексте - VB
Формулировка задачи:
дан текст. сколько слов в тексте? сколько цифр в тексте? В Visual Basic 6.0
Решение задачи: «Определить, сколько слов и цифр в тексте»
textual
Листинг программы
Private Sub Form_Load() Dim D As Long, W As Long, S As String S = "дан текст. сколько слов в тексте? сколько цифр в тексте? В Visual Basic 6.0" W = NumWord(S) D = NumDigit(S) MsgBox "Количество слов: " & W & vbNewLine & "Количество цифр: " & D End Sub Private Function NumDigit(ByVal Value As String) As Long Dim P As Long, CurChar As String Value = Trim$(Value) For P = 1 To Len(Value) CurChar = Mid$(Value, P, 1) NumDigit = NumDigit - (CurChar >= "0" And CurChar <= "9") Next End Function Private Function NumWord(ByVal Value As String) As Long Dim P As Long, CurWord As String, CurChar As String Value = Trim$(Value) For P = 1 To Len(Value) CurChar = LCase(Mid$(Value, P, 1)) If (CurChar >= "a" And CurChar <= "z") Or _ (CurChar >= "а" And CurChar <= "я") Then CurWord = CurWord & CurChar Else NumWord = NumWord - (Len(CurWord) > 0) CurWord = vbNullString End If Next End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д