单项选择题

为达到把a、b中的值交换后输出的目的，某人编程如下：
Private Sub Command1_Click()
a%=10:b%=20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer, ByVal b As Integer)
c=a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是

A．调用swap过程的语句错误，应改为：Call swap a,b
B．输出语句错误，应改为：Print "a","b"
C．过程的形式参数有错，应改为：swap(ByRef a As Integer, ByRef b As Integer)
D．swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个名称为List1的列表框，其中已经输入了若干个项目(如图2所示)：还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String, s As String, k As Integer s=Text1 Str= For k=List1.ListCount-1 to 0 Step -1 If InStr(List.List(k), s)＞0 then str=str&List.List(k)& End If Next k If str= Then Text2= 没有匹配的项目 Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是

填空题

某二叉树中度为2的结点有18个，则该二叉树中有______个叶子结点。