Private Sub Command1_Click()
D.im a
a=Array(1,2,3,4,5)
F.or k=1 To 4
S=s+a(k)
Next k
Print s
E.nd Sub
A.10
B.14
C.15
D.120