下面这个程序实现了把一个十进制数转换成八进制数。

(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能,请在划线处填入合适代码。
Private Sub Command1_Click( )
Dim n, m As Integer
Dim ch, s As String
s = "01234567"
____________________
ch = ""
Do While n > 0
m = n Mod 8
__________________
n = n \ 8
Loop
Text2.Text = ch
End Sub