Пример для вычисления - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы