Поиск ошибки в программе - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы