计算机程序设计
执行语句 Dim X, Y as Integer 后，（）A、X和Y均被定义为整型变量B、X和Y被定义为变体类型变量C、X被定义为整型变量，Y被定义为变体类型变量D、X被定义为变体类型变量，Y被定义为整型变量
题目
执行语句 Dim X, Y as Integer 后，（）
- A、X和Y均被定义为整型变量
- B、X和Y被定义为变体类型变量
- C、X被定义为整型变量，Y被定义为变体类型变量
- D、X被定义为变体类型变量，Y被定义为整型变量
相似问题和答案
第1题：
下面可以正确定义两个整型变量和—个字符串变量的语句是______。
A．Dim n,m As Integer,s As String
B．Dim a%,b$,c As String
C．Dim a As Integer,b,c As String
D．Dim x%,y As Integer,z As String
解析：Dim语句形式为：Dim变量名[As 类型] [As 类型]：方括号部分表示该部分可以缺省。缺省“As类型”部分，则所创建的变量默认为变体类型。为方便定义，可在变量名后加类型符来代替“As类型”。此时变量名与类型符之间不能有空格。一条Dim语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用，所以选项A，C是错误的。 S是定义字符型变量的关键字，选项B定义的是1个整型变量和2个字符串变量，不符合要求。
第2题：
执行语句 Dim X, Y as Integer 后，
A ） X 和 Y 均被定义为整型变量
B ） X 和 Y 被定义为变体类型变量
C ） X 被定义为整型变量， Y 被定义为变体类型变量
D ） X 被定义为变体类型变量， Y 被定义为整型变量
第3题：
下面可以正确定义2个整形变量和1个字符串变量的语句的是（ ）。
A．Dim n,m AS Interger,s AS String
B．Dim a%,b$,c AS String
C．Dim a AS Integer,b,c AS String
D．Dim x%,y AS Integer,z AS String
第4题：
以下定义数组或给数组元素赋值的语句中，正确的是
A．Dim x%(2) x(1)="等级考试"
B．Dim x(3)， y(3)As Integer x(0)=1：y=x
C．Dim x x=Array(0，1，2)
D．Dim x(3)As Integer x=Array(0，1，2)
解析：在选项A中，用类型说明符“%”放在变量名x的尾部来标识该变量为整型数组，执行语句“x(1)=“等级考试"”会产生“类型不匹配”的错误。在选项B中，执行语句“y=x”，会产生“不能给数组赋值”的错误。在使用Array函数对数组进行初始化时，数组变量不能是具体的数据类型，只能是Variant(变体)类型。所以选项C是正确的，选项D是错误的。
第5题：
（13）单击命令按钮时，下列程度的执行结果是 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=4:c=6 Call S2(a,b) Print"a=";a;"b=";b;"c=";c; End Sub Private Sub S1(x As Integer,y As Integer) Dim c As Integer x=2*x:y=y+2:e=x+y End Sub Sub S2(x As Integer,By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub A.a=4 b=6 c=6 B.a=8 b=6 c=6 a=4 b=6 c=6 a=8 b=6 c=6 C.a=4 b=6 c=6 D.a=8 b=6 c=6 a=8 b=6 c=6 a=4 b=6 c=6
【解析】在定义子过程的参数时，如果在参数前加上ByVal，表示是“传值”参数，主调函数中参数的值不被改变；否则表示是“传地址”参数，参数值会被调用的子过程改变。
题中S1过程的参数是“传地址”，因此调用后a、b、c的值都改变了，分别为4、6、6；S2过程的参数中a是“传地址”参数，b是“传值”参数，因此调用后a值改变，b值不变，因为。是过程变量，所以也没有变化，因此输出的值为8、6、6。
第6题：
（ 11 ）下面可以正确定义 2 个整形变量和 1 个字符串变量的语句的是（ ）
A ） Dim n,m AS Interger,s AS String
B ） Dim a%,b$,c AS String
C ） Dim a AS Integer,b,c AS String
D ） Dim x%,y AS Integer,z AS String
第7题：
单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End Sub
A．21
B．19
C．17
D．34
第8题：
单击命令按钮执行下列程序，其输出结果是。 Private Sub Commana1_Click() Dim a As Integer,b As Integer,c As Integer a = 3 b = 4 c = 5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc = 2 * x + y + 3 * z End Function Function SecProc(x As Integer,y As Integer,z As Integer) SecProc = FirProc(z,x,y) + x End FunctionA. 20 B. 22 C. 28 D. 30
【解析】本题是在Commana1过程中调用SecProc函数，而在SecProc函数中又调用了FirProc函数。函数调用时，实参和形参要一一对应传递。程序运行过程是：①Print SecProc(c,b,a)→Print SecProc(3,5,4)；②SecProc = FirProc(z,x,y) + x→SecProc = FirProc(3,5,4) + 5；③FirProc = 2 * x + y + 3 * z→FirProc = 2 * 3 + 5 + 3 * 4=23；④SecProc = 28→Print SecProc(c,b,a)→Print28.形参是在被调用的Sub、Function过程中定义的参数名；实参则是在调用的Sub或Function过程中定义的参数名。
第9题：
单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub
A． 12 34
B．2 34
C．2 3
D．12 3
第10题：
单击命令按钮时，下列程序代码的执行结果为 ( ) Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc＝FirProc(z, x, y)+x End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b,A)End Sub
A．21
B．19
C．17
D．34
解析：执行语句Print SecProc (c，b，a)时，调用SecProc函数，此时将实参c， b，a的值对应传递给形参x，y，z。得SecProc =FirProc(a，c，b)+c，此时又需要调用Fir- Proc函数将a，c，b的值传递给对应形参x，y， z。在FirProc函数中执行语句FirProc=2*x +y+3*z即执行语句FirProe=2*a+c+3 *b其结果值为2*2+4+3*3即17。故 FirProe(a，c，b)的返回值为17。再与c相加即得SecProc函数的返回值结果21。选项A正确。