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

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

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

yokoshima

New member
11.12.2009
1
0
#2
<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>
 
D

Dianka111

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

werti

#4
Примерно так
Код:
Dim n as integer = 4
dim s as integer = 1
for i as integer = 2 to n
s=s*i
next
n - n!
 

gnusmas121

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

gnusmas121

New member
23.08.2009
4
0
#7
:) к моему предидущему вопросу может не совсем 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()
 
H

hunterex

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

lemon3ater

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

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.: Решение необходимо срочно, заранее благодарен..
 
04.09.2006
2 566
3
#11
Тема закрыта в связи с отсутствием Мастера на протяжении полугода.
 
Статус
Закрыто для дальнейших ответов.