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
① ②