A ．oct．frm／B ．oct．vbp／C ．oct．vbw／D ．oct．exe，其中属于Windows系统可执行文件的是(单选，填字母)。

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

① ②