有如下程序：Function F（a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + cEnd Fu

有如下函数过程： 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 该程序的运行结果是（ ）。

有如下函数过程： Function F(a, b As Integer) As Integer a = b: F = a + b End Function 以下调用函数 F 的语句中，（ ） 不会发生错误。

执行下列程序后，输出的结果是： 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

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

求1！+2！+……+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _____________ Next Print y End Sub

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

阅读程序：Function Fun（a As Integer)Static C b=0：b=b+2：c=c+2 F=a*b*cEnd FunctionPrivate S

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

有如下程序： Private Sub Command1_Click（) Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC（k，m)：Print p； p=PC（k，m)：Print p End Sub Private Function PC（a As Integer，b As Integer) Static m As Integ

如果存在如下过程： Private Function FMax（a（) As Integer) Dim First As Integer, Last As Integer, i As Integer First = LBound（a) Last = UBound（a) Max = a（First) For i = First To Last If a （i)＞Max Then Max=a （i

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As Integer)M=IIf（x＞y,x，y) End FUNction Private Sub Command1 Click（)Dim a As Integer,b As Integera=100b=200Print M（a,B) End Sub 程序运行后，单击命令按钮

下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click（) Dim x As Long， y As Long，i As Long x=Val（Text1．Text) y=Val（Text2．Text) Text3．Text = Str（【13】 ) End Sub Function fun1（a As

有如下程序： include using namespaee std； int main { void function（double val)； double val： function（val)； eout$amp;A.编译出错，无法运行

在窗体上面画一个命令按钮，然后编写如下程序： Function M（x As Integer，y As Integer)As IntegerM=IIf（x＞y，x，y) End Function Private Sub Command1_Click（)Dim a As Integer，b As Integera=1b=2Print M（a，B) End Sub 程序运行后，单击命令按钮，输出结果为

在窗体上有一个命令按钮，然后编写如下程序： Function Trans（ByVal num As Long)As Long Dim k As Long k=1 DO While numk=k*（num Mod 10)num=num10 Loop Trans=k Print trans End Function Private Sub Command1_Click（) Dim m As Long

某人编写了如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。 Function Prime（a As Integer) AS Boolean Dim k As Interger, isprime AS Boolean If a＜2 Then isprime=False EIse isprime=True k=2 Do While k If a Mod k=0 Then ip

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer，y As Integer)As Integer M=IIf（x＞y，x，y) End Function Private Sub Command1_Click（) Dim a As Integer，b As Integer a=100 b=200 Print M（a，b) End

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序； Function M（x As Integer,y As Integer)M=IIf（x＞y,x,y) End Function Private Sub Commandl_Click（)Dim a As Integer,b As Integera=100b=200PrintM（a,B) End Sub 程序运行后，单击命令按钮，

在窗体上画—个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（)Dim i As IntegerSum=0n=InputBox（"Enter a number")n=Val（n)For i=1 To n Sum= 【12】 Next iPrint Sum End Sub Function fun（t As Integer)As Long p

在窗体上画一个名称为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

设有如下通用过程：Public Function f（x As Intege（）

有如下函数过程： Function Fun（By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click（) Dim

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