八进制采用了0~7八个数字,逢八进一。每个数字在不同的数位上对应不同的权值,如(123)8=1×82+2×81+3X80=(83)10。小明编写了一个将把8位以内八进制正整数转换为十进制数的VB程序,实现如下功能:在文本框Text1中输入八进制数,单击“转换”按钮Command1,在文本框Text2中输出转换后十进制数。程序运行界面如图所示。
(1)
程序编写调试后,生成如下相关文件:
A .oct.frm/B .oct.vbp/C .oct.vbw/D .oct.exe,其中属于Windows系统可执行文件的是(单选,填字母)。
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer,n As Integer,oct As Strin9,dec As Long, flag As Boolean
i=1:dec=0:flag=True
oct= ①
Do While
i<=Len(oct)And flag
n=Val(Mid(oct,i,1))
If n>=0 And n<8 Then
dec=
②
Else
Text1.Text=”输入有误!”
③ End If i=i+1 Loop Text2.Text=Str(dec) End Sub ① ②
(3)
如将③处方框内的语句省略,程序执行时,在文本框Text1中输入2019,单击“转换"按钮后,文本框Text2中显示的内容是。
答案: 【1】D
【1】Text1.Text【2】dec*8+n
【1】129