A.Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1, Next I Print Sum End Sub B.Private sub Command1_Click( ) Sum=0,I=1 Do While l<=10 Sum=Sum+1 I=I+1 Print Sum End Sub C.Private Sub command1_click( ) Sum=0I=1 Do Sum=Sum+1 I=I+1 Loop While I<10 Print Sum End Sub D.Private Sub command1_Click( ) Sum=0I=1 DoSum=Sum+1 l=I+1 Loop Until I<10 Print Sum End Sub