如果存在如下过程： 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

有如下函数过程： 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 的语句中，（ ） 不会发生错误。

求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

在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) x = InputBox（"Input") Select Case x Case 1, 3 Print "分支 1" Case Is ＞ 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。

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

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1

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

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click（）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

设有一个命令按钮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次单击命令按钮后，窗体显示的计算结果是（）。

在窗体上添加1个名称为Command1的命令按钮，编写以下程序，其功能是，单击命令按钮，在窗体上输出n!（用递归实现的）。请填空。n!的递归定义如下： 1 n=1 n!= n*（n-1)! n＞1 Private Function f1（ByVal n As Long) As Long If n = 1 Then ______（1)______ Else f1 =______（2)______ End If End Function Private Sub Command1_Click（) Dim n As Long, result As Long n =Val（InputBox（"请输入n：")) result = f1（______（3)______) Print n; "!= "; result End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： （1)： _________ （2)： _________ （3)： _________

在接球游戏中,如果移动鼠标控制木盆左右上下移动,move.js脚本如下: pragma strict function Start （）; }

有如下程序： 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 Sub Command1 Click（) Dim b% （1 To4) ,j%, t For j=1 To 4 b（j) =j Next j t=Tax（b（) ) Print "t="; t, End Sub Function Tax （a（) As Integer) Dim t, i% t=1 For i=2 To UBo

在窗体上画—个命令按钮，其名称为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

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

在窗体上有一个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p as Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer) As Integer Static s As Integer For k=1 To n s=s+1

在窗体上面画一个命令按钮，然后编写如下程序： 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

在窗体上画一个命令按钮，其名称为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

在窗体上画一个命令按钮，其名称为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