下面这段代码中，变量subString的结果是（）。 Dim aStringAs String="Left Center Right" Dim subStringAs String subString=aString.SubString（1，4）A、"_Left"B、"Left_"C、"Left"D、"eft"

（ 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

以下是替换字符串中制定字符的函数过程： Function sReplace (SearchLine As String，SearchFor As String，Replace With As String) As String Dim vSearchLine As String，found As Integer found=InStr (SearchLine，SearchFor)：vSearchLine=SearchLine If found ＜＞0 Then vSearchLine=" " If found＞1 Then vSearchLine=Left (SearchLine，found -1) vSearchLine=vSearchLine+ReplaceWith End If If(表达式)＜Len(SearchLine)Then vSearchLine=vSearchLine+Rights (SearchLine，Len (SearchLine) ―found―Len(SearchFor)+1) End If End If sReplace=vSeachLine End Function过程中的“表达式”应为( )。

A．found

B．found-1

C．found+Len(SearchFor)

D．found+Len(SearchFor)-1

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

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.1

B.11111

C.55555

D.12345

设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是( )。

A．Student.name="张红"

B．Dim s As Student s.name="张红"

C．Dim s As Type Student s.name="张红"

D．Dim s As Type s.name="张红"

执行以下程序段后，变量c$的值是【 】。

a$="北京"

b$="Shanghai"

c$="Left(a$,2)+String(3,"—")+Right(b$,8)

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

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