设有如下声明：Dim x As Integer如果Sgn（x)的值为-1，则x的值是A．整数B．大于0的整数C．小于0的整数D

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

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则以下说法中正确的是( )。

有如下函数过程： 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 fun（m As Integer）As Integer Dim k As Integer,sum As Integer sum=0 For k=m To 1 Step -3 sum=sum+k Next k fun=sum End Function 若在主程序中使用语句 s=fun（9）调用此函数，则s 的值为（ ）。

使用语句”Dim t(5) As Integer”声明数组t后，以下叙述中正确的是( )。

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

设有如下声明语句： Option Base 1 Dim arr(3,-1 To 4) As Integer 则数组arr中数组元素的个数是（ ）

求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

依据如下声明语句： Dim X,Y As Single 变量X和Y的数据类型分别是（）。

设有声明语句 Dim x As Integer ，如果 Sign(x) 的值为 1 ，则 x 的值是（ ）。

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

在窗体上画两个名称分别为TextTexte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopTextText=Str（x)TextText=Str（n)E

设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（） Dim x As Integer x=a If x＞=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（）。

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

设有以下函数过程： Function fun（a As Integer，b As Integer) Dim c As Integer If a＜b The

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr（) As Integer Private Sub Command1_Click（) Dim i As Integer, j As Integer Dim s As Integer ReDim arr（4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr（i, j) = i + j Next j Next i ReDim Preserve arr（4, 4) For j = 3 To 4 arr（3, j) = j + 10 Next j For i = 1 To 4 s = s + arr（i, i) Next i Print s End Sub 程序运行过程中，当单击Command1时，输出结果为________。

如果存在如下过程： 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 程序运行后，单击命令按钮

在窗体上有一个名称为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 程序运行后，单击命令按钮，输出结果为

在窗体上画一个命令按钮，其名称为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 程序运行后，单击命令按钮，