编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按【参考答案】

试题详情

编写“八进制转换器”的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

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

知识点

参考答案