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

Dim x As Variant与下列哪个语句等价（）。

执行语句 Dim X, Y as Integer 后，（）

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 该程序的运行结果是（ ）。

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

假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd 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该程序的运行结果是（ ）。

设有如下声明语句： 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 变量名 As 类型，若省略“As 类型”，则所创建的变量是（ ）。

用如下语句所定义的数组的元素个数是（ ）个。Dim b(-2 to 4) as string

Dim x As Single, y As SinglePrivate Sub Command1_Click()x = x + 1y = y + 1Call test2End SubPrivate Sub test2()Dim x As Singlex = x + 20y = y + 20Print x, yEnd Sub以上程序的执行结果是( )( )

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

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

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

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End 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

在“声明”段有语句Option Base 1，那么用如下语句声明的数组a包含的元素个数为（）。 Dim a（-1 To 3, 3, 4)

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

在窗体上画一个名称为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（a As Integer,b As Int

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