有几个VB的题不会做,谁能帮帮忙做下
7、下面（ ）不是VB的数据类型。
A、Single B、Object
C、Currency D、Bool
15、使文本框获得焦点的方法是（ ）。
17、函数Len（Str（Val（“123.4”）））的值是（ ）。
A、11 B、5
C、6 D、8
20、列表框中的列表项的数目可以通过以下哪个属性的值获得（ ）。
A、Count B、ListCount
C、ListIndex D、Index
21、为使计时器控件每隔5秒中产生一格计时器事件（Timer ），则应将其（ ）属性值设为（ ）。
22、要使目录列表框Dir1中的项目随着驱动器列表框Drive1中所选择的当前驱动器的不同而同时发生变化，则应（ ）。
A、在Dir1的Change事件中，编写语句Dir1.Drive = Drive1.Drive
B、在Dir1的Change事件中，编写语句Dir1.Path = Drive1.Drive
C、在Drive1的Change事件中，编写语句Dir1.Path = Drive1.Drive
D、在Drive1的Change事件中，编写语句Dir1.Drive = Drive1.Drive
23、下列程序段的执行结果为（ ）。
A = “abcd”
B = “bcde”
E = Right(A,3)
F = Mid (B,2,3)
If E<F Then Print E+F Else Print F+E
A、cdebcd B、cdd
C、cdcd D、bcdcde
28、若有一菜单项名为Menu1，为了在运行时使该菜单项失效，应使用的语句是（ ）。
A、Menu1.Enabled = True
B、Menu1.Visible = False
C、Menu1.Checked = True
D、Menu1.Enabled = False
30、函数Ucase（Mid（”visual basic”,8,8））的值为（ ）。
A、visual B、basic
C、VISIC D、BASIC
43、可获得当前系统时间的函数是（ ）
A、date( ) B、time( )
C、isdate( ) D、year( )
46、在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ）
A、 ， B、 ； C、 。 D、 ：
47、表达式3∧2*2+3 MOD 10\4的值是（ ）
A、18 B、1
C、19 D、0
48、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）
A、属性、控件和方法 B、属性、事件和方法
C、窗体、控件和过程 D、控件、过程和模块
52、inputBox函数反回值的类型为 。( )
A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定）
65、假设 x的值为5，则在执行以下语句时，其输出结果为“OK”的Select case语句是（ ）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select
参考答案:我的qq***********