Поиск ошибки в программе - VB
Формулировка задачи:
Задание такое:Дан текст, в котором встречаются арифметические выражения вида a Å b, где Å - один из знаков +, -, *, /. Выписать все арифметические выражения и вычислить их значения. Кому не трудно помогите разобраться. Тему работы с файловыми и строковыми типами данных почти не понял
Решение задачи: «Поиск ошибки в программе»
textual
Листинг программы
Dim a%, b%, c%, m$, m1$ Private Sub Command1_Click() List1.Clear For i = 1 To Len(Text1.Text): If Mid(Text1.Text, i, 1) = "+" Then 'если встретили "+" m = Mid(Text1.Text, i - 1, 3) 'выписываем это арифметическое выражение в отдельную строку a = Val(Mid(m, 1, 1)) 'определяем 1-е число b = Val(Mid(m, 3, 1)) 'определяем 2-е число c = a + b 'производим арифметическое действие m1 = m + "=" + CStr(c) 'составляем ЕГО полную строковую запись List1.AddItem m1 'и выводим эту запись в ListBox End If If Mid(Text1.Text, i, 1) = "-" Then 'если встретили "-" m = Mid(Text1.Text, i - 1, 3) a = Val(Mid(m, 1, 1)) b = Val(Mid(m, 3, 1)) c = a - b m1 = m + "=" + CStr(c) List1.AddItem m1 End If If Mid(Text1.Text, i, 1) = "*" Then 'если встретили "*" m = Mid(Text1.Text, i - 1, 3) a = Val(Mid(m, 1, 1)) b = Val(Mid(m, 3, 1)) c = a * b m1 = m + "=" + CStr(c) List1.AddItem m1 End If If Mid(Text1.Text, i, 1) = "/" Then 'если встретили "/" m = Mid(Text1.Text, i - 1, 3) a = Val(Mid(m, 1, 1)) b = Val(Mid(m, 3, 1)) c = a / b m1 = m + "=" + CStr(c) List1.AddItem m1 End If Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д