套题1第一卷客观题第一题：是非题（共10分，每项1分）1. ActiveX部件是可以重复使用的编程代码和数据。
AA.对B.错2. 窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。
AA.对B.错3. 每一个控件实质上都是一个微型程序。
AA.对B.错4. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。
BA.对B.错5. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。
BA.对B.错6. 定义菜单项时，可以不设置分隔线的菜单项控件名称。
BA.对B.错7. 在事件驱动的应用程序中，代码是按照预定的路径执行的。
BA.对B.错8. 函数调用时，实际参数与形式参数在数量必须完全一致。
AA.对B.错9. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。
AA.对B.错10. 通用过程可以放在标准模块中，也可以放在窗体模块中。
AA.对B.错第二题、单选题（共45分，每项1.5分）11. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。
CA.ChangB.KeyDownC.ClickD.KeyPress12. InputBox函数的返回值的类型为____B__。
A.数值B.字符串C.逻辑值D.日期值13. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是___A___。
A.Sub Proc1(ByVal n,Byval m)B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m)D.Sub Proc1(n, m)14. 下面关于打印对话框属性的说法错误的是____C__。
A.Copies属性指定打印的份数。
B.HDC属性指定分配给打印机的句柄，用来识别对象的设备环境。
C.FromPage属性指定要打印文档的页范围。
使用该属性时必须把Flags属性设置为1。
D.Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max指定允许的最后页码。
15. 常量2.7856E-6的类型是_B_____。
A.整型B.实型C.字符型D.双精度16. Print #1，STR1$中的Print是___A___。
A.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令17. 使用Public x声明一个全局的变量时，该语句应放在__D____。
A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段18. 文本框没有__D___属性。
A.EnabledB.VisibleC.BackColorD.Caption19. 记录长度最大可取的值是__A____字节。
A.32767B.32768C.65535D.6553620. 下面四项中，_A_____是VB中的数值变量。
A.ABCB.E+2C."True"D.1.35E-221. 将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。
A.List1.AddItem”China”，0B.List1.AddItem”China”，lC.List1.AddItem 0，”China”D.List1.AddItem 1，”China”22. 下列不能打开菜单编辑器的操作是___D___。
A.按Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按Shift + Alt + M23. 文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿A＿＿。
A.“Hello”将替换掉原来选定的文本B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”24. 语句Print Format("HELLO", "<")的输出结果是_B_____。
A.HELLOB.helloC.HeD.he25. 函数Int(Rnd*11)+10产生的数值的范围是____C__。
A.（0,10）B.[10,10]C.[10,20]D.(0,20)26. 如果文本框的Enabled属性设为False，则＿A＿＿。
A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容27. 框架内的所有控件是＿＿A＿。
A.随框架一起移动、显示、消失和屏蔽B.不随框架一起移动、显示、消失和屏蔽C.仅随框架一起移动D.仅随框架一起显示和消失28. Integer类型的数据由_B_____字节组成。
A.1B.2C.3D.429. 数学表达式x>y>z的正确VB逻辑表达式是__D____。
A.x>y And <zB.x>y>zC.x>y And >zD.x>y And y>z30. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是___D___。
A.HideB.ShowC.LoadD.Unload31. 在下列说法中，正确的是＿＿D＿。
A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B.在列表框中不能进行多项选择C.在列表框中能够将项目按字母顺序从大到小排列D.框架也有 Click和 DblClick事件32. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为__D____。
A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put 文件号，记录号，变量名33. 按文件的组织方式分为____A__。
A.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件34. 以下__C____不能作为VB中的变量名。
A.Abx45B.P1234C.89TasFFD.xy35. 已编译的控件部件的扩展名是＿＿A＿。
A. .OCXB. .VBPC. .EXED. .CTL36. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A____。
A.自定义类型B.数组C.字符串类型D.变体类型37. 表达式Int(23.4)+Round(-35.5)的计算结果为___C___。
A.-11B.-12.1C.-13D.-12.538. 引用列表框（List1）最后一个数据项应使用＿B＿＿。
A. List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-l)39. 通过代码在运行时设置属性的语法格式为__B____。
A.对象名＝属性 .新值B.对象名.属性＝新值C.对象名.新值=属性 .新值D.对象名.属性=属性 .新值40. 在下面选项中，不能完成对顺序文件的读操作的是____D__。
A.LineInput#语句B.Input#语句C.Input（）函数D.Get#语句第三题、简单程序（共15分，每项1.5分）41. 下列程序段的运行结果。
APrivate Sub Form_Click()Dim MsgHideMsg=”选择‘确定’按钮”MsgBox MsgShowEnd SubA.隐藏窗体，按‘确定’按钮使窗体重现B.隐藏窗体C.显示窗体，按‘确定’按钮使窗体隐藏D.显示窗体42. 执行下面程序段后，变量c$的值为___D___。
a$= "Visual Basic Programming"b$= "Quick"c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,12)A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming43. 运行下面程序后，在窗体中显示的是__D____。
Private Sub Form_Click()a$="*": b$="$"For k=1 To 3x$=String$(Len(a$)+k,b$)Print x$;Next kPrintEnd SubA.、*** ** ****B.*$*$*$C.1*$2*$3*$D.、$$$$$$$$$44. 执行下面程序段后，变量a的值为___C___。
For I=1 To 3For j=1 To IFor k=j To 3a=a+1Next kNext jNext IA.3B.9C.14D.2145. 写出如下程序运行结果。
DFunction f(m As Integer) As Integerb = 1Static c As Integerb = b + 1c = c + 1f = m * b * cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2sum=0For I = 1 To 3sum=sum+ f(a)Next Iprint sumEnd SubA.12B.16C.20D.2446. 以下程序的输出结果是____B__。
Private Sub Command1_Click()a=1234b$=Str$(a)c=Len(Trim(b))print c;LenB(b)End SubA.3 8B.4 10C.5 10D.4 847. 执行下面程序段后，变量x的值为____A__。
x=5For I=1 To 20 step 2x=x+I\5Next IA.21B.22C.23D.2448. 以下程序的输出结果是__D____。
Private Sub Command1_Click()a=100Dos=s+aa=a+1Loop Until a>100print aEnd SubA.100B.120C.201D.10149. 以下程序的循环次数是___A___。
Private Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA.10B.9C.27D.2850. 下列程序运行后，其结果为__A____。