单项选择题

单击命令按钮时,下列程序的执行结果是
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

A.15
B.16
C.17
D.18
<上一题 目录 下一题>
热门 试题

单项选择题
有如下的程序: Private Sub Command1_Click() Dim k As Integer,m As 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 in=5:i=2 i=i+m+1 m=i+a+b Fun=m 2 End Function 单击命令按钮后,输出结果为
A.2 2
B.4 4
C.5 5
D.6 6
单项选择题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim a(5,5) For i=1 To 3 For j=1 To 4 a(i,j)=i*j Next Next For n=1 To 2 For m=1 To 3 Print a(m,n); Next Next End Sub 程序运行后,单击命令按钮,输出结果是
A.2 4 6 1 2 3
B.1 2 3 2 4 6
C.1 2 3 4 5 6
D.6 5 4 3 2 1
相关试题
  • 引用列表框(List1)最后一个数据项应使用
  • 有如下程序: Private Sub Form_Click...
  • 激活菜单栏的快捷键是
  • 下面有一段程序代码,如果从键盘上输入“Co...
  • 随机文件用于读数据的语句是