1. (2017·杭州模拟) 编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按钮Command1，在标签Label1中显示将n转换为八进制的数值，程序代码如下。

Private Sub Command1Click() Dim y As Integer            '用于存储输入的十进制自然数 Dim s As String             '用于存储转换后的结果 Dim r As Integer n = Val(Text1.Text) s = "" Do While n <> 0              r =           ①            '采用除八取余法   s = Str(r) + s              '将余数添加到结果s中   n = n \ 8 Loop Label1.caption=s End Sub

请根据题意将程序补充完整。

1. （1） 程序完整后，文本框Text1输入“12”，则Label1中输出的数值是。
   
3. （2） ①处应填入的代码为。