单项选择题

单击命令按钮时，下列程序的执行结果是
Private Sub Command1_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
Ａ) 15 Ｂ) 16
Ｃ) 17 Ｄ) 18
<上一题 目录 下一题>
热门 试题

单项选择题
有如下的程序： Private Sub Command1_Click() Dim k As Integer，m AB Integer Dim P As Integer k=4:m=1 P=Fun(k，m) =Print P； P=Fun(k，m) :Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer m=5:i=2 i=i+m+1 m=i+a+b Fun=m 2 End Function 单击命令按钮后，输出结果为 Ａ) 2 2 Ｂ) 4 4 Ｃ) 5 5 Ｄ) 6 6
有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m) =Print P；
P=Fun(k，m) :Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后，输出结果为
Ａ) 2 2 Ｂ) 4 4
Ｃ) 5 5 Ｄ) 6 6
单项选择题
向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。 Private Sub Command1_Click() Open c: Temp.txt ，Output As#1 For i=0 To 3 Next Close #1 End Sub Ａ) Print #1，Temp.txt Ｂ) Get #1，i Ｃ) Print #1，i Ｄ) Unit #1，i
向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。
Private Sub Command1_Click()
Open "c:\Temp.txt"，Output As#1
For i=0 To 3
Next
Close #1
End Sub
Ａ) Print #1，Temp.txt Ｂ) Get #1，i
Ｃ) Print #1，i Ｄ) Unit #1，i
相关试题