Прога должна выполнять проверку на правильность расстановки скобок…я сделал так, что она считает количество скобок вида ( и вида ). Но есть же ситуации когда пр. 2(+2-1) скобка должна стоять после плюса…значит надо проверять на сочетания знак( и )знак…как это выполнить в коде…я уже и не знаю…второй день сижу
Private Sub Command1_Click()
s$ = Text1.Text
k% = 0
z% = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "(" Then
k = k + 1
End If
If Mid(s, i, 1) = ")" Then
z = z + 1
End If
If z = k Then
Text2.Text = "верно"
End If
If z > k Or z < k Then
Text2.Text = "не верно"
End If
Next i
End Sub

Есть траблы ещё с одной прогой…суть её в том, что бы найти количество слов и цифр (не чисел) в строке. У меня ищет количество чисел, слова тоже ищет (но числа тоже учитывает как слово…прошу заметить не цифры, а числа)
Private Sub Command1_Click()
Dim varArray As Variant
Dim a As String
Dim b As Integer
Dim LAT, K
Dim c As Integer
Dim vu As Integer
a = Text1.Text
varArray = Split(a)
Text2.Text = (UBound(varArray) + 1)
c = Text2.Text
' при вводе символов проверяет по кодовой таблице
For i = 1 To Len(Text1.Text)
K = Asc(Mid(Text1.Text, i, 1))
If (K > 47 And K < 58) Then
LAT = LAT + 1
End If
Next i
vu = LAT
c = c - vu
' вывод результатов после ввода любого символа
Text3.Text = "цифр = " & Str(LAT) & vbCrLf & "слов = " & Str(c)
End Sub

И задача на массивы…Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулем.
Сделал код…он считает только аксиальный элемент…а как его заменить нулём?
Option Explicit
Private Ar() As Integer 'Исходный массив
Private DimAr As Integer 'Размер массивов
Dim xz As Integer

Private Sub Command1_Click()
xz = 1

Dim tyu As String
Dim i As Integer 'Вспомогательные переменные
If (TextDimAr.Text = "") Or (TextMin.Text = "") Or (Textmax.Text = "") Then
MsgBox "Не заданы исходные данные .", vbOKOnly & vbCritical, _
" Обработка массива"
Exit Sub
End If
Randomize 'Инициализация датчика случайных чисел
TextID.Text = ""
TextRes.Text = ""
DimAr = Val(TextDimAr.Text)
ReDim Ar(DimAr) 'Определение размера исходного массива
For i = 1 To DimAr
'Генерация случайного целого числа
Ar(i) = Rnd * (Textmax.Text - TextMin.Text) + TextMin.Text

If Ar(i) < 0 Then
TextID.Text = TextID.Text & " "
End If
TextID.Text = TextID.Text & Str(Ar(i))
Next i
End Sub

Private Sub Command2_Click()
Dim j As Integer
Dim k As Integer
Dim i As Integer

j = Ar(1): k = 1
For i = 2 To DimAr
If Ar(i) > j Then
j = Ar(i): k = i
Ar(i) = 0
Next i
TextRes.Text = "Максимальный элемент массива =" & Str(j)
End Sub

ээээ...ну вот пример... Мне 19 лет и 4 месяца
4-слова 3-цифры

если чесно, то до меня это туговато доходит...если можешь, то напиши итоговый код....

Спасибо...работает)))