题型:单选题 题类:常考题 难易度:普通
浙江省温州十五校联合体2019-2020学年高二上学期信息技术期中联考试卷
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 |
请根据题意将程序补充完整。
试题篮