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 s（1 to 5）as Single定义的数组是（）类型的元素。

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

语句Dim s（5）as Single定义的数组默认情况下有（）个元素。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print BBBB End If End Sub 程序运行后，为在窗体上输出 “BBBB”，应执行操作为()。

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

假定有如下的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程序运行后，单击命令按钮，输出结果为（ ）。

下列程序执行中后，变量x的值为（ ） Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000 If b>a Then d=a:a=b:b=d End if If b>c Then x=b ElseIf a>c Then x=c Else x=a End If

求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

下面程序运行后，点击窗体，变量 x和y的值分别为( )、( ) Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print \x=

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

假定有如下事件过程：Private SubForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=1 ThenPopupMenu PopformEnd IfEndSub则以下描述中错误的是 。

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

假定有如下的Sub过程：Sub Sub1 （x As Single, y As Single)t=xx = t/yy = t Mod yEnd Sub在窗体

假定有如下的Sub过程：Sub S（x As Single，y As Single)t=xx=t/yy=t Mod y End Sub在窗体上画一个

下列程序执行后，变量X的值为（）。 Dim a，b，C，d As Single Dim X As Single f1=10 b=30 c=400 If b＞fl Then d=fl：fl=b：b=d End If If b＞C Then X=b Else If fl＞c Then X=c Else X=a End If

下列程序执行后，变量x的值为（)。Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 50

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

有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click（) Dim x As Single，y As Single Open"NM1.txt"For Input As 1 Open"NM2.txt"For Input As 2 Do While N

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

下列程序的执行结果为（）。 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