单项选择题

下列对变量的定义中，不能定义a为变体变量的是( )。

A) Dim a As Double
B) Dim a As Variant
C) Dim a
D) a=24

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果为( )。 Private Sub Command1_Click() Dim FirStr As String FirStr= abcdef Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr= strLen=Len(xStr) i=1 Do While i＜＝Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr, strLen -1+1,1) i=i+1 Loop Pat=tempStr End Function

A) abcdef
B) afbecd
C) fedcba
D) defabc

单项选择题

要获得当前驱动器应使用的驱动器列表框的属性是( )。

A) Path
B) Drive
C) Dir
D) Pattern

相关试题