Вход | Регистрация

О жизни... ::

Метки:

OFF:Домашнее задание на Visual Basic

Я
   Rick
11.11.04 - 21:42
Сам не когда программированием не занимался. Только начинаю изучать 1С с помощью этого сайта. Сыну задали домашнее задание написать программку на Visual Basic.
Задание: Рассчитать сумму куба нечетных чисел от 1 до N, где N вводится с клавиатуры.
13 +33 +53 +N3 = B
Помогите пожалуйста!!!
 
  Рекламное место пустует
   Юрий28
1 - 11.11.04 - 22:53
>>Только начинаю изучать 1С с помощью этого сайта.
А причем здесь сын? Или наоборот а при чем здесь сайт?
   Mikle Shaman
 
2 - 12.11.04 - 14:45
Ну вроде так как-то:

nn=InputBox("Введите число","Тест",0)
If nn>0 Then
CountN nn
Else
MsgBox "Ошибка ввода данных",vbExclamation,"Error"
End If

Sub CountN(n)
Sum=0
For i=1 To n Step 2
Sum=Sum+(i*i*i)
Next
MsgBox "Сумма кубов чисел от 1 до " & n & " равна " & Sum,,"Результат"
End Sub

На VBS работает...
А в каком классе сын-то?
   Прапорщик Задов
 
4 - 12.11.04 - 15:07
Mikle Shaman, что надо дописать в твой код, чтоб все промежуточные результаты писались в файл?
   Mikle Shaman
 
5 - 12.11.04 - 15:38
(4) Вот обновленная версия :)

Set fs = CreateObject("Scripting.FileSystemObject")
nn=InputBox("Введите число","Тест",0)
If nn>0 Then
Set ff=fs.OpenTextFile("log.txt", 2, True)
CountN nn
ff.Close
Set fs=Nothing
Else
MsgBox "Ошибка ввода данных",vbExclamation,"Error"
End If
Sub CountN(n)
Sum=0
For i=1 To n Step 2
 Sum=Sum+(i*i*i)
ff.WriteLine i & " " & Sum
Next
MsgBox "Сумма кубов чисел от 1 до " & n & " равна " & Sum,,"Результат"
ff.WriteLine "Итого: " & Sum
End Sub
   Черт
 
6 - 12.11.04 - 15:47
для открытия и записи в файл в VB надо использовать
intFH = FreeFile()
Open App.Path & "\txt.log" For Append As intFH
   
       Print #intFH, Sum;
Close #intFH
   Прапорщик Задов
 
7 - 12.11.04 - 15:51
Mikle Shaman, спасибо! прикольно работает
   Mikle Shaman
 
8 - 12.11.04 - 15:54
Ок, буду знать. А в чем принципиальная разница?


Список тем форума
  Рекламное место пустует
Независимо от того, куда вы едете — это в гору и против ветра!
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует