Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке - VB
Формулировка задачи:
в visual basic 6.0
Проверить, одинаковое ли число открывающихся и закрывающихся скобок в
данной строке.
Решение задачи: «Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке»
textual
Листинг программы
Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
If Mid(str1, i, 1) = char1 Then k = k + 1
If Mid(str1, i, 1) = char2 Then k = k - 1
if k<0 then Picture1.Print "Вы сумели закрыть больше скобок, чем открыли! А это не понравится ни одному компилятору!": exit sub
Next
If k > 0 Then Picture1.Print "больше открывающихся"
If k < 0 Then Picture1.Print "больше закрывающихся"
If k = 0 Then Picture1.Print "равно"
End Sub