by C.R.RAJAGOPAL STAR TECHNOLOGIES (3 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 11th August 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN. Why not be the first to post a comment about TO FIND THE SUM OF ANY SERIES IF THE STARTING NUMBER,ENDING NUMBER AND INCREMENT VALUES ARE GIVEN.