单项选择题

单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
BT4
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．15
B．16
C．17
D．18
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print * * 0 * * Case 1 Print * *.1. * * End Select Case 2 Print * *,2 * *, End Select
A．* * 0 * *
B．* * 1 * *
C．* * 2 * *
D．0
单项选择题
有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b) Print x End Sub
A．0
B．25
C．50
D．100
相关试题