Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x: x = y: y = tEnd SubSub s2(x As Integer, y As Integer)Dim t As Integert = x: x = y: y = tEnd Sub则以下说法中正确的是( )。

若有一个过程定义成Public Sub W1（ByVal x As Integer，y As Integer），调用过程的正确形式是（）

Sub Inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub command1_click() Inc 2 Inc 3 Inc 4 End Sub 程序运行后，单击命令按钮，输出结果为：( )( ) ( )

下列程序输出结果为（ ）。 Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub

有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。

如果在过程A中用语句：Call proc(a, b) 调用下面的过程Private Sub proc(b As Integer, ByVal a As Integer)a = a + 1b = b * 2End Sub则调用结束后的结果是________。

执行下列程序后，输出的结果是： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) End Sub

下列程序输出结果为（ ）。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub

有如下函数过程：Function gys（ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞

在窗体上画一个命令按钮，然后编写如下程序：Sub S1（ByVal X AS Integer，ByVal y As Integer) Dim

编写如下事件过程；Private Sub Form_ MouseDown （Button As Integer, Shift As Integer, X As Si

设有如下通用过程：Public Sub Fun（a（)，ByVal x As Integer)For i=1 To 5 x=x+a（i)NextEnd Sub在

下列程序的执行结果为Private Sub Command1_Click（) Dim p As Integer, q As Integer p=12: q=20 Call Value（p, q) Print p; qEnd SubPrivate Sub Value（ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n -

编写如下事件过程：Private Sub Form-MouseDown（Button As Integer,Shift As Integer,X As Single

设有如下通用过程：Public Sub Fun（a（)As Integer,x As Integer) For i=1 To 5 x=x+a（i) Next

编写如下事件过程；Private Sub Form_MouseDown（Button As Integer,Shift As Integer,X AS Single

单击命令按钮时，下列程序代码的执行结果为Public Sub Procl（n As Integer,ByVal m As integer)n=

设有如下通用过程：Public Sub Fun（a（), ByVal x As Integer)For i=1 To 5x=x+a（i)NextEnd Sub在

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click（)Dim x,y,z As Integerx=5y=7z=0Texttext=“”Call P1（x,y,z)TextText=Str（z)End SubSub P1（ByVal a As Integer,By

程序执行结果s的值是 【7】 。 Private Sub sub1（Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click（) Dim i As Integer i=3 Call sub 1 （i) if i＞4 then i=i mod 2 Print cstr（i) End Sub

执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是（）,第二行显示内容是（）,最后一行显示内容是（）。Option ExplicitPrivate Sub CmdRun_Click（)Dim N As Integer,M As IntegerM=135N=8Pic1.Print Fun（M,N)EndSubPrivate Function Fun（ByVal N As Int

下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub

单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n

下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun（x As Integer, ByVal y As Integer) As Integer x=x+y If x＜0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Cli