【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-可视化程序设计（VB）大学考试试题及答案3套 - 其他考试资料的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

2011 年 12 月考试可视化程序设计（VB）第一次作业一、单项选择题（本大题共 90 分，共 30 小题，每小题 3 分）1. Visual Basic 程序中分隔各语句的字符是 A. ’B. :C. D. _2. 工程文件的扩展名是（ ）A. frmB. vbpC. basD. frx3. 下列运算符中，运算级别最高的是（ ）A. B. C. D. Mod4. 下面的程序的输出结果是 Dim A as IntegerDim BB1.234 A2BB2BPrint ABA. 2.468 2.0B. 2.468 2.468C. 2 2.0D. 2 2.4685. 下列变量中，那个是单精度实型？（ ）A. CountB. BoldC. AAD. Aver6. 下列选择项中（ ）不能获得焦点。

    A. 使用 Tab 键B. 用鼠标选择对象C. 设置 GetFocus 的值为 TrueD. 使用 SetFocus 方法7. 设 a2，b3，c4，d5，下列表达式的值是（ ）。

    not altc or 4cb2and bltgtacA. －1B. 1C. trueD. false8. 求 COS35°可以使用的函数是（ ）。

    A. Cos 35B. Cos（35）C. Cos（35）D. Cos（353.14159/180）9. 下列赋值语句中（ ）是错误的。

    A. x＝x＋１B. x＝x＋yC. x＋y＝xD. x＝４＞６10. 通用过程可以通过执行“工具”菜单中的（ ）命令来建立。

    A. 添加过程B. 通用过程C. 添加窗体D. 添加模块11. “X 是小于 100 的非负实数”写成 VB 表达式正确的是（ ）A. X gt 0 AND Xlt100B. X gt0 OR X lt 100C. X gt 0 AND X lt 100D. X gt 0 OR X lt 10012. 要设置计时器的时间间隔可以通过（ ）属性来实现。

    A. ValueB. TextC. MaxD. InterVal13. 以下说法正确的是（ ）A. 通用过程可以出现在窗体模块和标准模块中B. 不同模块中的通用过程可以重名C. 同一标准模块中的通过过程可以同名D. 不同标准模块中的通用过程不能同名14. 下列哪组语句可以将变量 A、B 的值互换（ ）。

    A. AB：BAB. AC：CB：BAC. AAB：BA－B：AA－BD. A（AB）/2：B（AB）/215. 要清除组合框 Combo1 中的所有内容，可以使用（ ）语句。

    A. Combol.ClsB. Combol.ClearC. Combol.DeleteD. Combol.Remove16. 在 Visual Basic 应用程序中（ ）A. 过程的定义可以嵌套，但过程的调用不能嵌套B. 过程的定义不可以嵌套，但过程的调用可以嵌套C. 过程的定义和过程的调用均可以嵌套D. 过程的定义和过程的调用均不能嵌套17. 在 VB 中，称对象的数据为（ ）。

    A. 属性B. 方法C. 事件D. 封装18. Function 过程要由函数名返回一个值。

    如果不使用 As 数据类型选项来指定函数的类型，函数类型默认为（ ）类型。

    A. IntegerB. VariantC. LongD. Siring19. 下列叙述中正确的是 A. 只有窗体才是 Visual Basic 中的对象B. 只有控件才是 Visual Basic 中的对象C. 窗体和控件都是 Visual Basic 中的对象D. 窗体和控件都不是 Visual Basic 中的对象20. 令 A、B、C 都是整型变量，A3，B4，C5，下列表达式结果为 TRUE 的是（ ）A. A B C - 1 gt 0B. C A B B 19C. A - C SqrB B 0D. A 2 B 2 - C 2 lt 021. 下列哪个语句定义了包含 8 个元素的单精度数组（ ）A. Dim a24 As SingleB. Dim a1 to 8C. Dim a7D. Dim a1 to 23 to 6 As Long22. 若有以下说明语句Type employee num As Integer salary As SingleEnd TypeDim programmer As employee则下面表示记录变量 programmer 的成员 Salary 正确的是（ ）。

    A. programmer→salaryB. salaryC. salary.programmerD. programmer.salar23. “一个女青年在散步时被汽车撞了”，其中“青年”、“女”、“散步”、“被汽车撞了”依次是下面的那一项？A. 对象、属性、事件、方法B. 对象、属性、方法、事件C. 属性、对象、方法、事件D. 属性、对象、事件、方法24. 以下语句的输出结果是（ ）。

     print format（32548.5，quot000，000.00quot）A. 2548.5B. 32，548.5C. 032，548.50D. 32548.5025. 下列说法正确的是（ ）A. 时钟控件的 Visable 属性设为 True 时，该控件在程序运行时可见，设为False 时，则不可见。

    B. 如果框架的 Enable 设为 False，则框架内的所有控件都不可用。

    C. 移动框架时，框架内的控件不随之移动。

    D. 在列表框中能够将项目按字母顺序从大到小排列26. 结构化程序设计的三种基本结构是（ ）A. 逻辑结构、选择结构、递归结构B. 逻辑结构、选择结构、循环结构C. 顺序结构、选择结构、循环结构D. 顺序结构、逻辑结构、循环结构27. 执行下列程序段后屏幕上（ ）。

    i10Sum0While igt1SumSumiii-1 WendPrint SumA. 无显示B. 显示 10C. 显示 54D. 显示 5528. 下面子过程说明合法的是（ ）。

    A. Sub f1（ByVal n％（））B. Sub f1（％）As integerC. Function f1％（f1％）D. Function f1（ByVal n％）29. 设 S1、S2 均为字符串变量，S1“Visual Basic”S2“b”，则下面关系表达式中结果为 True 的是（ ）。

    A. len（S2）＞len（S1）B. Chr（66）ampRight（S1，4）“Basic”C. Left（S1，8）＜S2D. Mid（S1，8，1）＞S230. 假定有以下两个过程：Sub S 1 By Val x As Integer By Val y As IntegerDim t As IntegertxxyytEnd SubSub S2x As Integer y As IntegerDim t As IntegertxxyytEnd Sub则以下说法中正确的是 A. 用过程 S1 可以实现交换两个变量的值的操作，S2 不能实现B. 用过程 S2 可以实现交换两个变量的值的操作，S1 不能实现C. 用过程 S1 和 S2 都可以实现交换两个变量的值的操作D. 用过程 S1 和 S2 都不能实现交换两个变量的值的操作二、判断题（本大题共 10 分，共 5 小题，每小题 2 分）1. 赋值符号“”两边的数据类型要求必须一致。

    （ ）2. 将焦点主动设置到指定的控件或窗体上应采用 SetFocus 方法。

    （ ）3. 赋值符号“”左边可以是常量、符号常量、表达式。

    （ ）4. Str（25.6）的结果是“25.6”。

    （ ）5. 如果形参是数组，调用时实参也要求是数组。

    （ ）答案：一、单项选择题（90 分，共 30 题，每小题 3 分）1. B 2. B 3. B 4. D 5. D 6. C 7. D 8. D 9. C 10. A 11. C 12. D 13. D14. C 15. B 16. B 17. A 18. B 19. C 20. C 21. C 22. D 23. B 24. C 25.B 26. C 27. C 28. D 29. B 30. B二、判断题（10 分，共 5 题，每小题 2 分）1. × 2. √ 3. × 4. × 5. √2011 年 12 月考试可视化程序设计（VB）第二次作业一、单项选择题（本大题共 90 分，共 30 小题，每小题 3 分）1. Micrisift Access 数据库文件的扩展名是（ ）。

    A. dbfB. AccC. mdbD. db2. 报表设计器的控件箱中没有（ ）控件。

    A. LabelB. PictureBoxC. ImageD. TextBox3. 下列关于多文档界面（MDI）应用程序，说法错误的是（ ）A. 一个多文档界面应用程序只能包含一个 MDI 窗体B. 一个多文档界面应用程序只能包含一个子窗体C. 子窗体的 MDIChild 属性应设置为 TrueD. 最小化父窗口时，所有子窗口也被最小化4. 下列过程不能包含在标准模块中定义的是（ ）。

    A. 事件过程B. 子过程C. 函数过程D. 公共过程5. 下列赋值语句中（ ）是错误的。

    A. x＝x＋１B. x＝x＋yC. x＋y＝xD. x＝４＞６6. 下列属性中，目录列表框和文件列表框都有的属性为（ ）。

    A. ListB. valueC. PathD. Pattern7. 下列关于菜单访问键和快捷键的说法正确的是（ ）A. 若一菜单项的 Caption 属性为“打开ampO”，则其快捷键是 CtrlOB. 快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为 AltFC. 可以为任意的菜单项都添加快捷键或访问键D. 通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单8. 下面关于随机文件的描述，不正确的是：（ ）A. 每条记录的长度必须相同B. 一个文件中记录号不必惟一C. 可通过编程对文件中的某条记录方便地修改D. 文件的组织结构比顺序文件复杂9. 向一个顺序文件中写数据时，（ ）是从文件末尾添加的方式打开顺序文件。

    A. OutputB. InputC. WriteD. Append10. 下列说法正确的是（ ）A. 如果框架的 Enable 设为 False，则框架内的所有控件都不可用。

    B. 时钟控件的 Visable 属性设为 True 时，该控件在程序运行时可见，设为False 时，则不可见。

    C. 在列表框中能够将项目按字母顺序从大到小排列。

    D. 移动框架时，框架内的控件不随之移动。

    11. 要设置计时器的时间间隔可以通过（ ）属性来实现。

    A. ValueB. TextC. MaxD. InterVal12. 用户可以通过设置菜单项的（ ）属性值为 False 来使该菜单项不可见。

    A. HideB. VisibleC. ChechedD. Enable13. 下列控件中，（ ）不是用于文件操作的控件。

    A. List BoxB. DriveListBoxC. DirListBoxD. FileListBox14. 为了使某变量在所有的窗体中都能直接使用，可以用下列哪种方法声明该变量（ ）A. 在窗口模块的通用声明处，用 Public 关键字声明B. 在窗口模块的通用声明处，用 Global 关键字声明C. 在标准模块的通用声明处，用 Public 关键字声明D. 在标准模块的通用声明处，用 Private 关键字声明15. 在表达式 y InputBox a b c 中，b 为输入函数对话框的（ ）。

    A. 标题B. 提示C. 预设值D. 帮助文件名16. 如果要退出 Do…Loop 循环，可使用语句（ ）。

    A. ExitB. Exit DoC. Exit ForD. Exit For17. 数据控件用于设置指定数据控件所访问的记录来源的属性是（ ）A. RecordSourceB. DataSourceC. DatabaseNameD. RecordSetType18. 在窗体模块的通用声明段中声明变量时，不能使用（ ）关键字。

    A. DimB. PublicC. PrivateD. Static19. 下面关于随机文件的说法正确的是（ ）A. 数据以二进制码存储，访问时以字节为单位定位数据指针每个记录都有唯一的记录号，且每个记录长度相同B. 可以按任意次序读写文件，记录间以“换行”字符分隔C. 可以用 Write 语句方便的进行写操作D. 以上说法都不正确20. 当 BOF 属性为 Ture 时，表示（ ）。

    A. 当前记录位置位于 Recordset 对象的第一条记录B. 当前记录位置位于 Recordset 对象的第一条记录之前C. 当前记录位置位于 Recordset 对象的最后一条记录D. 当前记录位置位于 Recordset 对象的最后一条记录之后21. 在下列关于通用对话框的叙述中，错误的是：（ ）A. CommonDialogl．ShowFont 显示字体对话框。

    B. 在打开或另存为对话框中，用户选择的文件名可以经 FileTitle 属性返回。

    C. 在文件打开或另存为对话框中，用户选择的文件名及其路径可以经FileName 属性返回。

    D. 通用对话框可以用来制作和显示帮助对话框。

    22. 执行下面的程序段后，x 的值为 x5For i 1 To 20 Step 3xxi4Next iA. 19B. 20C. 21D. 2223. 若以读的方式打开顺序文件“d:file1.dat”，则正确的语句是（ ）。

    A. Open “d:file1.dat” For Output As 1B. Open “d:file1.dat” For Input As 1C. Open “d:file1.dat” For Binary As 1D. Open “d:file1.dat” For Random As 124. 以下语句的输出结果是在立即窗口中 a27 ＜CR＞ ＜CR＞为回车b65 ＜CR＞ Print ab ＜CR＞A. 27Δ65B. Δ27Δ65C. Δ27ΔΔ65D. Δ27ΔΔ65Δ25. 改变驱动器列表框的 Drive 属性将引发（ ）事件。

    A. LoadB. ClickC. Pattern changeD. Change26. 以下的属性和方法中（ ）可重定义坐标系。

    A. DrawStyle 属性B. DrawWidth 属性C. Scale 方法D. ScaleMode 属性27. 下面关于过程作用域，错误的描述是（ ）。

    A. 全局级过程的作用域为整个工程B. 在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称C. 在不同模块中定义的模块级过程可以同名D. 在不同模块中定义的工程级过程不能同名28. 如果当前的 List1 中为空（即没有选项），运行下列语句后，List1 中的内容是（ ） Private Sub Command1_ClickDim s As StringFor n 1 To 3s Chr65nList1.AddItem s nNextEnd SubA. AB. BC. CD. D29. 以下正确的语句是：（ ）A. CommonDialogl.FilterAll Files.Pictures（.Bmp）.BmpB. CommonDialogl.Filter” All Files” ” .” ” Pictures（.Bmp）” ” .Bmp”C. CommonDialogl.Filter”All Files.Pictures（.Bmp）.Bmp”D. CommonDialogl.FilterAll Files.Pictures（.Bmp）.Bmp30. 设有函数 r 1 当 x＜0 r2 当 x＞0 则下列能正确计算该函数值的语句是 A. If x＜0 Thenr 1ElseIf x＞0 Thenr2End IfB.If x ＜ 0 Thenr 1ElseIf x ＞ 0 Thenr2Elser 1 End IfC. printIIfx＞012D. r IIfx＜012二、判断题（本大题共 10 分，共 5 小题，每小题 2 分）1. 在 VB 中，“FOR 计数变量＝初值 TO 终值 STEP 步长”语句中的“步长”不能为 0，否则造成死循环。

    （ ）2. 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上。

    （ ）3. 如果定义了子程序 Public Sub Checkab，则 a、b 都是全局变量。

    （ ）4. 当图像框 Image 控件的 Stretch 属性为 True 时，Image 控件能自动调整自己的尺寸与显示的图片匹配。

    （ ）5. 可以在窗体的通用部分声明静态变量。

    （ ）答案：一、单项选择题（90 分，共 30 题，每小题 3 分）1. C 2. B 3. B 4. A 5. C 6. C 7. D 8. B 9. D 10. A 11. D 12. B 13. A14. C 15. A 16. B 17. A 18. D 19. B 20. B 21. D 22. B 23. B 24. D 25.D 26. C 27. D 28. D 29. C 30. A二、判断题（10 分，共 5 题，每小题 2 分）1. √ 2. × 3. × 4. × 5. ×2011 年 12 月考试可视化程序设计（VB）第三次作业一、填空题（本大题共 60 分，共 15 小题，每小题 4 分）1. 要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 ______ ，然后从工具箱中选择 ______ 控件。

    2. 对象的边框类型由 ______ _属性设置。

    3. VB 的每个菜单项都有一个下拉菜单，含有若干个 ______ 命令。

    用鼠标单击某个菜单项就执行相应的菜单命令。

    4. 菜单的热键指使用 ______ 键和菜单项标题中的一个字符来打开菜单。

    建立热键的方法是在菜单标题的某个字符前加上一个 ______ 符号，在菜单中这一字符会自动加上 ______ ，表示该字符是一个热键字符。

    5. 运行时，要使工具栏控件 Toolbarl 中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______ 。

    6. 根据文件内容区分，文件分为 ______ 和 ______ 。

    7. 当使用 Format 函数与 Print 方法一起输出时，格式字符串中的””号表示一个数字位，它的个数决定 ______ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 ______ 显示。

    8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 ______属性设为 False，然后在程序中用 ______ 语句加载。

    9. 如果将工程的启动对象设置成 ______ 子程序，则程序启动时可以不加载任何窗体。

    10. 要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 ______ 。

    11. 要在运行时给状态栏 StatusBar1 的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句： ______ 。

    12. 若 case 子句中的表达式表列具有形式：表达式 1 To 表达式 2，则它的含义是：当测试表达式的值等于 ______ 时，执行该 case 子句相应的程序块。

    13. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式是 ______ 。

    14. 程序运行过程中，在立即窗口显示变量 f 的语句是 ______ 。

    15. 设Form1.Scaleleft-250，Form1.Scalertop300，Form1.Scalewidth350，Form1.Scaleheight500，则 Form1 的右下角坐标为 ______ 。

    二、程序阅读题（本大题共 40 分，共 10 小题，每小题 4 分）1. 若窗体 Form1 上添加了通用对话框 CommonDialog1，下面程序的功能是什么？Dim filename As StringDim str As StringCommonDialog1.Filter quot文本文件.TXT.txtquot CommonDialog1.Action 1 filename CommonDialog1.filename CommonDialog1.ShowColorForm1.ForeColor CommonDialog1.ColorOpen filenameFor Input As 1Do While Not EOF1str str Input1 1LoopForm1.Print strClose ＃12. Private Sub Form_Clicknum 0Donum num 3Print numLoop Until numMod 4 0End Sub 程序运行后，单击窗体，输出结果是_____________3. 写出下面事件过程的执行结果。

     Private Sub Command1_ClickDim f10 As Integerf01f11For i2 To 10fifi - 2fi - 1Next iFor i0 To 9If i Mod 40 ThenPrintPrint fiNext iEnd Sub4. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。

    标准模块：Type txr num As Integer name As String 10 tel As String 8 addr As String 20End Type窗体模块：Private Sub Command1_ClickDim n zgr As txrOpen quotd:txrf1.datquot For Random As 1Len Lenzgrzgr.num InputBoxquot输入新职工编号：quotzgr.name InputBoxquot输入新职工tel InputBoxquot输入新职工电话号码：quotzgr.addr InputBoxquot输入新职工住址：quotn 12Close 1End Sub5. 写出下面的程序运行后，连续单击 4 次窗体，在 Form1 上的执行结果。

    Private Sub Form_Click（ ）Static a As IntegerDim b As Integerbab1aabForm1.Print “a”a “b”b End Sub6. 有如下事件过程，写出程序的功能（数学表达式）。

    Private Sub Command1_ClickT0M1Sum 0DoTTMSum SumTMM2Loop While Mlt39Print“Sum ”；SumEnd Sub7. 编写如下代码： dim flag as Boolean private sub form_mousedown（button as integer，shift as integer，xas single，y as single）flagtrueend subprivate sub form_mousemove（button as integer，shift as integer，x assingle，y as single）flagfalseend subprivate sub form_mouseup（button as integer，shift as integer，x assingle，y as single）if flagfalse thenprint quotDDDDquotend ifend sub程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为__________。

    8. 下面事件过程的功能是从键盘上输入若干个数据存放到一维数组 a 中，并求出这组数据的平均值，在横线上填上适当内容。

     Private Sub Command1_ClickDim n i（１）nInputBoxquot请输入数据个数：quot（２）For i1 To naiInputBoxquot请输入第quot amp Stri amp quot个数据：quotNext iFor i1 To nSumSumaiNext iPrint quot平均值：quot Sum / nEnd Sub9. 下面程序的作用是什么？Private Sub Command1_ClickDim aa Array1 2 3 4 5 6 7 8 9For n 0 To 8Print anNextPrintCall s1aFor n 0 To 8Print anNextEnd SubPrivate Sub s1ByRef xs UBoundxFor n 0 To s / 2temp xnxn xs - nxs - n tempNext End Sub10. 使用情况语句改写下列事件过程。

    Private Sub Command1_ClickDim score gradescoreInputBoxquot请输入一个学生的分数：quotIf scoregt90 ThenGrade”A”ElseIf scoregt80 ThenGrade”B”ElseIf scoregt70 ThenGrade”C”ElseIf scoregt60 ThenGrade”D”ElseGrade”E”End IfPrint quot该学生的分数等级为：quot gradeEnd Sub答案：一、填空题（60 分，共 15 题，每小题 4 分）1.参考答案：Microsoft Windows Common Controls 6.0 、 StatusBar解题方案：评分标准：22.参考答案：BorderStyle解题方案：评分标准：23.参考答案：菜单解题方案：评分标准：24.参考答案：Alt、amp、下划线解题方案：评分标准：25.参考答案：Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False解题方案：评分标准：26.参考答案：程序文件、数据文件解题方案：评分标准：27.参考答案：显示数据、原样解题方案：评分标准：28.参考答案：Visible，Load解题方案：评分标准：29.参考答案：Main解题方案：评分标准：210.参考答案：Mid“Visual Basic 6.0”85解题方案：评分标准：211.参考答案：StatusBar1．Panels（2）．Picture＝LoadPicture（”C：＼Windows＼Winupd．ico”）解题方案：评分标准：212.参考答案：这个范围内的值解题方案：评分标准：213.参考答案：x mod 50 OR x mod 90解题方案：评分标准：214.参考答案：Debug.Print f解题方案：评分标准：215.参考答案：100800解题方案：评分标准：2二、程序阅读题（40 分，共 10 题，每小题 4 分）1.参考答案：以选择的颜色作为窗体前景色，将一个文本文件显示在 Form1 窗体上解题方案：使用通用对话框改颜色评分标准：62.参考答案：3 6 9 12解题方案：理解循环过程评分标准：63.参考答案：1 1 2 3 5 8 13 21 34 55解题方案：循环输出评分标准：64.参考答案：1 LOF1 / Lenzgr 1 2 Put 1 n zgr解题方案：标准模块和窗体模块应用评分标准：65.参考答案：执行结果为： a1 b1 a3 b2 a7 b4 a15 b8解题方案：静态变量的特性评分标准：66.参考答案：程序的功能：程序用于计算数学表达等式为：1＋22＋32＋42＋…＋2022870解题方案：循环计算评分标准：67.参考答案：移动鼠标并松开鼠标左键。

    解题方案：理解鼠标事件的动作原理评分标准：68.参考答案：（1）Dim a As Integer （2）ReDim an.