南京工业大学VB期末考试模拟题60001

1、安全土木化工化学 vb练习题4满分：ill分姓名：1、单项选择题(本题共计60分)1、在过程调用中，参数的传递可以分-(为)和两种方式。A、按值传递按地址传递B、按地址传递按参数传递C、按参数传递按值传递D、按位置传递按参数传递2、下面的过程定义语句中合法的是A、Sub Piocl (ByValn 0)B、Sub PiocKn )As Site gerC、Function ProcKPiocl)D n Function P xocl (ByValn )3、在参数传递过程中,使用关键字来修饰参数,可以使之按值传递。A、ByVaiB、ByR efC、VaheD、R eference4、要想在过程调

2、用后返回两个结果，下面的过程定义语句合法的(是)A、Sub Piocl (ByValn , ByValm )B、Sub Piocl(n , ByValm )C、Sub PidcI (n , m )D、Sub Procl(ByValn , m )5、通用过程可以通过执行“工具”菜单中的 命令来建立。()A、添加过程B、通用过程C、添加窗体D、添加模块6、可以在窗体模块的通用声明段中声明的是 。()A、全局变量B、全局常量C、全局数组D、全局用户自定义类型7、当运行程序时，系统自动执行启动窗体的 事件过程。()A 、 LoadB、C lizk C、U nLoad D、G otFocus8、在语句P

3、ublic Sub Sort(iAs hteger)屮i是一个按传递的参数。()A、地址B、值C、变量D、常量9、下列定义Sub过程的语句中，止确的语句是 oPrivate Sub TestgtAs String* 8) Private Sub T est(S anay () A s S tring * 5) (3) P rizate S ub Test(Sanay () A s String)1 P rivals Sub Test(S tA s S tring)()A、B、©C、D、10、在窗体模块的通用声明处有如下语句，会产生错误的语句是 o ©ConstA Ashte

4、ger=25 ® Public S tA s S tring *8 R eD in B (3) A s bteger D in ConstX As hteger=10 ()A、B、C、D、11 > 在窗体 Form 1 中用 Public Sub Fun (k A s hteger,y A s S hgle) ” 定义过程 Fun,在窗体 Form 2 中定义了变量i为htegerj为Single,若要在 Fozm 2的某事件过程中调用 Foim 1中的Fun过程， 则下列语句中，正确的语句有 个。 Ca31Fun(iJCallFoim 1. Fun(ij>Form l.

5、Fun Q, j Form 1.Fun 卄1,0()A、1B、2C、3D、412. 某过程的说明语句中，正确的数组说明语句是oC onstN as hteger=4D in L as hteger D in X (L) A s Integer D in A(K) As IntegerC onstK A s lnteger=3 D in B(N) A s Integer D in Y G000 To 2008) As Integerr B.r C.D.13、程序中的不同过程之间，不能通过 进行数据传递。全局变量 窗体或模块级变量形参与实参结合静态变量()A、B、C、D、14>调用由语句 P

6、rK7ate Sub C onvertQf As htegex)定义的Sub过程时，以下不是按值传递的语 句是。()A、C alLC onvert (X)B、C aILC onvert(X *1)C C onvert(X)D、C onvertX15、Sub过程和Function过程最根本的区别是 。()A、Sub a程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、Functbn过程可以有参数，Sub过程不可以C、两种过程参数的传递方式不同D、Sub过程的过程名不能返回值，而 Functbn过程能通过过程名返回值16、在窗体模块的通用声明段中声明变量时，不能使用关键字

7、。()A、DinB、Pubh?C、PrivateD、S tatic17、假定己定义了一个过Sub AddQAsSingpb AsSingle),则正确的调用语句是 (程)A、Add (12 , 12)B、CallAdd(2 *x , Sh(1.57)C、C allAdd x , yD、CallAdd(12 ,12, x)18单击一次命令按钮后，下列程序代码的执行结果为 Private Sub proc(3 0 As foteger)S tatic iA s IntegerD o a. Q = a (i + a (i+ 1)f i+ 1Loop W hfb i< 2End SubPriva

8、te Sub C om m andl_C lick0D in m As Jhteger; iAs Integer; x(10)As IntegerFor i= 0 To 4xQ = i+ 1N ext iFor i= 1 To 2C alproc (x)N ext iFor i= 0 To 4PrintxQN ext iEnd SubA.34756 r B.35745C.12345D.1235719、如下程序，运行的结果是D in a% ,b% ,c%Public Sub pl(x% ,y% )din c% =2*x : y-y+2 : c=x+yEnd SubPublr Sub P2(x%,

9、 ByValy%din c%x=2*x : y二y+2 : c二x+yEnd SubPrivate Sub C om m andLC rk(a=2:b=4:c=6caILplfe,b)pnnt a= ; a ; b= ; b ; c= ; c callp2 G,b)pmt a= ; a ; b= ; b ; c= ; cEnd Sub ()A、a=2 b=4 c=6a=4 b=6 c=10B、a=4 b=6 c=10a=8 b=8 c=16C、a=4 b=6 c=6a=8 b二6 c=6D、a=4 b=6 c=14a=8 b=8 c=620、设有如下说明：Public Sub F1&%

10、 )n =3%i+4End SubPrivate Sub C om m andLC lickOD in n% , m %n=3m =4'调用Fl语句End Sub则在CommandLClhk事件中有效的地址传递的调用语句是。()A、F1 n+mB、Fl mC、Fl 5D、F1m +521、窗体的Name属性为Fxm 1 ,在窗体模块通用声明处和过程Subl中分别用Public K Ashteger,D in K As hteger声明了两个同名变量 K，则在过程Subl中要访问全局变量 K，可采用 O()A、Fm l.KB、Forai .KC、Form l.KD、K22、要使Piin方

11、法在 Foim Load事件中起作用，要对窗体的 属性进行设置。()A、BackC obrB、FoxeC obrC、AutoR ediawD、C aptbn23、在调用Sub过程或Functbn过程时，采用 传送相应过程的变量名、数组名、常数或表达式。()A、形式参数B、实际参数C、对象参数D、数组参数24以下有关Sub过程与Functbn过程的区别，正确的是 °()A、 Sub过程可以使用C a!L语句或直接使用过程名调用，而 Functbn过程不可以B、Functbn过程可以有形参，Sub过程不能有形参C、两种过程参数传递方式不同D、Sub过程没有返回值，Functbn过程能返回

12、值25、给出下列程序代码，在单击命令按钮时的输出结果是oPKRrate Sub C om m andl_C lick ()D in xAs hteger; yAs Integerx 二 1:y 二 1Forn=lTO 3z=F irstFunc 仗，y)Printn, z ,N extnEnd SubP rkrate Functbn FirtFunc 仗 A s htegei; yAs htegei) A s htegerD in n A s htegerDo W hile n <= 4x 二 x+yn 二 n+1LoopF irstFunc=xEnd Function ()A、1621

13、1316B、26131116C、123456D、21313326、给出下列程序代码在第一次单击命令按钮时文本框Textl和Text2中的内容，第二次单击命令按钮时文本框Text!和Texl2的内容。D in y As IntegerPrivate Sub C om m andl_C Lck()D in x As Integerx=2TextlText=S econdFunc (FirstFunc 仗)，y)Text2.TexlFFinslFunc 仗)End SubPrivate Functbn FirtFunc (x As Integei)x 二 x+y:y 二 x+yF irstFunc=

14、x+YEnd FunctbnP rirate Functbn S econdFunc (x A s htegei; y A s Jntegei)S econdFunc=2*x+yEnd Functbn ()A .10,10 20,20B、20,20 30,30C、50,50 10,10D .10,10 58,5827、给出下列程序代码，在单击三次命令按钮时的输出结果是D in x, y, z A s htegerSub ss ()x=x+ly二 y+1z=z+lPrhtx;y;zSub EndPrirate Sub C om m andl_C lick ()D in x, y, zx=l:y=

15、2:z=3CallSSP rhtx;y;zEnd Sub ()A、1111 2 32 2 21 2 33 3 31 2 3B、1111 1 12 2 22 2 23 3 33 3 3C、1231 2 31 2 3D、1112 2 23 3 328、设有下列程序代码，在单击命令按钮时的输出结果是oS ub S S (ByValx, ByRefy, z)x=x+ly二 y+1z=z+lEnd SubPrRrate Sub C om m andl_C Lek ()A = 1:B二2CallSS (A,B,C)P rhtA ,B ,CEnd Sub ()A、123B、134C、224D、133阴影”2

16、9、一般来说，当变量名称相同而作用域不同时，局限性 的变量总会用遮住局限性不太大的变量。()A、大B、小C、更小D、比较小30、在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应该使用关键字在过程中定义局部变量。()A、DinB、PrivateC、PubkD s S tatb31、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参 数传递方式称为传递。 （）A、按值B、按地址C、ByR efD、按形参32通用过程可以完成一项指定任务，必须由 调用才行。r A应用程序rB.系统引发rJc.定时器rD.Sub Main（1分）33.以下说法正确的

17、是 or A属性是对象的一部分£Lb.方法是对象的一部分事件是对象的一部分CjDA、B都正确34、若在应用程序中用Private Sub Subl(Xash-teger,YasS hgle)定义了子程序 Subl,调用程序中的变量I、J均为hteger型，则止确调用子程序Subl的Call语句是。© CallSubl aj)©CallSubl (3.1415,1)©CallSubl (3.14,234) CallSubl ( “ 245 ”，“ 231.5” )()A、B、C、D、无35、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为oP

18、rivate Sub fiin ()S tatic a A s htegera=a+2Prints;End SubPrivate Sub C om m andl_C Lck()D in m A s htegerForm =1 To 3C allfiinX extmEnd Sub ()A、222B、000C、248D、24636、在窗体上添加一个命令按钮，名为Commandl ,事件过程如下。执行结果是 Sub pb(b()As htegei)For Fl To 4B ®二2*iN ext iEnd SubPrivate Sub C om m andl_C lick()D in a(l

19、 To 4)As htegera (1)=5 :a (2)=6 : a 6)=7 :a (4)=8pb aFor Fl To 4PrhtaO;N ext iEnd Sub ()A、55551010B、5555510C、5 5 1051010D、55510 10 1037、在窗体上画一个名称Com m andl的命令按钮和一个名称为Textl的文本框，然后编写如下程序：Private Sub C om m andl_C LckOD in x, y, z As htegerx=5:y=7:z = 0Textl.Text二C allpl (x, y, z)Textl.Text= S trfe)End

20、 SubPrKrate Sub pl (ByVala As hteger, ByValb As Integei; c As htegei)c = a + bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是。()A、 0B 、 12 C 、S trfe)D、没有显示38、856.窗体中添加一个命令按钮，程序运行后，输出结果为Private Sub test(x,y,z)x=x+l:y=y+2:z=z + 3PrintSub 二；x;y;zEnd SubPrivate Sub C om m andl_C lick()al = 10:bl 二 17: cl = 41C aJlte

21、stGl'bl+Z, fcl)PrhtzI ah=，/; al; bl; clEnd Sub ()A、Sub=10 17 41M ah=ll 17 44B、Sub=10 17 41M ah=ll 17 44C、Sub二 12 11 41M ah=10 1141D、Sub二 11 21 44M ain=ll 17 4139 阅读下列程序，其输出的结果是oPrivate Sub C om m andl_C lickOD in a (1 To 3) A s btegerFor Fl To 3 a(D=iN ext iC allsubl (a)ForF2 To 3Printa (N ext i

22、End SubPublh Sub subl Q 0 A s Integer)For Fl To 3a (D=跑N ext iEnd Sub£LJa.12B.23rr，C.49 r D.14(1分)40.程序中未定义的变量均为integer ,单击C om m andl,程丿了:的输出 是2Private Sub C om m andl_C lick0k=4 : m =1n=Func (k, m )Prhtn, Func(k,m )End SubPublr Function Func (3. A s Integet; b A s Integer) A sIntegers tatic m

23、 As Integerm =0 : f2Fi+m +1m 二#a+bFunc=mEnd Function£31.88B.820r C.8161D.817（1分）41. 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中 一定可以将 Hello显示在当前窗体上。r A Forml.Printr门B Me.Print" HelloC . Debug.Print “ Hello “CD Form2.Print " Hello "（1分）42. 当一个工程含有多个窗体时，其中的启动窗体是。A.启动时建立的窗体（1分）

24、(B.第一个添加窗体厂C .最后一个添加的窗体r D.在“工程属性”对话框中指定的窗体43. Sub Main函数可以在模块中定义。A.窗体r B.标准r C类模块（1分）“添加窗r D以上均可44. 下列操作中不能向工程添加窗体的是 。r A.单击工具栏上的添加窗体按钮厂B.右击窗体，在弹岀的菜单中选择“添加窗体”命令r C.右击工程资源管理器，在弹出菜单中选择“添加”，然后在下一级菜单中选择体”r D执行“工程”菜单中的“添加窗体”命令45. 要为工程添加一个过程，可执行“”菜单中的“添加过程”广A文件B.视图r C.工程D.工具46. 以下说法正确的是 r A.在vb中，过程可以嵌套定义

25、也可以嵌套调用 rB.在VB中，过程可以嵌套定义但不可以嵌套调用（1分）（1分）（1分）C在VB中，过程不可以嵌套定义但可以嵌套调用D.在VB中，过程不可以嵌套定义也不可以嵌套调用47. 模块的通用声明处有如下语句，会产生错误的语句是 ©Const a as Integer=25 Public St As String *8 Re Dim B（3） As Integer Dim Const X As Integer=10C A.B.（1分）48. 使用Public Const语句声明一个全局的符号常量时，该语句应放在 过程中厂B.窗体模块的通用声明段C. 标准模块的通用声明段D窗体模

26、块或标准模块的通用声明段（1分）49. 可以在 中，使用语句 Public PubStr As String*20 定义一个定长字符串。r A窗体模块标准模块类模块' D三者均可（1分）50. 在窗体的General段声明变量时，不能使用 关键字。B PublicPrivateStatic51. 以下有关变量作用域的说明中，错误的是 r A只有在标准模块中用Public语句说明的变量才是全局变量B在过程中不能使用Public语句说明全局变量C C.在标准模块的通用声明处可用语句说明模块级变量（1分）r D在窗体的通用声明处可用Private语句说明窗体级变量52. 单击按钮，输出为oP

27、rivate Sub fun()Static a As Integera=a+2Print a;End SubPrivate Sub Command l_Click()Dim m As IntegerFor m = l To 3Call funNext mEnd SubrA.222rB000rC.248rD.246（1分）53. 在单击命令按钮时的输出结果是 Private Sub Command l_Click （）Dim x%, y%x=l：y=lFor n = l to 3z=First （x, y）Print n, zNext n26131116C.123456D. 213133(1分

28、)End SubPrivate Function First% (x%, y%)Dim n%Do While n <= 4x=x+yn=n+lLoopFirs t=xEnd Function1 A. 1621131654. 设有下列程序代码，在单击命令按钮时的输出结果是Sub SS (ByVai x, By Ref y, z)x=x+ly=y+lz=z+lEnd SubPrivate Sub Command l_Click ()A=1: B=2:C=3CallSS (A,B,C)Print A,B,CEnd Subr A. 1 23r B. 1 34厂 C. 224D. 133(1分)5

29、5. 程序运行后，如果单击命令按钮，则在文木框中显示的内容是Private Sub Command l_Click()dim x, y, z As Integerx=5: y=7: z=0textl=call pl(xyz)text l=str(z)End SubPrivate Sub p l(ByVal a%, By Vai b%, c%)c=a+bEnd Sub 广 |a. or B. 12广C Str(z)r D没有显示(1分)56. 当在Cmdl按钮上单击时，程序的输出是 .Public Function Func(a%,b%)As IntegerStatic m As Integer

30、 : Dim i As Integerm=0 : i=2: i=i+m + l : m=i+a+b : Func=mEnd FunctionPrivate Sub Cmd l_Click()Dim k%,m%,n%k=4 : m = l :n=Func(k,m)Print n, Func(k, in)End Sub£L_A. 88r B 8 20C . 8 16D . 8 17(1分),可使57. 若需要在同一窗口内安排两组相互独立的单选按钮(OptionBuHon )用，控件将它们分隔开。 TexBox Picture linage Frame£1 B.r_c.D(1分)

31、的Load事件过程中有foxm2.show ,则程序启动58. 如果是启动窗体，并且 Foini 1 后。r A发生一个运行时错误r B.发生一个编译错误r C.在所有的初始化代码运行后Forml是活动窗体D.在所有的初始化代码运行后Form2是活动窗体（1分）59.要从自定义对话框 Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是。A.Unload Form2BHide Form2C.Unload Foi*m2D.Form2.Unload(1分)60.窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是ShowB.R e leaser C.HideD.U n

32、bad2、填空题（本题共计51分）1.下而程序的功能是：通过键盘输入一个正整数N ,找岀所有分母为N,且数值介于1/3和1/4之间的最简分数（即分子、分母除 1以外无公因子）。Private Sub Command l_Click()dim i As Integer, J As Integer, n As Integer, Flag As Booleann = Val(InputBox( “输入分母 N :",11)for i = 1 To n - 1Call Sub 1(1,N,Flag)If ThenPrint CStr(I)； "/ ” ； CStr (N)End I

33、fnext iEnd SubPrivate Sub Sub 1(K As Integer, N As Integer , F As Boolean)dim i As Integerif Thenfor i = 2 To kIf ©ThenExit SubEnd Ifnext if = Trueend IfEnd Sub(4分)答案：(1) I, (2), (3) I, (4) I2.下列程序的功能是：单击窗体事件后，在窗体上显示1 ! +2 ! +3 ! +9 !的和。Private Sub Form_Click()Dim s&, i%s=0For i=l To 9s=s +

34、Next iPrint sEnd SubPrivate Function fact( )As LongDim i%,f&For i=2 To nf=f*iNext iEnd Function答案：(1) I, (2) I, (3) I, (4) I3.用二分法求函数<10_5of(x)=x 3_4x + 1=0在 范围内的x=05附近的一个实根，其计算误差为x=2(4分)1x1x21Private Sub form_Click ()Dim x!, t!, xl As Single, x2 As Singlexl=0: x2=5Do While _x = (xl+x2)/2If S

35、gn(func(x) ® Thenx2 = xElsexl = xEnd IfLoopPrint ux = ”; xEnd SubPrivate Function func( x! ) As Single fl =End Function答案:(1)4.用随机数模拟掷骰子，统计掷 50次，骰子各点出现的次数。 随机整数)Option Base 1Private Sub Command l_Click()Dim For i = 1 To 50n =d (n )=Next iFor i = 1 To 6Print i; u点出现的次数：“；d(i)Next iEnd Sub（3分）（提示

36、：骰子点数只能是 16位答案：（1） II , (3) I（3分）；将A、B语句交换位置，运行5执行程序单击命令按钮后，调试窗口中显示的结果是 程序后调试窗口的内容是 。Option ExplicitSub qq(k,x)Dim i As IntegerX=1For i=l To kx=x*iNext iEnd SubPrivate Sub Command l_Click()Dim n%, i%, x%n=l : x=lFor i=l To 3Call qq(i,x) 'A n=n+x'BNext iDebug.Print "n=" & nEnd S

37、ub答案：(1)仪分)；将A、B语句互换后，执行结果是 。6. 下列程序执行后，输出的结果为Private Sub Command l_Click()Dim x As Integerx = 1Call sort(x) ,APrint x;call sort(x) ,BPrint x;End SubPrivate Sub sort(y As Integer)y 二 y+1End Sub答案：(1) I,(2分)7. 运行下列程序，在窗体上显示的第一行是第二行是_®_。Private Function t(n As Integer, k As Integer) As Integert =

38、 0Do While k>0t = n Mod 10n = n 10 k = k- 1LoopEnd FunctionPrivate Sub Form_Click()Print t(1234, 2)Print t(1234, 4)End sub答案：(1),(2分)8. 执行程序，单击窗体后在窗体上显示的第一行是 ，第二行是 ；若将sub过程形参表中的ByVai关键字删除，再执行程序后在窗体上显示的第一行是，第二行是 。Private Sub Value (ByVai m As Integer,ByVai n As Integer)m=m*2n=n-5Print,m=,;m,'n

39、=,;nEnd SubPrivate Sub Form_Click()Dim x As Integer As IntegerX=20 : y=15Call Value(x,y)Print,x=',;x,y=,;yEnd Sub(4分)d ,第二行是 ,第三行是_(3L o答案：(1)9. 执行下列程序，在窗体上显示的第一行是Option ExplicitPrivate Sub Commandl_Click()dim x As Single, i As Integerx = 1.2For i = 1 To 3x = x * iPrint fun l(x)Next iEnd SubPriv

40、ate Function funl(x As Single) As SingleStatic y As Singley = y+ xfun 1 = y / 2End Function 答案：(1) I,(2) I, (3) I(3分)10. 单击按钮 Commandl , A ( 1, 1)的值是_,A ( 1, 4)的值昱 ,A (4,1)的值是，A (4, 4)的值是 。Option Base 1Private Sub Command l_Click()Dim a() As Integer, i%, j% , k%, n%n=4 : Re Dim a(n, n)i=l : j=n : a(

41、i, j) = 1For k = 2 To n *nIf i+l>n Theni = n -j + 2: j= 1Els elf i+l<=n And j+l>n ThenJ=JT :匸 1Elsei=i+l:j=j+lEnd Ifa(i,j) = kNext kFor i = 1 To nFor j = 1 To nPrint a(i,j);Next jPrintNext i第二行,T extlEnd Sub11、运行下面程序，当单击窗体时，窗体上显示的内容的第一行(1)是是(2)o Private Sub test(x As htegei)x = x *2 + 1Ifx

42、< 6 ThenC a 11 test©)End Ifx = x *2 + 1Fonn l.PrintxEnd SubPrivate Sub Foun _C JickOtest2End Sub12、添加按钮Commandl和文本框TextL,并编写下列代码。执行程序单击命令按钮后中是;将A、B语句交换位置，执行程序单击命令按钮后,Textl中是。0 ptbn ExplicitSub abc(k,x)D in iA s htegerx=lFor Fl To kx 二 x*iN ext iEnd SubPrkate S ub C om m andl_C lickOD in n As

43、 3htegei;iAs hteger;x As htegern 二 0 :x=0For Fl To 3C allabc (i,x) ?A 语句n二n+x 'B 语句N ext iTextl.Texbn二"& nEnd Sub13、运行下面程疗；，单击命令按钮 C om m andl ,则在窗体上显示的内容是 Private Sub C om m andl_C Lck()D in x As Long,n As htegerx=33 :n=5y=ret(x,n)PrhtyEnd SubPrivate Function retg As Long,L As htegex)A

44、s LongIfL> 1 Then re1=iet(S 丄T)S 二 S+2reiFSE nd Function14、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框 阶乘由Fundn计算。在(1)、处填上正确内容。Private Sub C om m andl_C lick()Fork=l To 1000a=LTrin (S tr(k)n=0For Fl To Len fe)p=Val(M Bfe,il)n=n+fect>)N ext iIfn=k Then(1)N extkEnd SubPrivate Functbn :fectQifx< = l Then

45、feclFlElsefeclF(2)End IfE nd Functbn15、窗体中有一文本框Textl ,执行下面程序后，窗体上结果是果是。0 ptbn ExplicitPrivate Sub Form _C lick()D in a A s htegera=2CallSubKa)T extl.T ext=aEnd SubPrivate Sub Subl (x As htegex)x=x2+lfx< 10 ThenC allSubl (x)List!中显示。，文本框中输出结End Ifx=x*2+lP rhtx;End Sub16、执行下面的程序，在窗体上显示的输出结果的第二行是.0

46、ptbn ExplicitD in a A s Integei; b A s IntegerPrivate Sub C om m andl_C Lck()D in c A s Integera = 1 :b = 3: c = 5P rhtfiin fc)printa ;b ;cP rhtfiin fc)End SubP rizate Functbn fiin (x A s htegerfA s S :inglefiin = a + b + x/2a = a + bb = a + xx = b + aE nd Function17、一个窗体上有一个命令按钮C om m andl ,下列程序执行后,Private Sub C om m andl_C Lck()D in x As IntegerX = 1C alsort(x)P rhtx;caILsort(x)P rhtx;End SubPrivate Sub sort(y A s htegex)y = y+1End Sub18、运行下面程序，单击窗体后在窗体上显示的第二行结果是, 第三行是 输出的结果为 _(D_ ;第四行结果是_D in y As IntegerPrivate Sub Foun _C lickOD in x As Integerx =