语句Dim X（-1to3 4to6）as Integer说明数

下面可以正确定义两个整型变量和—个字符串变量的语句是______。

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 m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x

A．3

B．4

C．5

D．6

（ 31 ）下列数组声明语句中，正确的是

A ） dim A[3,4] As integer

B ） dim A(3,4) As integer

C ） dim A[3;4] As integer

D ） dim A(3;4) As integer

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

设有以下函数过程 Private Function Fun(a（ ）As Integer，b As String)As Integer … End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是（ ）。

A.x(O)=Fun(x．"ch")

B.n=Fun(n．ch)

C.CallFun X，"ch"

D.n=Fun(x(5)，ch)

（ 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

单击命令按钮时，下列程序代码的执行结果为( )。 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

下面可以正确定义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

以下定义数组或给数组元素赋值的语句中，正确的是

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)

执行以下语句后显示结果为______。 Dim x As Integer If x Then Print x Else Printx-1

A．1

B．0

C．-1

D．不确定