单击命令按钮时，下列程序的执行结果是( )。 　　Private Sub Commandl_Click( ) 　　　　BT 4 　　End Sub 　　PriVate Sub BT(x As Integer) 　　　　X=X * 2 + 1 　　　　If x ＜6 Then 　　　　　Call BT(x) 　　　　End If 　　　　X=x * 2 　　　　Print x； 　　End Sub

A． Private Sub Command1_Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=2　　CommonDialog1．DialogTitle="Save"　　CommonDialog1．Action=2　　End Sub
B． Private Sub Command1_Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=1　　CommonDialog1．DialogTitle="Save"　　CommonDialog1．Action=2　　End Sub
C． Private Sub Command1 Click ( )　　CommonDialog1．FileName="Save"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialog1．FilterIndex=2　　CommonDialog1．DialogTitle="SaveFile"　　CommonDialog1．Action=2　　End Sub
D． Private Sub Command1 Click ( )　　CommonDialog1．FileName="SaveFile"　　CommonDialog1．Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC) |*.doc"　　CommonDialogl.FilterIndex=1　　CommonDialog1.DialogTitle="Save"　　CommonDialog1．Action=1　　End Sub

A．I=4 x=5
B．I=7x=15
C．I=6 x=8
D．I=7x=17