VB复习题01

VB复习题（一）附参考答案

第1部分 Visual Basic 基本概念

一、 单选题

1. Visual Basic是一种面向对象的可视化程序设计语言，采取了_______的编程机制。 A） 从窗体开始执行 B） 按书写顺序执行 C） 从主程序开始执行 D） 事件驱动

2. 在Visual Basic中最基本的对象是_________，它是应用程序的基石，是其他控件的容器。 A） 文本框 B） 窗体 C） 标签 D） 命令按钮

3. 有下面的程序代码：Command1.Caption =\确定\，则Command1，Caption和\确定\分别代表 _________。 A） 对象，属性，值 B） 对象，方法，值 C） 对象，值，属性 D） 属性，对象，值

4*．多窗体程序是由多个窗体组成的，在缺省的情况下，VB应用程序执行时，总是把_________指定为启动窗体。

A） 不包含任何控件的窗体 B） 设计时的第一个窗体 C） 包含控件最多的窗体 D） 命名为Form1的窗体

5．VB是一种面向对象的程序设计语言，下面_________不是面向对象包含的三要素。 A） 变量 B） 事件 C） 属性 D） 方法 6．VB 6.0集成开发环境中不能完成的功能是_______。 A）输入编辑源程序 B）编译生成可执行程序

C）调试运行程序 D）自动生成查找并改正程序中的错误 7．下列关于VB编程的说法中不正确的是_______。

A）属性是描述对象特征的数据 B）事件是能被对象识别的动作 C）方法指示对象的行为 D）VB程序采用的运行机制是面向对象 8．关于面向对象的描述中，不正确的是_______。

A）对象就是自定义结构变量 B）对象代表正在创建的系统中的一个实体 C）对象是一个特征和操作的封装体 D）对象之间的信息传递是通过消息进行的 9．以下叙述错误的是________。

A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B）打开一个窗体文件时，系统自动装入与该窗体有关的工程文件 C）保存VB应用程序时，应分别保存窗体文件和工程文件 D）事件可以由用户激发,也可以由系统激发 10．VB6.0集成开发环境不包括________窗口。

A）DOS界面窗口 B）窗体窗口 C）代码窗口 D）属性窗口

11．VB的一个应用程序至少包含一个_________文件，该文件存储窗体上使用的所有控件对象和有关的_________、对象对应的_________过程和_________代码。

A） 模块、方法、事件、程序 B） 窗体、属性、事件、程序 C） 窗体、程序、属性、事件 D） 窗体、属性、事件、模块 12. 以下不属于VB工作模式的是________模式。

A） 编译 B） 设计 C） 运行 D） 中断

13. 在VB集成环境创建VB应用程序时。除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是________。

A）窗体布局窗口 B） 立即窗口 C） 代码窗口 D） 监视窗口 14. 保存新建工程时，默认的路径是________。

A）My Documents B） VB98 C） \\ D） Windows 15. 对于窗体，下面________属性在程序运行时其属性设置起作用。 A）MaxButton B） BordStyle C） Name D） Left

1 D

16. 要使Print方法在Form_Load 事件中起作用，要对窗体的________属性进行设置。 A）BackColor B） ForeColor C） AutoRedraw D） Caption 17 .要使标签显示时不覆盖其背景内容，要对________属性进行设置。 A）BackColor B） ForeColor C） BackStyle D） Caption 18 若要使命令按钮不可操作，要对________属性进行设置。

2 B 3 4 5 6 7 8 9 10 11 12 13 14 15 A B A D D A B A B A C B D

A）Visible B） Enabled C） Name D） Caption 19.文本框没有________属性。

A） Enabled B） Caption C） BackColor D） Visible 20. 不论任何控件，共同具有的是________属性。

A） Text B） Caption C） BackColor D） Name

21. 要使Form1窗体的标题栏显示 “ 欢迎使用Visual Basic 6.0!”,以下________语句是正确的。 A） Form1.Caption =\欢迎使用Visual Basic 6.0! \ B） Form1.Caption =' 欢迎使用Visual Basic 6.0! ' C） Form.Caption = \欢迎使用Visual Basic 6.0! \D） Form.Caption = ' 欢迎使用Visual Basic 6.0! '

22. 有如下语句：Form1.Print “欢迎使用Visual Basic 6.0!”， Form1，Print和“欢迎使用Visual Basic 6.0!”则分别代表________。

A） 对象，属性，值 B） 对象，方法，参数 C） 对象，值，属性 D） 属性，对象，值

23. 要判断在文本框是否按了Enter键，应在文本框的________事件中判断。 A） Change B） KeyPress C） Click D） KeyDown

24. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只需要对下列________属性进行设置。

A） MaxButton B） BordStyle C） Width D） MinButton

25. 当文本框ScrollBars属性设置了非零值，却没有效果，原因是________。 A） 文本框中没有内容 B） 文本框中的MultiLine设置为False C） 文本框中的MultiLine设置为True D） 文本框中的Locked设置为True

26．Visual Basic 是一种面向对象的程序设计语言，对象的三要素包括________。 A） 变量，属性，方法 B） 属性，事件，方法 C） 类，属性，方法 D） 对象，属性和方法 27. 以下叙述中，错误的是______。

A）一个Visual Basic应用程序可以含有多个标准模块文件

B）一个Visual Basic工程可以含有多个窗体文件 C）标准模块文件可以属于某个指定的窗体文件 D）标准模块文件的扩展名是 ．Bas

28. 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是______。 A）单选按钮 B）图片框 C）通用对话框 D）文本框 29．以下关于窗体的描述中，错误的是______。

A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B）窗体的Load事件在加载窗体时发生

C）当窗体的Enabled属性为False时通过鼠标和键盘对窗体的操作都被禁止 D）窗体的Height、Width属性用于设置窗体的高和宽

30. 新建一个工程将其窗体的Name属性设置为Myfrm，则默认的窗体文件名为______。 A）Form1.frm B）Myfrm.frm C）Form1.vbp D）工程1.frm

31. 下面是窗体Forml的Click事件过程,实现运行时每次单击窗体时,窗体均向右移动100。 Private Sub Form_click() Static intleft As Integer intleft = intleft + 100 Form1.______ = intleft End Sub

请选择正确属性填充空白处，完成本程序。

A）Caption B）Top C）Width D）Left 32. 决定一个窗体有无控制菜单的属性是______。

A）MinButton B）Caption C）MaxButton D）ControlBox

33. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text=\ Me.Text1=\ Text1=\End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是______。 A）Visual B）Basic C）Program D）出错

34. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub

程序运行后，单击命令按钮，执行的操作为______。 A）命令按钮移动到距窗体左边界、上边界各500的位置 B）窗体移动到距屏幕左边界）上边界各500的位置 C）命令按钮向左）上方向各移动500 D）窗体向左）上方向各移动500

35. 在代码编辑器中，如果一条语句过长，不能在一行内写下，则需要折行书写，这是通过在行末使用续行符来实现的，该续行符表示为______。

A）一个下划字符（_） B）一个空格加一个下划字符（_） C）一个空格加一个连字符 D）回车

36. 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是______。

A）Value B）Default C）Cance1 D）Enabled 37. 以下关于焦点的叙述中，错误的是______。

A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B）当文本框失去焦点时，触发LostFocus事件

C）当文本框的Enabled属性为False时，其Tab顺序不起作用 D）可以用TabIndex属性改变Tab顺序

38. 要使文本框获得输入焦点，则应采用文本控件的哪个方法______。 A）GotFocus B）LostFocus C）KeyPress D）SetFocus

39. 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是______。 A）Autosize B）Stretch C）AutoRedraw D）Appearance

40. 运行时，要向图片框Pic中加载\图像文件，应使用语句______。 A）Picture1.Picture=\

B）Picture1.Picture=LoadPicture(\C）Pic.Picture=LoadPicture(C:\\windows\\beer.bmp) D）Pic.Picture=LoadPicture(\

41. 将文本框的______属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。

A）Multiline B）Scrollbars C）Text D）Enabled 42. 将文本框的ScrollBars属性设置为非零值，却没有效果，原因是______。 A）文本框中没有内容 B）文本框的MultiLime属性值为False C）文本框的MultiLine属性值为True D）文本框的Locked属性值为True

43. 在设计阶段，在属性窗口设置Text属性时，通过按下Ctrl+Enter组合键实现文本的换行。在运行阶段，如果在窗体上有缺省按钮（已设置Default属性为True）存在，则必须在文本框中按下______组合键才能移动到下一行。

A）Enter B）Alt+Enter C）Ctrl+Enter D）Ctrl+Shift+Enter 44. 为了清除窗体上的一个控件，下列正确的操作是______。 A）按回车键 B）按ESC C）选择（单击）要清除的控件，然后按DEL D）选择（单击）要清除的控件，然后按回车 45. 以下叙述中错误的是______。

A）打开一个工程文件时，系统自动装入与该工程有关的窗体，标准模块文件 B）当程序运行时，双击一个窗体，则触发该窗体的 DblClick事件 C）Visual Basic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发

46. 以下有关VB对象名称(Name)属性的叙述，正确的是_______。 A）对象的Name属性值可以为空 B）窗体的Name属性用来标识和引用窗体 C）可以在程序运行期间改变对象的Name属性值 D）窗体的Name属性值是显示在标题栏中的字符串 47. Visual Basic6.0集成环境的主窗口中不包括_______。

A）标题栏 B）菜单栏 C）状态栏 D）工具栏 48. 在VB中文本框控件的哪个属性在设计时不能设置_______。 A）Seltext B）Locked C）Enabled D）MaxLength 49. 在开发VB应用程序时，一个工程一般至少应含有_______。 A）标准模块文件和类模块文件 B）工程文件和窗体文件

C）工程文件和类模块文件 D）工程文件和标准模块文件 50. 退出Visual Basic的快捷键是_______。

A） Alt+Q B）Ctrl+Q C）Alt+X D）shift+X

51.为了使命令按钮(名称为Command1)右移200，应使用的语句是_______。 A） Command1.Move -200 B） Command1.Move 200

C） Command1.Left= Command1.Left+200 D） Command1.Left= Command1.Left-200

52. 为了使命令按钮(名称为Command1)下移200，应使用的语句是_______。 A） Command1.Move -200 B） Command1.Move 200

C） Command1.move Command1.top+200

D） Command1.move Command1.Left,Command1.top+200 53. 在Visual Basic工程中，可以作为启动对象的是_______。 A）任何窗体或标准模块 B）任何窗体或过程

C）Sub Main过程或其他任何模块 D）Sub Main过程或任何窗体

54. 在面向对象方法中，类的实例称为_______。

A）集合 B）抽象 C）对象 D）模板

55. 在VB中,对象的行为被称作_______，它被事先编写好相应的过程或函数供用户直接调用。 A）属性 B）方法 C）事件 D）消息 56.当窗体最小化时缩小为一个图标，设置这个图标的属性是_______。 A）MouseIcon B）Icon C）Picture D）MousePointer

57. 为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为_______。

A） 0 B）1 C）2 D）3 58. 当程序运行时，系统自动执行启动窗体的_______事件过程。 A）Click B）Load C）Unload D）GotFocus 59. 在为了使标签中的内容居中显示，应把Alignment属性设置为_______。

A） 0 B） 1 C） 2 D）3

60. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是_______。

A） Value B） Default C） Cancel D） Enabled 61. Visual Basic程序设计语言属于______。 A）面向过程的语言 B）机器语言 C）面向对象的语言 D）汇编语言 62. 以下关于Visual Basic特点的叙述中，错误的是______。 A）Visual Basic是采用事件驱动编程机制的语言 B）Visual Basic程序既可以编译运行，也可以解释运行 C）构成Visual Basic程序的多个过程没有固定的执行顺序 D）Visual Basic程序不是结构化程序，不具备结构化程序的特点

63. 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是______。 A）单选按钮 B）图片框 C）通用对话框 D）文本框

64. 将窗体的______属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。 A） ControlBox B） Visible C） Enabled D） BorderStyle 65. 能够改变窗体边框线类型的属性是______。

A） FontStyle B） Border C） BackStyle D） BorderStyle 66 要想改变一个窗体的标题内容，则应设置以下哪个属性的值______。 A） Name B） FontName C） Caption D） Text

67. 下面是窗体Form1的Click事件过程，实现运行时每次单击窗体时，窗体向右移动100。 Private Sub______() Static intleft As Integer Inleft=inleft+100 Form1.Left=intleft End Sub

A） Form_Click B） Form1_Click C） Command_Click D） Command1_Click 68. 决定控件上文字的字体、字形、大小、效果的属性是______。 A） Text B） Caption C） Name D） Font

69. 在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示______事件过程。

A） Form_Click B） Form1_Load C） Form_Load D） Form1_Click

70. 在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的______事件过程模板。

A） Click B） DblClick C） Change D） GetFocus

71．将调试通过的工程经“文件”菜单的“生成.exe文件“编译成.exe文件后，该可执行文件到其它机器上不能运行的主要原因是________。

A）运行机器上无VB系统 B）缺少.frm窗体文件 C）该可执行文件有病毒 D）以上原因都不对

72．当需要上下文帮助时，选择要帮助的“难题”，然后按________键，就可出现MSDN窗口及显示所需“难题”的帮助信息。

A）Help B）F10 C）F1 D）Esc

73．Visual Basic有多种类型的窗口，若要在设计时看到窗体窗口，以下操作不正确的是________。 A）打开“视图”菜单，选择“对象窗口” B）双击VB窗口工作区的空白处

C）单击“工程资源管理器”中的“查看对象”按钮 D）双击“工程资源管理器”中对应的窗体名

74．下面关于属性和方法的描述中，不正确的是________。 A）属性是对象的特征，方法是对象的行为 B）属性和方法都有值

C）属性可以被赋值 D）方法表示能执行的操作

75．下面关于标签和文本框的描述中，正确的是________。 A）文本框和标签都可以显示文字 B）文本框和标签都可以在运行时输入文字 C）文本框和标签都有Caption属性 D）文本框和标签都有Text属性

二、 填空题

1. 启动Visual Basic后，在窗体的左侧有一个用于应用程序界面设计的窗口，称作_ _【1】_____。 2. 当进入VB集成环境，发现没有显示“工具箱”时，应选择___【2】 __的工具箱选项，使工具箱显示在窗口。

3．对象的属性是指____【3】____。 4．对象的方法是指____【4】____。

5．在创建工程时，使窗体上所有的控件具有相同的字体格式，应对___【5】_____ 的Font属性进行设置。 6．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有显示效果，原因是这些属性___【6】_____。

7．对命令按钮的Picture属性装入.bmp图形文件后，选项按钮并没有显示所需要的图形，原因是没有将____【7】____属性设置为1。

8．在文本框中通过___【8】____属性能获得当前插入点所在的位置。

9．要对文本框中已有的内容进行编辑，按下键盘上的按键就是不起作用，原因是设置的____【9】____属性为True。

10.在窗体上已建立多个控件如Text1、Label1、Command1等，若要使程序一运行焦点定位在Command1控件上，应把Command1控件的___【10】_____属性设置为0。

11.在工具栏的右侧有两栏，分别用来显示窗体的当前位置和大小，其单位为_【11】___。 12.属性窗口主要是针对窗体和控件设置的。在Visual Basic中，窗体和控件被称为_【12】___。 13.一个Visual Basic应用程序可由_【13】__标准模块和类模块组成。

14.假定已将文本框的MultiLine属性设置为True，则按__【14】__组合键可以插入一个空行。 15.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是_【15】_。

参考答案

一、单选题

1 D 2 B 3 4 5 6 7 8 9 10 11 12 13 14 15 A B A C B D A B A D D A B 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 C C B B D A B B B B B C C A B

31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 D D C B B C A D B D A B C C C 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 B C A B A C D D C B B D B C B 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 C

二、填空题

【1】 【3】 工具箱 对象的性质，来描述和反映对象特征的参数 【2】 【4】 视图 对象的动作、行为 【5】 【7】 【9】 Form窗体 Style Locked 【6】 【8】 运行时设计无效 SelStart D C C D C A D C C A C B B A 【10】 TabIndex 【12】 对象 【14】 Ctrl+Enter 【11】 twip 【13】 窗体模块 【15】 PicTure1.Picture=LoadPicture(\

第2部分. Visual Basic 语言基础

一、 单选题

1．在一行内写多条语句时，每个语句之间用________来分隔。

A） ， B） ： C） 、 D） ；

2．下面________是合法的变量名。

A） X_yx B） 123abc C） integer D） X-Y 3．下面________是不合法的整常数。

A） 100 B） &O100 C） &H100 D） 0 4．下面________是合法的字符常数。

A） ABC$ B） \） 'ABC' D） ABC 5．下面________是合法的单精度型变量。

A） num! B） sum% C） xint$ D） mm# 6．下面________是不合法的单精度常数。

A） 100! B） 100.0 C） 1E+2 D） 100.0D+2 7．表达式16/4-2^5*8/4 MOD 5\\2的值为________。

A） 14 B） 4 C） 20 D） 2 8．数学表达式3≤x＜10在VB中的逻辑表达式为________。 A） 3<=x<10 B） 3<=x AND x<10 C） x>=3 OR x<10 D） 3<=x AND <10 9．与数学表达式ab/3cd对应，不正确的VB表达式为________。 A） a*b/(3*c*D） B） a/3*b/c/d C） a*b/3/c/d D） a*b/3*c*d 10. RND函数不可能是下列________值。

A） 1 B） 0 C） 0.123 D）0.00005 11. Int(198.55*100+0.5)/100的值为________。

A） 198 B） 199.6 C） 198.55 D）200 12. Int(198.555*100+0.5)/100的值为_______。

A）198 B）199.6 C）198.56 D）200 13. Print DateAdd(\，1，#1/30/2000#)语句显示的结果为________。

A） 00-2-29 B） 00-2-28 C） 00-2-30 D）00-1-31 14. 表达式DateDiff(\，1，#12/30/1999#，#1/13/2000#)的结果为________。 A） 1 B） 11 C） 14 D） 99 15. 表达式Len（\程序设计ABC\）的值是________。

A） 10 B） 14 C） 20 D） 17

16 .表达式LenB（\程序设计ABC\）的值是________。

A） 10 B） 14 C） 20 D） 17 17. 下面正确的赋值语句是________。

A） x + y = 30 B） y = p*r*r C） y = x + 30 D） 3y = x

18. 为了给x，y，z三个变量赋初值1，下面正确的赋值语句是________。 A） x = 1 : y = 1 : z = 1 B） x = 1, y = 1, z = 1 C） x = y = z = 1 D） xyz = 1

19. 赋值语句：a = 123 + MID(\执行后，a变量的值是是________。 A） “1234” B） 123 C） 12334 D） 157 20. 赋值语句：a = 123 & MID(\执行后，a变量的值是是________。 A） “12334” B） 123 C） 12334 D） 157 21. 表达式 12000 + \的结果为 ________。

A） 12000123100 B） 出错 C） 12123100 D） 12223 22. 表达式String(3, \的值为 ________。

A） C B） \） ABC D） \23. 表达式InStr(3, \的值为 ________。

A） 1 B） 7 C） 2 D） “EF” 24. 以下合法的Visual Basic 标识符是______。

A）ForLoop B）Const C）6abc D）b#x 25.Visual Basic中的数值可以用十六进制或八进制表示，十六进制数以&H开头，八进制数以______开头。 A）$O B）&O C）$E D）&E 26. 设有如下声明： Dim X As Integer

如果Sgn（X）的值为-1，则X的值是______。

A）整数 B）大于0的整数 C）等于0的整数 D）小于0的数 27. 产生[5，46]之间随机整数VB表达式是______。 A）Int(Rnd(1)*42)+6 B）Int(Rnd(1)*42)+5

C）Int(Rnd(1))+41 D）Int(Rnd(1)*41)+5 28. 设a=\下面使b=\的语句是_______。

A） b=Left$(a,8,5) B） b=Right$(a,5,5) C） b=Mid$(a,8,5) D） b=InStr(a,8) 29. 表达式Int(-17.8)+Sgn(17.8)的值是______。

A）18 B）-17 C）-18 D）-16 30. 表达式Val(\的值是______。

A）123 B）0 C）12.3 D）123E2CD

31．设a=5，b=10，则执行c=int((b-A）*Rnd+A）+1后，c值的范围为______。 A）5～10 B）6～9 C）6～10 D）5～9 32. 设有如下变量声明 Dim TestDate AS Date

能为变量TestDate正确赋值的是______。

A）TestDate=#1/1/2007# B）TestDate=#\C）TestDate=date(\

D）Testdate=Format(\33. 在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_Click() a%=2/3 b%=32/9 Print a%,b% End Sub

运行下列程序，输出结果为______。

A）0 4 B）0 3 C）1 3 D）1 4 34. 以下关系表达式中，其值为False的是______。

A）\）\C）\）\35. 若N=365，下述的语句中______显示的值是33。 A）Print n - Int(n / 100) * 100

B）Print Int(n / 10) - Int(n / 100) * 10 C）Print Int(n / 10) - Int(n / 100)

D）Print Int(n - Int(n / 10) * 10) / 10 36. 表达式2*3^2+2*8/4+3 ^2的值为______。

A）64 B）31 C）49 D）22 37. 表达式Str(Len(\的值为______。

A）45.9 B）4 5.9 C）12345.9 D）1234 5.9 38. 语句Print 5/4*6\\5 Mod 2的输出结果是______。

A）0 B）1 C）2 D）3 39. 表达式2+3*4^5+Sin(x+1)/2中最先进行的运算是______。

A）4^5 B）3*4 C）x+1 D）Sin() 40.表达式A%*B&-D#\\3.0+F!的结果是______。

A）整型 B）长整型 C）单精度型 D）双精度型 41. 如果x是一个正实数，对x的第3位小数四舍五入的表达式是______。

A）0.01*Int(x+0.005) B）0.01*Int(100*(x+0.005)) C）0.01*Int(100*(x+0.05) D）0.01*Int(x+0.05) 42. 表达式Int(8 * Sqr(36 * (10 ^ (-2)) * 10 + 0.5)) / 10的值是______ A）1 B）1 6C）1.6 D）0.16 43. 若N=235，下述的语句中______显示的值为3。 A）PRINT N-INT（N/100）*100

B）PRINT INT（N/10）-INT（N/100）*10 C）PRINT INT（N/10）-INT（N/100） D）PRINT INT（N-INT（N/10））/10

44. 在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$ = \Print String(3, a$) End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是______。

A）VVV B）Vis C）sic D）ll 45. 函数String(n,\的功能是______。 A）把数值型数据转换为字符串

B）返回由n个字符组成的字符串 C）从字符串中取出n个字符

D）从字符串中第n个字符的位置开始取子字符串 46. 以下程序段在立即窗口中输出______。 A=\B=\C=\

Print Right(A,3)

Picture1.Print Mid(B,2,4) Debug.Print Left(C,2)

A）name B）our C）is D）ournameis

47. 设a=\，则以下使变量的b值为\的语句是______。 A）b=Left(a,10) B）b=Mid(a,10) C）b=Right(a,10) D）b=Mid(a,11,10) 48. 设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是______。 A）True B）False C）1 D）出错信息 49. 设x=4，y=6，则以下不能在窗体上显示出\的语句是______。 A）Print A=x+y B）Print\C）Print \）Print\十y 50. 下面表达式中,______的运算结果与其他三个不同。

A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.5 51. 设a=5,b=4,c=3,d=2，下列表达式的值是_______ 3>2*b Or a=c And b<>c Or c>d

A）1 B）True C）False D）2 52. 设a=\则以下使变量b的值为\的语句是_______。 A）b=Left(a,10) B）b=Mid(a,10)

C）b=Right(a,10) D）b=Mid(a,11,10) 53. 假定有如下的窗体事件过程： Private Sub Form_Click() a$ = \

b$ = Right(a$, 5) c = Mid(a$, 1, 9) MsgBox a$, 34, b$ End Sub

程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是_______。 A）Microsoft Visual B）Microsoft C）Basic D）34 54. 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox(\请输入一个整数\ Print x + Text1.Text End Sub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是_______。

A）123 B）456 C）579 D）123456 55. 可以同时删除字符串前导和尾部空白的函数是_______。

A） Ltrim B） Rtrim C） Trim D） Mid 56. \\、/、Mod、*四个算术运算符中，优先级别最低的是_______。

A） \\ B） / C） Mod D） * 57. 在VisualBasic中，日期 ／时间型常量要用_______括起来 A） \）# C） * D） {} 58. 设a%=20,b$=”30”,则下列输出结果是”2030”的语句是_______。

A）Print str(A） B）Print “a”+b C）Print a+b D）Print a & b 59. 下列关于变体数据类型的叙述中正确的是_______。 A） 变体是一种没有类型的数据

B） 给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值 C） 一个变量没有定义就赋值，该变量即为变体类型 D） 变体的空值就表示该变体值为0

60. 表达式Fix(-32.68)+Int(-23.02)的值为 _______。

A） -55 B） -56 C） -57 D） –58

61. 在VB中，若要强制变量必须先定义才能使用，应该用_______语句说明。 A） Public Const B） Option Explicit C） Type 数据类型名 D） DefDbl 62 执行以下程序段后，变量c$的值为_______。 a$=\ b$=\

c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,11)

A） Visual BASIC Programing B） Quick Basic Programing C） QUICK Basic Programing D） Quick BASIC Programing 63 .语句Print 5 * 5 \\ 5 / 5的输出结果是_______。

A） 5 B）25 C） 0 D）1 64. 语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是_______。

A） -36 B）1 C） -1 D）-72 65. 假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_______。 A） Print 2.5 B）Picture1.Print 2.5 C） Debug. Print 2.5 D） Text1.Print 2.5 66. 以下声明语句中错误的是_______。

A）Const var1=123 B）Dim var2 = 'ABC'

C）Dim var3% D）Static var3 As Integer 67. 下列可作为Visual Basic变量名的是______。

A）A#A B）4A C）?xy D）constA 68. 下列符号______不是VB中的合法变量名。

A）ABCabc B）bd_1234 C）22wed D）cmd$ 69. 下列叙述中不正确的是______。

A）变量名的第一个字符必须是字母 B）变量名的长度不超过255个字符 C）变量名可以包含小数点或者内嵌的类型声明字符 D）变量名不能使用关键字

70. 下列符号常量的声明中，______是不合法的。

A）Const a As Single=1.1 B）Const a As Integer=\C）Const a As Double=1 D）Const a As String = \

71. 下面______不是字符串常量

A）\语言\）\）\）#False# 72. 以下不合法的常量是 ______。

A）10^2 B）100 C）100.0 D）10E+01 73. 设有如下声明： Dim X As Integer

如果Sgn（X）的值为-1，则X的值是______。

A）整数 B）大于0的整数 C）等于0的整数 D）小于0的数 74. Rnd函数不可能产生______的值。

A）0 B）1 C）0.1234 D）0.00005

75. 在Visual Basic中，如果一个变量未作类型声明而直接使用，则该变量的数据类型是______。 A）字符串型 B）数值型 C）变体类型 D）可以是任何类型 76. 设有如下语句： Dim a,b As Integer c=\ d=#7/20/2005#

以下关于这段代码的叙述中，错误的是______。

A）a被定义为Integer类型变量 B）b被定义为Integer类型变量 C）c中的数据是字符串 D）d中的数据是日期类型 77. Abs(-8)+Len(\的值是______。

A）12 B）14 C）8ABCD D）-8ABCD 78. 设A=\则表达式Val(Left(A,4)+Mid(A,4,2))的值为_____。

A）963214 B）963221 C）963216321 D）963213214 79. 如果X是一个正实数，将百分位四舍五入，保留一位小数的表达方式是______。 A）0.1*Int(X+0.05) B）0.1*Int(10*(X+0.05)) C）0.1*Int(10*X) D）Int(X+0.05)

80. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是______。

A） Left B）Mid C）String D）Instr

81．已知A$=“12345678”，则表达式Val(Left(A$，4)+Mid(A$，4，2))的值为________。

A） 123456 B） 123445 C） 8 D） 6

82．在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式，以下不正确的是______。

A）(x>0 and y>0) and (x<0 and y<0) B）(x>0 and y>0) and (x<0 and y<0) C）x*y>0 D）x*y=Abs(x*y) 83．语句：Print “Sqr(9)=” ; Sqr(9)的输出结果是_______。

A）Sqr(9)= Sqr(9) B）Sqr(9)=3 C）”3”=3 D）3= Sqr(9) 84．下面程序段的输出结果为________。 X = 10 ：Y = 20

Print X ；”+” ；Y ；”= ”； Print X + Y

A）10 + 20 = 30 B）10 + 20 = 30 C）X+ Y = 30 D）10 + 20 = 30

85．若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适？_______ A）Integer B）Long C）Single D）String 86．以下函数表达式中，其值等于-3的是________。

A）Int(-3.5) B）Fix(-3.5) C）Round(-3.5) D）Abs(-3.5) 87．以下函数表达式中，其值不等于3的是________。

A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(-3) 88．以下函数表达式中，其值不等于-4的是________。

A）Int(-3.5) B）Fix(-4.5) C）Round(-3.5) D）Abs(-3.5) 89．以下函数表达式中，其值等于4的是________。

A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(3.5) 90．以下函数表达式中，其值等于3.5的是________。

A）Int(3.5) B）Fix(3.5) C）Round(3.5) D）Abs(3.5)

二、 填空题

1. 整型变量X中存放了一个两位数，要将两位数交换位置，例如13变成31，实现的表达式是___【1】____。 2. 数学表达式 的VB表达式是___【2】____。 3. 数学表达式 的VB表达式是___【3】____。

4. 表示x是5的倍数或9的倍数的逻辑表达式是___【4】____。

5. 已知a=3.5，b=5.0，c=2.5，d=true，则表达式a>=0 AND a+c > b+3 OR NOT d的值是___【5】____。 6. 表达式Ucase(Mid(“abcdefgh”，3，4))的值是___【6】____。

7. 要以××××年××月××日形式显示当前机器内日期的Format函数格式为__【7】____。 8. 计算距中华人民共和国建国60周年有多少天的函数表达式是___【8】____。 9. 计算离你毕业2012年6月30日还有多少个星期的函数表达式是___【9】____。 10. 表示s字符变量是字母(不区分大小写)的逻辑表达式是__【10】____。 11. a$=Lcase(\的返回值是：_【11】___； b$=Ucase(\的返回值是：__【12】__。

12. 与数学表达式 对应的Visual Basic表达式是 【13】 。

13. 若A=20，B=80，C=70，D=30，则表达式A+B>160 Or (B+C>200 And Not D>60)的值是_【14】___。 14. 描述“X是小于100的非负整数”的Visual Basic表达式是【15】 。 15. 产生一在[3，X]区间的随机整数应使用表达式_【16】_。

参考答案：

一、单选题

1 B 2 A 3 D 4 B 5 A 6 D 7 B 8 B 9 D 10 11 12 13 14 15 A C C A C A 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 C C A D A C D B A B D B C B C

31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 C A D A C B B B C D B C B A B 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 C B B A A B B C D C C B D C B 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 B D B C D B D C C B D A D B C 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 A

A B B D B A B A B B C D C D 二、填空题

【1】 【2】 【3】 【4】 【5】 【6】 【7】 【8】 【9】 【10】 【11】 【12】 (X mod 10) * 10 + x\\10 Sqr(x+e(3))/abs(x-y)-log(3*x) (a + B）/(1/(c+5)-c*d/2) x mod 5 OR x mod 9 False CDEF Format(date,“yyyy年mm月dd日”) DateDiff(“d”,#10/1/2009#,now)+1 DateDiff(“w”,now,#6/10/2012#) UCase(s)>=’A’ AND UCase(s)>=’Z’ \\【13】 (Cos^2(a+B）)/(3*x)+5~(Cos(a+B）*Cos(a+B）)/(3*x)+5 【14】 【15】 【16】 False X<100 and X>=0 and X=int(X)或X%<100 And X%0>=0 INT(3+(X-3)*RND）~INT(3+(X-3)*RND(P))

第3部分VB控制结构

一、 单选题

1. 下面的程序运行后，显示的结果是________。 Dim x%

If x Then Print x+1 Else Print x

A） 1 B） 0 C） 显示错误信息 D） 2 2. 语句If x = 1 Then y = 1, 下面说法正确的是______。 A） x = 1 和 y = 1均为赋值语句 B） x = 1 和 y = 1均为关系表达式 C） x = 1 为赋值语句，y = 1 为关系表达式 D） x = 1 为关系表达式，y = 1 为赋值语句 3. 下面分段函数 , 下面不正确的程序段是______。

A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3

C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)

4. 计算函数的值。 , 下面程序段中正确的是______。 A）If x < 0 then y = 0 B）If x >= 2 then y = 3 If x < 1 then y = 1 If x >= 1 then y = 2 If x < 2 then y = 2 If x > 0 then y = 1 If x >=2 then y = 3 If x < 0 then y = 0 C）If x < 0 then D）If x >= 2 then y = 0 y = 3

ElseIf x > 0 then ElseIf x >= 1 then y = 1 y = 2

ElseIf x > 1 then ElseIf x >= 0 then y = 2 y = 1 Else Else y = 3 y = 0 End If End If 5. 下面的程序段，显示的结果是 ______。 Dim x

x= Int(RnD） + 5 Select Case x Case 5

Print “优秀” Case 4

Print “良好” Case 3

Print “及格” Case Else

Print “不及格” End Select

A） 不及格 B） 良好 C） 及格 D） 优秀 6. 下面程序段求两个数中较大数，________不正确。 A） Max = IIF(x > y, x, y)

B） If x > y Then Max = x Else Max = y C） Max = x If y >= x Max = y D） If y >= x Max = y Max = x

7. 下列循环语句能正常结束的是________。 A） i = 5 B） i = 1 Do Do i = i + 1 i = i + 2

Loop Until i < 0 Loop Until i = 10 C） i = 10 D） i = 6 Do Do i = i - 1 i = i - 2

Loop Until i < 0 Loop Until i = 1 8. 下面的程序段的运行结果是 ________。 For i = 3 To 1 Step -1 Print Spc(5-i) For j = 1 To 2 * i-1 Print “$”; Next j Print Next i

A） $ B）$$$$$ C）$$$$$ D）$$$$$ $$$ $$$ $$$ $$$ $$$$$ $ $ $

9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是________ 。 Private Sub Text1_Change() Print Text1.Text； End Sub

A） ABCD B） A C） AABABCABCD D） A B AB C ABC D ABCD

10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值________ 。 A）for i = 1 to 4 B）for i = 1 to 4 n = 1 for j = 1 to i for j = 1 to i n = 1 n = n*j n = n*j

next j next j print n print n next i next i C）n = 1 D）n = 1 for j = 1 to 4 j = 1 n = n*j do while j <= 4 print n n = n*j next j print n j = j+1 loop

11. 下列程序段的执行结果为______。 A=0:B=1

A=A+B:B=B+A:Print A;B A=A+B:B=B+A:Print A;B

A）1 2 B）1 1 C）1 3 D）1 2 3 5 3 5 3 4 3 4 12. 变量未赋值时，数值型变量的值为______。

A）0 B）空串\C）Null D）没任何值 13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20

If n Mod 3<>0 then m=m+n\\3 Next n print n End sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是______。 A）15 B）18 C）21 D）24

14. 窗体中存在命令按钮Command1，其Click事件代码如下： Private Sub Command1_Click() X = 2

Y = 1

If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 End Sub

程序运行后，单击命令按钮，输出结果为______。 A）True B）False C）-1 D）1

15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。 x=IIf((a>B） And (c>D） , 10, 20)

A）10 B）20 C）True D）False 16. 执行以下程序段 a$= \For i = 6 To 2 Step -2 X= Mid(a,i,i) Y= Left(a,i) Z= Right(a,i) Z= UCase(X & Y & Z) Next i Print z

输出结果为______。

A）ABA B）BBABBA C）ABBABA D）AABAAB

17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234

c1=Trim(Str(C）) For i=1 To 4 Print ____ Next End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1

12 123 1234

则在下划线处应填入的内容为______。

A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i) 18. InputBox函数返回值的类型为______。 A）数值 B）字符串

C）变体 D）数值或字符串（视输入的数据而定） 19．MsgBox函数返回值的类型为______。 A）整型数值 B）字符串

C）变体 D）数值或字符串（视输入的数据而定）

20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(\ b=InputBox(\ Text1.Text=b+a End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。 A）108 B）18 C）810 D）出错

21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1

Loop While a<=0 Print s;a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是______。 A）7 9 B）34 0 C）9 7 D）死循环 22. 下面程序段的执行结果为______。 I=4 A=5 Do I=I+1 A=A+3 Loop Until I>=9 Print\Print\

A）I=9 B）I=10 C）I=10 A=20 A=20 A=23 23. 以下能够正确计算n!的程序是______。 A）Private Sub Command1_Click() N = 5 : X = 1 Do x = x * i i = i + 1 Loop While i < n Print x End Sub

B）Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i < n Print x

D）I=9 A=23

End Sub

C）Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i <= n Print x End Sub

D）Private Sub Command1_Click() N = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i > n Print x End Sub

24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是______。 A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出 25. 设有如下程序段 x=2

For i=1 to 10 step 2 x=x+i Next

运行以上程序后，X的值是______。 A）36 B）27 C）38 D）57

26. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1

If i>10 Then Exit For Next

Text1.Text=Str(n) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______。 A）2 B）3 C）4 D）5 27. 下列程序段的执行结果为______。 X=6

For K=1 To 10 Step -2 X=X+K Next K Print K;X

A）-1 6 B）-1 16 C）1 6 D）11 31 28. 执行以下程序段 Dim x As Integer, i As Integer x = 0

For i = 20 To 1 Step -2 x = x + i \\ 5 Next i

后，x的值为______。

A）16 B）17 C）18 D）19

29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i)

If i Mod j=0 Then Exit For Next j

If j>Sqr(i) Then Print i Next i End Sub

该事件过程的功能是______。

A）输出n以内的奇数 B）输出n以内的偶数

C）输出n以内的素数 D）输出n以内能被j整除的数 30. 新建立窗体中画一个命令按钮，其中事件代码如下： For x=4 To 1 Step -1 For y=1 To 5-x Print Tab(y+5);\ Next y Print Next x

窗体运行后，单击命令按钮，输出结果是______。 A）**** B）* C）***** D）* *** ** **** *** ** *** *** ***** * **** **

31. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() For i=1 To 4

x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub

程序运行后，单击命令按钮，输出结果是______。 A）7 B）15 C）157 D）538

32. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。 Private Sub Command1_Click() K=0 For J=1 To 2 For I=1 To 3 K=I+1 Next I For I=1 To 7 K=K+1 Next I Next J Print K End Sub

A）10 B）6 C）11 D）16

33. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：

Private Sub Command1_Click() a=0

For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i

Label1.Caption=Str(A） Label2.Caption=Str(B） End Sub

程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。 A）10和20 B）20和110 C）200和110 D）110和20

34. 有一个分段函数，当X<0时，Y=-1；当X=0时，Y=0；当X>0时，Y=1。该分段函数在程序段中可表达为______。

A）If X<0 Then Y=-1 B）If X>0 Then Y=1 If X=0 Then Y=0 If X=0 Then Y=0 Else Y=1 Else Y=-1 C）If X<0 Then Y=-1 D）If X<0 Then ElseIf X=0 Then Y=0 Y=-1 Else Y=1 ElseIf X=0 Then End If Y=0 Else Y=1 End if 35. 下列语句正确的是______。

A）If X<3*Y , X>Y Then Y=X3 B）If X<3*Y And X>Y Then Y=X3 C）If X<3*Y : X>Y Then Y=X3 D）If X<3*Y And X>Y Then Y=X* *3 36. 下列程序的执行结果为______。 A=75

If A>60 Then I=1

ElseIf A>70 Then I=2

ElseIf A>80 Then I=3

ElseIf A>90 Then I=4 EndIf Print\

A）I=1 B）I=2 C）I=3 D）I=4

37. 设a=\，b=\，c=\，d=\，执行语句x = IIf((a < B） Or (c > D）, \后，x的值为______。 A）\B）\ C）\D）\

38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() for I=1 To 4 For J=0 To I Print Chr$(65+I); Next J Print Next I End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容为是______。 A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD 39. 有如下程序： Private Sub Form_Click() xcase=1

t=InputBox(“请输入一个数：”) Select Case t Case Is>0 Y=xcase+1 Case Is=0 Y=xcase+2 Case Else Y=xcase+3 End Select Print xcase;Y End Sub

若输入-1，输出结果为：

A）1 4 B）1 3 C）1 2 D）1 1

40. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写______语句。 x=Val(InputBox(“请输入 x的值：”)) y=Val(InputBox(“请输入 y的值：”)) s=x : ______________ s=s*s Print s

A）If (xy Then s=y C）If (xy s=y

41. 设X初值为0，则下列循环语句执行后，X的值等于_______。 For i=1 To 10 Step 2 X=X+I Next i

A）25 B）36 C）24 D）27 42. 执行以下程序段时，______。 x=1

Do While x<>0 x=x*x

print x; Loop

A）循环体将执行1次 B）循环体将执行0次 C）循环体将执行无限次 D）系统将提示语法错误

43. 设窗体中包含1个命令按钮Command1,1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_______。 Private Sub Command1_Click() Dim I As Integer,n As Integer I=1: n=0 Do While I<10 n=n+I I=I*(I+1) Loop

Label1=I & ”-” & n End Sub

A）6-3 B）24-9 C）42-9 D）6-9 44. 有如下程序： Do

循环体 Loop While <条件>

则以下叙述中错误的是_______。

A）若“条件”是一个为0 的常数，则一次也不执行循环体 B）“条件”可以是关系表达式、逻辑表达式或常数 C）循环体中可以使用Exit Do语句

D）如果“条件”总是为True，则不停地执行循环体 45. 有如下程序： For i=1 to 3

For j=5 to 1 Step –1 Print i*j Next j

Next i

则语句Print i*j的执行次数是_______。

A）15 B）16 C）17 D）18

46. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i <= 4 Then x = x + 1 Else x = x + 2 End If Next i Print x End Sub

程序运行后，单击命令按钮，其输出结果为_______。 A）9 B）6 C）12 D）15

47. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = \ For n = 1 To 4 Print _________ Next End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD

则在________处应填入的内容为_______。

A）Left(c,n) B）Right(c,n) C）Mid(c,n,1) D）Mid(c,n,n)

48. 如果A为整数，且|A|>=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是______。 A） If Int(A）=A And Sqr(A）>=100 Then Print \B） If Int(A）=A And (A>=100,A<=-100) Then Print \C） If Fix(A）=A And Abs(A）>=100 Then Print \D） If Fix(A）=A And A>=100 And A<=-100 Then Print \

49. 在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() a = InputBox(\请输入日期(1~31)\ t = \旅游景点:\

& IIf(a > 0 And a <= 10, \长城\ & IIf(a > 10 And a <= 20, \故宫\ & IIf(a > 20 And a <= 30, \颐和园\ Text1.Text = t End Sub

程序运行后,如果从键盘输入16,则在文本框中显示的内容是_______。 A）旅游景点：长城故宫 B）旅游景点：长城颐和园 C）旅游景点：颐和园 D）旅游景点：故宫 50. 下列程序段显示______个“*”。 For i=1 to 5 For j=2 to 5 Print ”*” Next j Next i

A）25 B）10 C）20 D）15在

51. 要使下面程序段能正确显示1！、2！、3！、4！的值，第一行横线处应填写______。 ____________ For j=1 to 4 n=n*j

Print n Next j

A）n=0 B）n=1 C）j =1 D）j=0

52．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = \ For I = 9 To 2 Step -3 x = Mid(a, I, I) y = Left(a, I) z = Right(a, I) z = x & y & z Next I Print z End Sub

程序运行后，如果单击命令按钮，则输出结果是______。 A）BACABBKEI B）EKEIABBACKDIEAACKEIEKEI C）DEIEKEIABBACKDIEKEI D）ACKABBKEI

53．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() M1=1 M2=2

Do While M2<>5 M1=M1*M2 M2=M2+1 Loop

Print \End Sub

程序运行后，如果单击命令按钮，输出结果是______。 A）M1= 24 M2= 5 B）M1= 1 M2= 2 C）M1= 24 D）M1= 1

M2= 5 M2= 2 54．阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i

执行上面的三重循环后，a 的值为______ 。

A） 3 B） 9 C） 14 D） 21

55. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Commandl），然后编写如下事件过程： Private Sub Commandl_Click() x=0

Do While x<50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。 A）1和0 B）2和72 C）3和50 D）4168

56. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0

Do While x<20 x=x*3 n=n+1 Loop

Text1.Text=Str(x)

&a, mp;n, bsp; Text2.Text=Str(n) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。 A）15和1 B）27和3 C）195和3 D）600和4 57. 下列语句组中,不能循环100次的有 ______。 A）N=0 DO N=N+1

LOOP UNTIL N>=100 B）N=0 DO N=N+1

LOOP WHILE N<100 C）N=0 DO N=N+1

LOOP UNTIL N<100 D）N=0

DO WHILE N<100 N=N+1 LOOP

58. 假定有如下事件过程： Private Sub Form_Click() Dim x As Integer x=1

n=0

Do While x<28 x=x*3 n=n+1 Loop Print x, n End Sub

程序运行后，单击窗体，输出结果是______。

A）81 4 B）56 3 C）28 1 D）243 5 59. 新建窗体上新建立一个命令按钮，其中有如下事件代码： Private Sub Command1_Click() I = 0

For G = 10 To 19 Step 3 I = I + 1 Next G Print I End Sub

窗体运行后，单击命令按钮，输出结果为______。 A）3 B）4 C）5 D）6

60. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = InputBox(\Select Case x Case 1, 3 Print \分支 1\Case Is > 4 Print \分支 2\Case Else Print \分支\End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。 A）分支 1 B）分支 2 C）Else 分支 D）程序出错 61. 以下Case语句中错误的是______。

A）Case 0 To 10 B）Case Is>10 C）Case Is>10 And Is<50 D）Case 3,5,Is>10

62. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0

n = InputBox(\ For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。 A） 3 B） 4 C） 5 D） 6 63. 下列程序代码，执行后单击鼠标结果为______。 Private Sub Form_Click() A = 0: B = 0

For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next I Print A; B End Sub

A）2 4 B）-2 2 C）4 2 D）2 3 64. Private Sub Form_Click() Dim Check,Counter Check=0 Do

Do While Counter<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop

Loop Until Check=False Print Counter, Check End Sub

程序运行后，单击窗体，输出结果为______。

A）15 0 B）20 -1 C）10 True D）10 False 65. 设有如下程序：

Private Sub Command1_Click() Dim sum As Double,X As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub

该程序通过For循环计算一个表达式的值，这个表达式是______。 A）1+1/2+2/3+3/4+4/5 B）1+1/2+2/3+3/4

C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 66. 有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer Sum=0 For i=2 to 10

If i Mod 2<>0 And i Mod 3=0 Then Sum=Sum+i End If Next i Print Sum End Sub

程序运行后，单击窗体，输出结果为______。 A）12 B）30 C）24 D）18 67. 设有如下程序

Private Sub Command1_Click() Dim c As Integer,d As Integer c=4

d=InputBox(\请输入一个整数\ Do While d>0 If d>c Then c=c+1 End If

d=InputBox(\请输入一个整数\ Loop Print c+d End Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。

A）12 B）11 C）10 D）9

68. 下列程序段的执行结果为______。 N=10

For K=N To 1 Step-1 X=Sqr(K) X=X-2 Next K Print X-2

A）-3 B）-1 C）1 D）1.16227765

69. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2 * i -1

If x Mod 3 = 0 Then s =s + 1 Next i

Label1.Caption = s End Sub

程序运行后，单击命令按钮，则标签中显示的内容是______。 A）1 B）5 C）27 D）45

70. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1

a=InputBox(\请输入a的值\a=Val(A）

b=InputBox(\请输入b的值\b=Val(B）

x=InputBox(\请输入x的值\x=Val(x) a=a+b+x

LOOP Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。 A）2 B）3 C）14 D）15

71．语句：If 表达式 Then??中的表达式不可以是______表达式。 A）算术 B）逻辑 C）关系 D）字符 72．下列语句执行后，变量w的值是______。

W=Choose(weekday(”2009,4,1”), ”Red”, ”Green”, ”Blue”, ”Yellow”) A）Null B）Red C）Blue D）Yellow

73．下面if语句统计满足性别为男、职务为副教授以上、年龄小于40岁条件的人数，不正确的语句是______。 A）if sex=”男” And age<40 And InStr(duty, ”教授”)>0 Then n=n+1

B）if sex=”男” And age<40 And (duty=”教授” Or duty=”副教授”) Then n=n+1 C）if sex=”男” And age<40 And Right(duty, 2)=”教授” Then n=n+1

D）if sex=”男” And age<40 And duty=”教授” And duty=”副教授” Then n=n+1 74. 关于Do?Loop循环结构执行循环体次数的描述正确的是_______。 A）Do While?Loop循环和Do?Loop Until循环至少都执行一次 B）Do While?Loop循环和Do?Loop Until循环可能都不执行

C）Do While?Loop循环至少执行一次，Do?Loop Until循环可能不执行 D）Do While?Loop循环可能不执行，Do?Loop Until循环至少执行一次 75.下面的程序段的运行结果是_______。 Private Sub Command1_Click For i=1 To 5 n=0 For j=i To 5 n=n+1 Next j Next i Print n End Sub

A）1 B）5 C）10 D）15

二、 填空题

1. 下面程序的输出结果是___【1】____ 。 x = Int(RnD） +3 If x^2 > 8 Then y = x^2 + 1 If x^2 = 9 Then y = x^2 - 2 If x^2 < 8 Then y = x^3

2. 下面程序的功能是___【2】____。 Dim n%，m%

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

If IsNumeric(Text1.Text) Then Select Case Text1.Text Mod 2 Case 0

n = n + Text1.Text Case 1

m = m + Text1.Text End Select End If

Text1.Text = \ Text1.SetFocus End If End Sub

3．下面的程序是检查输入的算术表达式中圆括号是否配对。并显示相应的结果。本程序在文本框输入表达式，边输入边统计，以输入回车作为表达式输入结束。 Dim Count1%

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Chr(KeyAscii) = \ 【3】

ElseIf Chr(KeyAscii) = \ Count1 = Count1 - 1 End If

If KeyAscii = 13 Then If Count1 = 0 Then Print \左右括号配对\ ElseIf 【4】 Then Print \左括号多于右括号\个\ Else

Print \右括号多于左括号\个\ End If End If End Sub

4. 要使下列语句执行20次，循环变量的初值应当是___【5】_____。 For k = ________ To -5 Step -2

5. 下面程序段显示 ___【6】____ 个“*” For i = 1 to 5 For j=2 to i Print “*” Next j Next I

6. 下面程序第40句共执行了 ____【7】___ 次。第41句共执行了 ___【8】____ 次。 30 For j = 1 to 12 step 3 40 For k = 6 to 2 step -2 41 Print j，k 42 Next k 42 Next j

7. 下面程序的运行后输出结果是___【9】_____。

本文来源：https://www.bwwdw.com/article/ao8p.html