VBI 24.PNG

Private Sub Command1_Click()
Dim i, s As Integer
Cls
For i = 1 To 10
    s = s + i
Next i
Print "Sum of ten Serial Number = "; s
End Sub

VBO 24.PNG

Advertisements