Option Explicit
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdRun_Click()
Dim num(19) As Integer
Dim i As Integer
Dim sum As Integer
grd.Rows = 2
grd.Cols = 2
grd.Clear
For i = 0 To 19 Step 1
num(i) = InputBox("Enter any integer")
lstno.AddItem (num(i))
Next i
grd.TextMatrix(0, 0) = "ALL NO."
For i = 0 To 19
grd.TextMatrix(grd.Rows - 1, 0) = num(i)
grd.Rows = grd.Rows + 1
Next i
For i = 0 To 19
sum = i + num(i)
Next i
lblsum.Caption = sum
End Sub
churva_churva
-9
Junior Poster
Recommended Answers
Jump to PostWhat is that GRID??
If you want to calculate the sum of "lstno" items, you'll need a simple loop:For i = 0 to 19 sum = sum + lstno.List(i) Next i
But I think you are trying to do something more complicated, would you please describe …
All 4 Replies
Drycola
10
Junior Poster in Training
SpiritualMadMan
39
Junior Poster in Training
churva_churva
-9
Junior Poster
BitBlt
452
Practically a Master Poster
Featured Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.