• Home
 · 
• Math/Dates
 · 
• TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN

TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN

TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN

API Declarations


'PLACE FOUR LABELS LBLSTART,LBLEND,LBLINCREMENT,LBLREMARK WITH CAPTIONS
'STARTING NUMBER,ENDING NUMBER,INCREMENT VALUE AND REMARK/RESULT
'PLACE FIVE TEXTBOXES =THREE TO ACCEPT INPUT FOURTH TO DISPLAY RESULT
'FIFTH TEXTBOX WITH TEXT "A SERIES WITH SUCH A STARTING,ENDING AND INCREMENT
'CANNOT EXIT"
'PLACE 3 COMMAND BUTTONS CMDRESULT,CMDCLEAR,CMDEXIT
Dim s, e, d, a As Integer




Rate TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Cmdsum_Click()
s = CInt(Text1.Text)
e = CInt(Text2.Text)
d = CInt(Text3.Text)
If (e - s) / d = Int((e - s) / d) Then
a = ((s + e) * (e - s + d)) / (2 * d)
Text4.Text = a
Else
Text4.Visible = False
Text5.Visible = True
End If

End Sub

Private Sub Cmdclear_Click()
Text5.Visible = False
Text4.Visible = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

End Sub

Private Sub Cmdexit_Click()
Unload Me
End

End Sub

Private Sub Form_Load()
Text5.Visible = False

End Sub