Пример для вычисления - VB
Формулировка задачи:
Здравствуйте! помогите с решением примера в визуал бейсике! необходимо вычислить: a/1 + a/2 + ... + a/n, я немного поделал но чего то запутался , вроде еще надо сделать вначале проверку корректности входных данных.. вот че пока сделал обьясните как делать пожалуста )
Решение задачи: «Пример для вычисления»
textual
Листинг программы
Sub Task() Dim a, n, i As Integer, vSum, bFlag As Boolean Do a = InputBox("Ââåäèòå Г*:", "Ââîä Г¤Г*Г*Г*ûõ") If a = vbNullString Then Exit Sub bFlag = Not IsNumeric(a) If bFlag Then MsgBox "Ââîäèòå òîëüêî Г·ГЁГ±Г«Г*!", vbCritical, "ГЋГёГЁГЎГЄГ* ââîäГ*!" Loop While bFlag Do n = InputBox("Ââåäèòå n:", "Ââîä Г¤Г*Г*Г*ûõ") If n = vbNullString Then Exit Sub bFlag = Not (IsNumeric(n) And n > 0) If bFlag Then MsgBox "Ââîäèòå òîëüêî Г·ГЁГ±Г«Г* áîëüøå 0!", vbCritical, "ГЋГёГЁГЎГЄГ* ââîäГ*!" Loop While bFlag For i = 1 To n vSum = vSum + a / i Next MsgBox vSum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д