题目

下面这个程序实现了把一个十进制数转换成八进制数。 （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 答案： 【1】Caption 【1】n=val(text1.text)【2】ch=mid(s,m+1,1)+ch

查看本题答案和解析