单项选择题

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

单项选择题
如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open“c: studatadat”For Append As#1之后,将( )。
A) 删除文件中原有内容
B) 保留文件中原有内容,并在文件尾填加新内容
C) 保留文件中原有内容,并在文件头填加新内容
D) 以上均不对
单项选择题
运行下面的程序后,输出的结果为( )。 Cls Dim t(5,5)aslnteger For i=1 To 5:t(i,i)=1:Next For i=1 To 5 Forj=1 To 5 Print t(i,j) Next Print Next
A) 1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
B) 1

1

1

1

1
C) 1 0 0 0 0
0 1 0 0 0
0 0 1 0 0
0 0 0 1 0
0 0 0 0 1
D) 1 1 1 1 1
相关试题
  • 在一个窗体上有一个命令按钮CmdMax。单击Cm...
  • 在窗体上画一个文本框,名称为Text1,然后...
  • 函数Str$( 256.36)的值是 (1...
  • 下列程序计算Sn的值。Sn=a+aa+aaa+…+...
  • 当对象得到焦点时,会触发GotFocus事件,当...