题型：单选题 题类：常考题 难易度：普通
浙江省嘉兴市第一中学2017-2018学年高二下学期信息技术期中考试试卷
执行该流程图后，输出b的结果是（ ）
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 |
请根据题意将程序补充完整。
试题篮
