Page 107 - 4788

n = Len(s)
Label1.Caption = Str(n)
Label2.Caption = Left$(s, 4)
Label3.Caption = Right$(s, 7)
Label4.Caption = Mid$(s, 6, 1)
Label5.Caption = Val("90")
Label6.Caption = InStr(s, " ")
Label7.Caption = Chr(74)
Label8.Caption = Asc("o")
End Sub

Рисунок 15.1 – Результат виконання програми

Приклад. Підрахуємо кількість букв в реченні
Private Sub Command1_Click()
Dim s, b, k As String
s = Text1.Text
b = Text2.Text
n = Len(s)
Sum = 0
For i = 1 To n
If Mid(s, i, 1) = b Then
Sum = Sum + 1
End If

105