Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Casru
0 / 0 / 0
Регистрация: 26.05.2016
Сообщений: 12
1

не понимаю почему не работает

10.10.2016, 13:56. Просмотров 422. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub main()
Dim p As Integer, s As Integer
Do Until a = IsNumeric(a)
a = InputBox("Введите число А", , 1)
Loop
Do Until b = IsNumeric(b)
b = InputBox("Введите число B", , 1)
Loop
Range("A1").Value = "Сторона A:"
Range("A2").Value = "Сторона B:"
Range("A3").Value = "Площадь S ="
Range("A4").Value = "Периметр P ="
s = a * b
p = 2 * (a + b)
Range("B1").Value = a
Range("B2").Value = b
Range("B3").Value = a & "*" & b
Range("B4").Value = 2 & "*" & "(" & a & "+" & b & ")"
Range("C3").Value = s
Range("c4").Value = p
End Sub
Проблема в том, что периметр P считается неправильно получается допустим 2*(2+2) = 2*22=44, задаю переменные для a и b, крашится защита от дурака :
Visual Basic
1
2
3
Do Until a = IsNumeric(a)
a = InputBox("Введите число А", , 1)
Loop
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2016, 13:56
Ответы с готовыми решениями:

Не понимаю почему не работает
Здравствуйте! Есть HTML документ<!DOCTYPE HTML> <html> <head> <meta charset="utf-8"> ...

Не понимаю, почему не работает
Привет всем. Ниже очень простой код, который убирает флуд в чате. Если вы отправляете очень много...

Не понимаю почему не работает
public class Program { public static void main(String args) { int a,b,c; ...

Не понимаю почему не работает
Нужно что бы при прибавлении числа, если он доходит до указанного предел начинал считать с нуля ...

Туплю не понимаю почему не работает
Массив должен заполняться рандомными значениями, но при запуске прога зависает. //...

1
Казанский
14908 / 6310 / 1720
Регистрация: 24.09.2011
Сообщений: 9,977
10.10.2016, 16:29 2
Casru,
1. лучше
Visual Basic
1
2
3
Do
  a = InputBox("Введите число А", , 1)
Loop Until IsNumeric(a)
2.
Visual Basic
1
2
Range("B3").Value = a * b
Range("B4").Value = 2 * (Val(a) + b)
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2016, 16:29

Не работает Капча. не понимаю почему
Добрый день, честно говоря я уже подзамучался, пытался вставить и сложные и простые капчи, ничего...

Не понимаю почему не работает сайт
https://www.youtube.com/watch?v=6CQ7DYni7Bg Смотрел как работает параллакс, написал все в точности...

не понимаю почему не работает root
Всем привет! Недавно разбираюсь с nginx-ом и не могу понять одной вещи, и нагуглить тоже. Суть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.