Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Пятница, 13.12.2024
Главная » 2013 » Январь » 08
  1. Sub Macro1()
  2.  
  3.     x = Cells(1, 2)
  4.     y = Cells(2, 2)
  5.     R = Cells(3, 2)
  6.     flag = False
  7.     If x ^ 2 + y ^ 2 <= R ^ 2 Then
  8.         flag = True
  9.     End If
  10.  
  11.     If flag Then
  12.          MsgBox ("Точка M("  ... Читать дальше »
Категория: Простые примеры | Просмотров: 1978 | Добавил: is | Дата: 08.01.2013 | Комментарии (0)