Visual Basic 6.0 Отвечаю на несложные вопросы

[Guest]

Я наконец зарегистрировался на вашем сайте и готов от сюда не вылезать. Отвечаю людям, у которых возникли проблемы при программировании. Игнорирую вопросы людей, не желающих постигать Visual Basic 6.0.
(Тему создал потому, что хочу помочь, но постоянно спрашивать "А какая у вас версия? Случайно Не 6.0? " - не конструктивно.)

 

[yokoshima]

<table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'> :what?: </td>[/tr]</table>

 

[Dianka111]

Дорогой Керимос, не мог бы подсказать как создать алгоритм,с помощью которого можно было бы вычислять факториал числа??? Заранее благодарна

 

[werti]

Примерно так

Dim n as integer = 4
dim s as integer = 1
for i as integer = 2 to n
s=s*i
next

n - n!

 

[Interest]

Привет.
нужна функция нахождения окружности на отрезке.
известны C1, C2, A, B найти C3

Ссылка скрыта от гостей

 

[gnusmas121]

Привет ветерану вопрос прост стоит вин7 студия 2008 офис 2003 как обратиться к книге exel (добавить com компонент обектов exsel в панель инструментов). в окне добавления com соответствующего компонента нет :what?: перерыл библиотеки вооще не могу найти подходящюю где прячется фиг знает

 

[gnusmas121]

к моему предидущему вопросу может не совсем VB 6.0 но хренька с которой возможно столкнутся везде
обращение к объекту exel как описано везде где я нашел
Dim Экс As Excel.Application = CreateObject("Excel.Application")
Экс.Workbooks.Open("C:\Книга1.xls")
Dim Лист As Excel.Workbooks = Экс.Workbooks("Книга1.xls").Worksheets("Лист1")
TextBox1.Text = Лист.Cells(1, 1).Value + Лист.Cells(1, 2).Value + Лист.Cells(1, 3).Value
Экс.Quit()
на это студия 2008 ругается пишет "тип объекта не определен"
это то что заработало без возмущений
Dim Экс As Object = CreateObject("Excel.Application")
Экс.Workbooks.Open("C:\Users\цып\Desktop\Книга1.xls")
Dim Лист As Object = Экс.Workbooks("Книга1.xls").Worksheets("Лист1")
TextBox1.Text = Лист.Cells(1, 1).Value + Лист.Cells(1, 2).Value + Лист.Cells(1, 3).Value
Экс.Quit()

 

[hunterex]

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

 

[lemon3ater]

Привет мастеру! Сам здесь новенький, так что хотелось бы задать парочку нубских вопросов:

1) В каком диапазоне лежит значение переменной Х в результате выполнения фрагмента программы:

Dim x As Integer
X=Int((Rnd*20)+1)

2) Составить проект, определяющий, существует ли треугольник со сторонами a, b, c введенными с клавиатуры. При этом выводится соответствующиее сообщение.

3) Чему будет равно значение переменной S в результате выполнения фрагмента программы:

Dim K, S As Integer
S=0
For I=1 to 5
F=S+k
Next K

P.S.: Ощущение. что в 3 задании опечатка
P.S.S.: Решение необходимо срочно, заранее благодарен..

 

[hosm]

ответы на вопросы lemon3ater в теме link removed
влпросы про лотус перенесены в https://codeby.net/threads/35336.html

 

[European]

Тема закрыта в связи с отсутствием Мастера на протяжении полугода.