题型：单选题 题类：常考题 难易度：普通
浙江省高一下学期信息技术期末考试试卷
For i=1 to 30
If i mod 5=0 then
s=s+i
i=i+6
end if
next i
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 |
请根据题意将程序补充完整。
试题篮
图1
图2
图3
