在文本框Text1中输入十进制数，将其转换为二进制数后在标签Label1上输出。VB程序段如下：

Dim x As Integer，s As String，t As Integer

x=Val(Text1.Text)

Do While x>0

   

Loop

Label1.Caption= s

方框中的代码由以下三部分组成：

①x=x\2

②s=Str(t)+s

③t=x Mod 2

代码顺序正确的选项是(     )

A、②①③

B、①③②

C、③②①

D、①②③