Составить программу по блок схеме на VBA

[Anna080]

Уважаемые, помогите пожалуйста с двумя задачами!
1. не пойму как описать правильно ветвление, блок-схему и код прикладываю:
Sub задача1()
Dim a, b, c, f As Integer
Worksheets("Лист2").Select
Cells.Clear
a = InputBox("Введите значение a, ввод исходных данных")
b = InputBox("Введите значение b, ввод исходных данных ")
c = InputBox("Введите значение c, ввод исходных данных ")
If a = b Then
If b > c Then a = a + c
f = a - b
Else: a = a + b
f = a + c
If a <> b Then a = a + c
f = b + c
End If
MsgBox ("значение f=") & f
Cells(3, 3).Value = f
End Sub

2. вторая задачка я понимаю что простая, но как ее сделать не соображу. прикладываю ток файл с блок-схемой.
Заранее благодарна!

[ViktorR]

Код надо форматировать: выделить код и нажать символ # в меню окна, в котором вводится сообщение.

Sub задача1()
Dim a, b, c, f As Integer
Worksheets("Лист2").Select
Cells.Clear
a = InputBox("Введите значение a, ввод исходных данных")
b = InputBox("Введите значение b, ввод исходных данных ")
c = InputBox("Введите значение c, ввод исходных данных ")
If a = b Then
   If b > c Then
       a = a + c
       f = a - b
   Else
       a = a + b
       f = a + c
   End If
Else
   a = a + c
   f = b + c
End If
MsgBox ("значение f=") & f
Cells(3, 3).Value = f
End Sub

Для второй задачи можно использовать While.

While i <= N
   if x[i] = 0 then
      k = k + 1
   end if
   i = i + 1
Wend
<Вывод К>
<Конец>

Как-то так ...

[Anna080]

Спасибо! Но в первой задаче у меня по прежнему результат выдает не верно(

[ViktorR]

Но в первой задаче у меня по прежнему результат выдает не верно(

Ну не совсем неверный. Выдается тот, который Вы хотели получить.

На самом деле я не обратил внимание, что переменные определены и определены как целого типа.
Функция InputBox() возвращает строку и VBA умалчивает о том, что есть несоответствие типов.
Т.е. если a = 5, b = 7, то a + b = 57, а b + a = 75.
Там вроде надо доопределять это. Как не помню.

Можно поступить так:
a = Val(InputBox("Введите значение a, ввод исходных данных"))
b = Val(InputBox("Введите значение b, ввод исходных данных "))
c = Val(InputBox("Введите значение c, ввод исходных данных "))
Val() - функция, которая преобразует числа, записанные как строковый тип в число в обычно смысле.
Т.е. если a = 5, b = 7, то a + b = 12, и b + a = 12.



Как-то так ...

[Anna080]

теперь у меня все числа просто суммируются, я так поняла. Например если ввожу а=3, b=3, c=5 то получается f=11. А если я все правильно понимаю, то должно быть f=8. И как быть?

[ViktorR]

Если еще не разобрались, то смотрите блок-схему.
В Вашем примере: а=3, b=3, c=5.
Т.о.
1. Первое ветвление - вправо: a = b.
2. Второе ветвление влево, т.к. b < c.
3. а = а + b
Компилятор выполняет эту операцию так: 3 + 3 = 6 --> a.
Комбинацию символов "-->" тут следует читать как - "Результат послать в"
Т.е. а = 6.
4. f = a + c. 6 + 5 = 11 --> f.
Т.е f = 11.

Так что ...

[Anna080]

Все верно, я не правильно посмотрела блок-схему!! Спасибо вам огромное, что разжевали!!!) Очень благодарна!

[spam_kate]

Помогите, пожалуйста, составить блок-схему для программы
Private Sub CommandButton1_Click()
Dim M, N, Result As Integer 'Создаем переменные для M, N и результата типа Integer
M = TextBox1.Value 'Присваиваем переменной M значение из TextBox1
N = TextBox2.Value 'Присваиваем переменной N значение из TextBox2
Result = 0 'Присваиваем результату значение 0
For counter = 1 To N 'Цикл от 1 до N
Result = Result + M 'Каждый раз прибавляем к результату число M
Next counter
TextBox3.Text = Result 'Запиываем в TextBox3 результат вычислений
End Sub