《[计算机]sub过程2010-3-19.doc》由会员分享，可在线阅读，更多相关《[计算机]sub过程2010-3-19.doc（2页珍藏版）》请在三一文库上搜索。
1、2006-09（25）下列叙述中正确的是（ ）。A）一个Sub 过程至少要有一个Exit Sub 语句B）一个Sub 过程必须有一个End Sub 语句C）可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程D）调用一个Function 过程可以获得多个返回值（26）有下列程序：Sub subP(b( ) As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5a(2)=6a(3)=7a(4)=8subP a( )For i
2、=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（ ）。A.）2 B）54 66 78 8C）10 D）出错1214162007-04（23）已知有下列过程：Private Sub proc1(a As Integer,b As String,Optional x As Boolean)End Sub正确调用此过程的语句是（ ）。A）Call proc1(5) B）Call proc1 5,abc,FalseC）proc1(12,abc,True) D。）proc1 5,abc2007-09（28）为达到把a、b 中的值交换后输出的目的，某人
3、编程下列：Private Sub Command1_Click( )a%=10:b%=20Call swap(a,b):Print a,bEnd SubPrivate Sub swap(ByVal a As Integer,ByVal b As Integer)c=a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（ ）。A）调用swap 过程的语句错误，应改为Call swap a,bB）输出语句错误，应改为Printa,bC.）过程的形式参数有错，应改为swap(ByRef a As Integer,ByRef b As Integer)D）swap 中3 条赋值语句的顺序是错误的，应改为a=b:b=c:c=a（30）下列程序的输出结果是（ ）。Private Sub Command1_Click( )ch=ABCDEFproc chPrint chEnd SubPrivate Sub proc(ch As String)s=“ “For k=Len(ch) To 1 Step -1s=s&Mid(ch,k,1)Next kch=sEnd SubA）ABCDEF B.）FEDCBAC）A D）F