编写&ldquo;八进制转换器&rdquo;的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击&ldquo;转换&rdquo;按钮Command1，在标签Label1中...

题型：综合题题类：常考题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷一

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

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

（1）、程序完整后，文本框Text1输入“12”，则Label1中输出的数值是。

（2）、①处应填入的代码为。

举一反三

n = Len(Text1.Text)

For i = 1 To n

a(i) = Mid(Text1.Text, i, 1)

Next i

Do While n > 1

If Asc(a(n)) >= Asc(a(n - 1)) Then

m = 1

Else

m = 2

End If

b(m) = b(m) + 1

n = n-1

Loop

数组b各元素的初始值都为0，文本框Text1的内容为“2018Python”。执行程序后，变量b(1)的值为（）

相关试卷