A.
Private Sub Commandl_ClicK() Dim n as integer, x as Integer n = 5:x = 1 Do x=x*i i = i 十 1 Loop While i < n Print x End Sub
B.
Private Sub Commandl_Click() Dim n as integer, x as Integer n = 5: x = 1 : i=1 Do x = x*i i = i 十 1 Loop While i < n Print x End Sub
C.
Private Sub Commandl_Click() Dim n as integer, x as Integer n=5 : x = 1 : i = 1 Do x=x*i i = i 十 1 Loop while i<=n Print x End Sub
D.
Private Sub Commandl_C1ick() Dim n as integer, x as Integer n = 5 : x = 1 : i=1 Do x=x*i i=i 十 1 loop While i > n Print x End Sub