Program to Add Counting Number 1 to 10 in QBASIC
CLS
Sum = 0
PRINT "Adding Counting Number 1 to 10"
FOR i = 1 TO 10
    Sum = Sum + i
NEXT i
PRINT "We get by Adding ="; Sum
END