Помогите пожалуйстаС клавиатуры вводятся 5 символов.Подсчитать количество знаков...

Question

Помогите пожалуйста
С клавиатуры вводятся 5 символов.Подсчитать количество знаков препинания.в VBA

Comments

Будем считать только точки и запятые, или все знаки препинания?

---

Скорее всего все,как в контрольной написано так здесь и написала

---

. , ; : Еще есть?

---

Да еще 2 задания осталось

---

)))) я спрашиваю, еще знаки препинания есть, или только эти четыре?

---

да это все,

Answer 1

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