编写“八进制转换器”的VB程序,程序原理是:除八取余法。运行程序,在文本框Text1中输入整数n,单击“转换”按钮Command1,在标签Label1中显示将n转换为八进制的数值,程序代码如下。Private Sub Command1Click()Dim y As Integer '用于存储输入的十进制自然数Dim s As String '用于存储转换后的结果Dim r As Integern = Val(Text1.Text)s = ""Do While n <> 0 r = ① '采用除八取余法 s = Str(r) + s '将余数添加到结果s中 n = n \ 8LoopLabel1.caption=sEnd Sub请根据题意将程序补充完整。
(1)
程序完整后,文本框Text1输入“12”,则Label1中输出的数值是。
(2)
①处应填入的代码为。
答案: 【1】14
【1】n mod 8