单项选择题

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

A．23 47
B．10 36
C．22 44
D．24 50
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub
A．32 42
B．2 32
C．2 3
D．12 3
单项选择题
下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= abcd Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A．dcba
B．abdc
C．abcd
D．dabc
相关试题