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=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub