Помогите пожалуйстаС клавиатуры вводятся 5 символов.Подсчитать количество знаков препинания.в VBA
Помогите пожалуйста
С клавиатуры вводятся 5 символов.Подсчитать количество знаков препинания.в VBA
Гость
Ответ(ы) на вопрос:
ГостьSub Z()
Dim s As String
Dim i As Integer
Dim n As Integer
For i = 1 To 5
s = InputBox("Введите строку")
If s = "." Or s = "," Or s = ";" Or s = ":" Then n = n + 1
Next i
MsgBox ("Знаков препинания: " & n)
End Sub
Не нашли ответ?
Похожие вопросы