下载文档原格式
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
第一章 VB程序设计初步1．1 Visual Basic的发展Visual Basic（以下简称VB）是Microsoft公司于1991年推出Windows应用程序开发工具。
Visual一词具有“可视化的”、“形象化的”的含义，在语言功能方面，VB与早期的Basic语言基本兼容，但由于VB具有良好的图形用户界面（Graphic User interface，即GUI），因此有人称它为可视化的Basic语言。
和Basic语言相比，VB提供的一系列可视化设计工具，大大简化了应用程序界面的设计工作，不仅易学易用，同时其编程系统采用了面向对象、事件驱动机制，非专业人员也可以使用该语言工具方便地完成基于Windows的应用程序开发，因而一经推出，便获得了巨大成功。
从1991年至1997年，微软相继推出了VB1.0，VB2.0,VB3.0，VB4.0及VB5.0版，1998年发布的Microsoft Visual Studio 98中包含了VB6.0，2000年又推出了。
VB 5.0以前的版本主要用于16位应用程序开发，VB6.0则专为32位操作系统设计。
本书主要介绍VB6.0。
VB6.0包括三种版本，分别为学习版、专业版和企业版。
三种版本适于不同层次的用户。
（１）学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。
适合初学者用来学习开发Windows应用程序。
（２）专业版为专业编程者提供了一整套功能完备的开发工具，包括了学习版中的全部功能，同时加入了ActiveX 控件、Internet控件和报表控件等。
（３）企业版该版本包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。
如无特别说明，本书中内容均基于VB６.０企业版作介绍，所有程序在VB６.０企业版下运行通过，大多数程序可以在专业版和学习版中运行。
VB循环结构程序设计1. 循环结构概述在VB程序设计中，循环结构用于重复执行一段代码块，以实现对特定任务的重复操作。
循环结构可以帮助提高程序的效率和灵活性，在处理一些需要重复操作的情况下非常有用。
2. VB中的循环结构2.1 DoLoop循环DoLoop循环是VB中最基本的循环结构，它可以根据指定的条件重复执行一段代码块，直到满足退出条件为止。
2.1.1 Do While循环Do While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbDo While condition' 循环体代码Loop2.1.2 Do Until循环Do Until循环与Do While循环相反，它适用于在循环开始之前并不知道循环条件的情况。
在每次循环开始前，会先判断循环条件是否为假，如果为假，则执行循环体中的代码块，然后判断循环条件，直到循环条件为真时退出循环。
vbDo Until condition' 循环体代码Loop2.2 For循环For循环是一种比较常用的循环结构，适用于循环次数已知的情况。
它通过指定循环变量的初始值、终止值和步长来控制循环的次数。
vbFor counter = start To end [Step step]' 循环体代码Next [counter]2.3 While循环While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbWhile condition' 循环体代码Wend3. 循环结构应用实例以下是一个简单的应用实例，演示了如何使用循环结构来实现对一组数字进行求和的功能。
vbDim sum As IntegerDim num As IntegerDo While num <> 0Console.Write(\。
中职学校VB教案教案标题：VB程序设计教学教学目标：1.了解VB程序设计的基本概念和原理；2.掌握VB程序设计的基本语法和常用控件的使用方法；3.能够独立完成小型VB程序的设计和开发。
教学重点：1.VB程序设计的基本语法；2.常用控件的使用方法；3.小型VB程序的设计和开发能力。
教学难点：1.VB程序设计的高级语法和技巧；2.复杂控件和数据处理的应用。
教学准备：1.VB开发环境；2.笔记本电脑或计算机教室；3.教材和教辅资料；4.实例程序和案例分析。
教学过程：一、引入（10分钟）1.教师向学生介绍VB程序设计的基本概念和应用领域；2.给学生展示一些常见的VB程序，让学生了解VB程序的实际应用；3.介绍本课的教学目标和重点。
二、讲授基础知识（40分钟）1.介绍VB程序设计的基本语法和编程规范；3.通过实例演示，教授VB程序设计的基本流程和调试技巧；4.引导学生使用VB开发环境，亲自操作常用控件，编写简单的程序。
三、案例分析（30分钟）1.分析一个小型的VB程序案例，讲解其设计思路和实现过程；2.带领学生逐步完成案例中的代码实现，让学生参与其中；3.引导学生思考，讨论案例中涉及到的问题和解决方法。
四、实践操作（40分钟）1.学生在教师的指导下，选择一个具体的VB程序设计项目；2.学生自主进行设计和开发，并在教师的帮助下实现功能；3.鼓励学生进行创新，提供必要的指导和帮助。
五、总结回顾（10分钟）1.教师对本节课的教学内容进行总结和回顾；2.学生针对本节课的学习进行评价和反馈；3.鼓励学生继续深入学习VB程序设计知识，自主拓展能力。
教学延伸：1.鼓励学生自主学习VB程序设计的高级语法和技巧；2.提供更复杂的VB程序案例和实例，让学生进行分析和实践；3.组织学生参加VB程序设计的竞赛或项目实践，提高实际应用能力。
以上是一个关于中职学校VB教案的大致框架，根据具体的教学班级和学生情况，可以适当调整和修改教学内容和时间分配。
vb语言程序设计
VB语言（Visual Basic）是一种基于事件驱动式的编程语言，可用
于快速开发GUI应用程序。
它是由微软公司开发的，最初被设计用于Windows操作系统。
VB语言与其他编程语言不同，因为它是一种视觉化编
程语言。
也就是说，程序员可以在屏幕上使用鼠标拖放控件、设置属性等等，而无需手动编写代码。
VB语言也是.NET Framework语言家族中的一员。
以下是编写VB语言的一些基本步骤：
1. 在Visual Studio中打开新的VB窗体应用程序项目。
2.在窗体设计器中选择所需的控件并设置其属性和事件。
3.在代码编辑器中编写程序逻辑，处理控件事件和操作。
4.调试和测试程序，查看并解决任何错误或问题。
5.编译生成可执行文件或程序集，发布和部署应用程序。
VB语言程序设计可以应用于众多领域，例如Windows桌面应用程序、Web应用程序、数据库管理、游戏开发等等。
使用VB语言可以显著提高
开发效率，减少代码量和学习成本，并且拥有大量的支持和资源库。
VB选择结构程序设计教案实例讲解选择结构程序设计教案实例讲解VB作为一种流行的编程语言,在软件开发中被广泛应用。
选择结构作为程序设计的重要内容之一,在VB中也有着重要的应用。
本文将介绍一份VB选择结构程序设计教案,并结合实例进行讲解。
一、教案准备1.教学目的：通过本课程的学习和练习，学生能够了解VB选择结构程序设计的基本原理和步骤；掌握VB选择结构程序设计所需的关键语句和常用函数；并能够灵活运用选择结构程序设计方法解决实际问题。
2.教材参考：《Visual Basic 6.0程序设计》3.教学方法：理论授课、实践练习、案例分析。
4.教学时间：2学时。
二、教案内容1.VB选择结构程序设计的基本概念VB选择结构程序设计是指根据特定条件的真假来选择性地执行不同的程序语句，以达到特定的目的。
选择结构程序设计主要有“单向选择结构”和“双向选择结构”两种。
2.VB选择结构程序设计的步骤(1) 定义变量和输入数据在选择结构程序设计中，需要定义变量来存储要进行比较的数据，以及用来储存比较结果的布尔型变量，同时要求用户输入数据。
(2) 判断条件并给出选项根据比较结果的真假给出不同的选项，可以使用“if then else”语句。
(3) 输出结果将最后结果输出，即可完成整个程序。
3.VB选择结构程序设计所需关键语句和常用函数(1) If Then Else语句If条件语句用于根据条件的真假进行选择性地执行某部分程序。
语法为：If condition Then'如果条件为真执行这里的语句else'如果条件为假执行这里的语句End If(2) And和Or运算符And运算符和Or运算符用于多个条件的判断。
And表示条件“与”的关系，Or表示条件“或”的关系。
(3) Select Case语句Select Case语句用于多个选项的情况。
语法为：Select Case expressionCase value1'执行这里的语句Case value2'执行这里的语句Case Else'执行这里的语句End Select4.实例讲解：下面通过实例来介绍VB选择结构程序设计的具体实现。
《VB程序设计》教案一、教学目标1、知识与技能目标了解 VB 程序设计的基本概念和特点。
掌握 VB 集成开发环境的使用方法。
学会使用 VB 编写简单的程序，如顺序结构、选择结构和循环结构的程序。
2、过程与方法目标通过实际操作和案例分析，培养学生的逻辑思维能力和问题解决能力。
引导学生自主探究和合作学习，提高学生的学习积极性和主动性。
3、情感态度与价值观目标激发学生对程序设计的兴趣，培养学生的创新意识和实践精神。
培养学生严谨的科学态度和团队合作精神。
二、教学重难点1、教学重点VB 编程环境的熟悉和基本操作。
三种基本程序结构（顺序结构、选择结构、循环结构）的理解和应用。
2、教学难点选择结构和循环结构中条件的判断和控制。
程序的调试和错误处理。
三、教学方法1、讲授法讲解 VB 程序设计的基本概念、语法规则和编程方法。
2、演示法通过演示实际的程序案例，让学生直观地了解程序的运行过程和效果。
3、实践法安排学生进行实际的编程练习，巩固所学知识和技能。
4、小组合作法组织学生进行小组合作学习，共同完成复杂的编程任务，培养团队合作精神。
四、教学过程1、导入（5 分钟）通过展示一些有趣的 VB 程序实例，如简单的游戏、实用的小工具等，激发学生的学习兴趣，引出本节课的主题——VB 程序设计。
2、知识讲解（20 分钟）介绍 VB 程序设计的基本概念，包括对象、属性、事件、方法等。
讲解 VB 集成开发环境的组成和使用方法，如菜单栏、工具栏、工具箱、窗体设计器、代码编辑器等。
详细讲解顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）的语法规则和使用方法，并通过示例代码进行演示。
3、实践操作（20 分钟）布置简单的编程任务，让学生在 VB 环境中进行实践操作，如编写一个计算两个数之和的程序、判断一个数是否为奇数的程序、打印九九乘法表的程序等。
巡视学生的操作情况，及时给予指导和帮助。
vb程序设计及应用
VB（Visual Basic）是一种常见的编程语言，常用于Windows系统的
程序设计。
以下是VB程序设计及应用的一些常见主题：
1. 数据库应用：VB可以连接数据库，实现数据的存储和管理。
常见
的数据库包括Access、SQL Server、MySQL等。
2.界面设计：VB提供了丰富的工具和控件，可以设计美观、实用的
界面。
这样的界面通常包括按钮、标签、文本框、列表等控件。
3.文件操作：VB可以处理各种文件，包括文本文件、图像文件、音
频文件等。
通过编写VB程序，可以实现对这些文件的读取、写入、修改
等操作。
4. 系统调用：VB可以与Windows操作系统进行交互，实现对系统资
源的使用和管理。
比如可以通过VB程序打开某个程序，调整系统设置等。
5.网络编程：VB可以用于编写客户端和服务器端程序，实现网络通信。
常见的应用包括聊天室、在线游戏等。
以上是VB程序设计及应用的一些常见主题，还有很多其他的应用领域。
有兴趣学习VB的读者可以从这些方面入手，逐步掌握这门语言。
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。
通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。
通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验，我收获了很多。
首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。
其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。
最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。
在实验过程中，我遇到了一些问题和挑战。
例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。
合用标准文案1、编写程序，将26 个字母逆序输出。
教材 p87 【例 4-15】2、编写程序，在窗体上随机输出一个10--99 之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序，从键盘输入 3 个数，按从小到大的序次输出到窗体上。
Private Sub Form_Click()clsa = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a > b Thent = a: a = b: b = tEnd IfIf a > c Thent = a: a = c: c = tEnd IfIf b > c Thent = b: b = c: c = tEnd IfPrint " 按从小到大排序后的结果 :"; a; " 、"; b; " 、"; c End Sub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
Private Sub Command1_Click()优秀文档Static i As Integeri = i + 1Select Case iCase 1Form1.Caption = "今天是星期一"Case 2Form1.Caption = "今天是星期二"Case 3Form1.Caption = "今天是星期三"Case 4Form1.Caption = "今天是星期四"Case 5Form1.Caption = "今天是星期五"Case 6Form1.Caption = "今天是星期六"Case 7Form1.Caption = "今天是星期日"i = 0End SelectEnd Sub5、编写程序，将字符串"" 山高人为峰 "" 按逆序 "" 峰为人顶峰 "" 输出。
VB程序设计知识点VB程序设计知识点1. VB简介Visual Basic（VB）是一种由微软公司开发的基于对象的程序设计语言。
它是一种易于学习和使用的语言，常用于Windows操作系统上的应用程序开发。
VB可以轻松创建GUI（图形用户界面）应用程序，并具有强大的集成开发环境（IDE）。
2. VB语法基础2.1 变量和数据类型在VB中，可以声明和使用不同类型的变量，如整数（Integer）、字符串（String）、布尔值（Boolean）等。
变量可以存储和操作数据。
2.2 运算符和表达式VB支持常见的算术运算符（如加号、减号、乘号、除号等），逻辑运算符（如与、或、非等），以及比较运算符（如等于、大于、小于等）。
表达式由运算符和操作数组成。
2.3 控制流语句控制流语句用于控制程序的执行流程。
VB支持条件语句（如If-Then、If-Then-Else）、循环语句（如For、While）等。
2.4 函数和子程序函数和子程序是VB中的重要概念。
函数是一段代码块，接受输入参数，并返回一个值；而子程序是一段代码块，用于执行特定的操作。
函数和子程序可以在程序中被调用和重复使用。
3. VB高级特性3.1 类和对象VB是一种面向对象的语言，支持类和对象的概念。
类是一个抽象的数据类型，包含属性（变量）和方法（操作）。
对象是类的实例，可以通过类来创建和使用。
3.2 文件操作VB提供了许多用于文件读写的函数和对象。
可以使用这些功能来创建、打开、读取和写入文件。
3.3 错误处理在程序开发中，可能会出现各种错误。
VB提供了一套错误处理机制，可以捕获和处理运行时错误。
可以使用Try-Catch语句来捕获和处理异常。
3.4 数据库访问VB可以与数据库进行交互，从而实现数据的读取、插入、更新、删除等操作。
可以使用（ActiveX Data Objects）来连接和操作数据库。
4. VB应用开发4.1 窗体设计VB提供了丰富的GUI控件，可以用于创建各种窗体应用程序。
《VB程序设计》试卷二一、选择题（每小题1分，共10分）1、改变控件在窗体中的上下位置，应修改控件的__（1）_____属性A .Top B. Left C.Width D. Right2、将通用对话框类型，设置为字体对话框，可修改该控件的____（2）_____属性A. fontB. filenameC. filterD. action3、标签控件最重要的属性是__（3）______A. captionB. textC. nameD. width4、文本框中选定的内容，由下列____（4）_____属性反映。
A. TextB.CaptionC. SeltextD. sellenght5、选中复选框控件时，value属性的值，可以是_ （5）______A.trueB. falseC. 0D.16、设置列表框选中的文本用____（6）____属性A. selectedB. captionC. textD. list7、简单组合框的style值为____（7）_____A .0 B. 1 C. 2 D. 38、在文件列表框的实现文件的多重选择，应修改该控件的___（8）______属性A. filenameB. pattemC. pathD. multiselect9、语句listl.removeitem 1 将删除list.listindext等于___（9）______的项目。
A. 0B. 2C. 3D. 110、计时器的interval属性伪时，表示____（10）_____。
A. 计时器失效 C. 相隔0 毫秒B. 相隔0秒 D. 计时器的enable属性为false二、判断题：（每小题1 分，共10 分）1、全局变量用global或public关键字声明，且仅在通用声明处可以定义。
（11）2、如果某子程序add用public static sub add（）定义，则该子程序的变量都是局部变量。
（12）3、*.bmp格式的图片，如果在autosize设为False的图片框，它会以图片框大小完整显示出来。
（13）4、已知窗体的fillcolor=rgb（255，0，0）红，forecolor=rgb（0，255，0）绿，fillstyle=0（solid）语句circle（200，100），500，，，，2的输出结果是红边绿心的长椭圆。
（14）5、move方法的一般形式是：对象名.move A，B[，C，D]，其中A指Left，C 指width。
（15）6、清除list1列表框对象的内容的语句是list1.cls。
（16）7、清除combo1对象的内容是combo1.clear。
（17）8、对象的可见性用enabled属性设置，可用性用visible属性设置。
（18）9、若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。
（19）10、滚动条控件不可作为用户输入数据的一种方法。
（20）1．F 2. F 3. F 4. F 5. F 6. F 7. T 8. F 9. T 10. F三、填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：___________2.大于X 的最小整数的VB 表示形式为____（22）____。
3.设X$ =“abc123456”则“a”+str$(val(right(X$,4)))的值是____ （23）____________4.数学表达式对应的VB表达式为：_______（24）____________5.拖动滚动条中的滚动框将会产生_______（25）____________、___（26）______________6.请写出清除以下对象内容的语句：文本框____（27）_______,窗体___（28）_________,列表框__（29）_______,组合框___（30）_______四、程序阅读（假如所有的变量类型都已定义）（每小题6分，共18分）1、程序1FOR J=10 TO 5 step –2K=J+1If K<6 then exit forNEXT JPRINT K；J输出的结果______（31）____________2、程序2A=1：I=0SELECT CASE A*2CASE 1A=A+1CASE 2A=A+2CASE ELSEA=A+3END SELECTA的值为______（32）__________3、程序3（注：a为整型变量）open “abc.bat” for output as #1n=8for I=1 to nprint #1,I+1next Iclose #1open “abc.bat” for input as #1for I=1 to ninput #1,aif I mod 5=0 then print a+1next Iclose #1输出结果：____（33）________________五、程序填空（每题2分，共18分）1、统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。
Private Sub Command5_Click()Dim s As String, C As StringDim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer,Other As integerOpen “c:\text.txt”For___（34）__________As #1Do Unit_____（35）________Line Input #1,sL=_______（36）__________For I=l To LC=_____（37）___________If________（38）______________ThenCharacter=character+1Elself_________（39）___________ThenSpac=spac+1Elself________（30）____________Thendigit=digit+1Elseother=other+1End IfNext ILoopClose #1Print “字符个数为：”；character；“数字个数为：”；digitPrint “空格个数为：”；spac；“其它个数为：”；otherEnd Sub2、以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行比较，如有相同，则将相同表项删除，其他项，则不动。
Private Sub command1_click（）Dim a As String , I As IntegerA$=Trim(Combo1.Text)If a<>””Then_____（41）__________If Combo1.List(i)=a Then ____（42）__________Next IEnd IfCombo1.SetFocusEnd Sub六、综合编程（每题10分，共20分）1、用自定义函数的方法求sum（x），求当-1≤x≤1时，sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!,当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数据错误。
X、N都是由用户输入。
2、已知有100个正数，自小到大，存于数组A中（A（1）——A（100））编制程序，输入正数X，检查它是否存在于A中，若存在，显示对应下标，若不存在，则请将X插入到A中，且不影响A中数组序列。
提示，程序开头可以是：Private Sub Command1_Click()Dim x As Ingeger ,I As Integer,nn As Integer,a(101) As Integer ,j As IntegerNn=100I=1While (I<=nn)A(i)=Val(InputBox(“input number”&”必须大于”& Str(a(I-1)))If a(i)>=a(I-1) ThenI=I+1ElseMsgBox(“请重新输入”& Str(a(i)) & Chr(13) & “必须大于”& Str(a(I-1))))End IfWendFor I=1 To nnPrint a ( I ),If I Mod 4 =0 Then PrintNext IPrint……End sub正确程序是：参考答案：一、判断题：1．F 2. F 3. F 4. F 5. F6. F7. T8. F9. T 10. F二、选择题：11. A 12. D 13. A 14. C 15. D16. D 17. B 18. D 19. D 20. A三．填空题：21．Public mystring as string*15 22．Int(x)+1 23．a345624．（2*sin(3.14159/2)+2*a*exp(b)）/sqr(a*c) 25．Scroll 26．Change 27．Text1.text=””28. Form1.Cls 29. List1.Clear 30. combol1.Clear四、程序阅读题：31．7 4 32． 3 33．7五、程序填空题：34．Input 35．EOF(1) 36．Len(s)37．Mid(s, I , 1) 38．c>=”a”and c<=”z”Or c>=”A”and c<=”Z”39．c=”“40．c>=”0”and c<=”9”41．for I=0 to Combo1.ListCount-1 42．Combo1.RemoveItem i六．综合编程题：1．程序1：Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit SubEnd Ifs = sum(x, n)Print sEnd SubFunction sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1sum = 0If x > 1 Or x < -1 Thensum = 0ElseFor i = 2 To n + 1ss = ss * isum = sum + x ^ (i - 1) / ssNext iEnd IfEnd Function程序2：Private Sub Command1_Click()Dim x As Integer, I As Integer, nn As Integer, a(101) As Integer, j As Integernn = 100I = 1While (I <= nn)a(I) = Val(InputBox("input number" & "必须大于" & Str(a(I - 1))))If a(I) >= a(I - 1) ThenI = I + 1ElseMsgBox ("请重新输入" & Str(a(I)) & Chr(13) & "必须大于" & Str(a(I - 1))) End IfWendFor I = 1 To nnPrint a(I),If I Mod 4 = 0 Then PrintNext IPrintx = Val(InputBox("Input a Data to Check :"))If x < a(1) ThenFor I = nn + 1 To 2 Step -1a(I) = a(I - 1)Next Ia(1) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintElseIf x > a(nn) Thena(nn + 1) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintElseFor I = 1 To nnIf x = a(I) ThenPrint "已经存在，序号是："; IExit SubElseIf x > a(I) And x < a(I + 1) Thenj = I + 1Exit ForEnd IfEnd IfNext IFor I = nn + 1 To j + 1 Step -1a(I) = a(I - 1)Next Ia(j) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintEnd IfEnd Sub《VB程序设计》试卷三一、选择题（每小题1分，共10分）1．以下的vb 常量中非法的是(1)a. “Good Luck”b. PIc. 1.5E-03d. 16.34122. 骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(2 )a. int(rnd*6+1)b. int(rnd*6)c. int(rnd*7)d. int(rnd(6)+1)3. 要想返回文本框中输入的内容则可利用其( 3 )属性进行编程a.captionb. textd. righttoleft4. 下列不能用commondialog 控件调用的对话框是( 4 )a. open/saveb. helpc. fontd. search5. 要使得窗体一开始运行就充满整个屏幕则须设置( 5 ) 属性a. borderstyleb. appearancec. windowstated. drawmode6. vb 应用程序是分层管理的,其最高的层次为( 6 )a. 工程b. 模块c. 窗体d. 过程7. vb 中的坐标圆点位于( 7 )a. 容器右上角b. 容器左上角c. 容器正中央d. 容器右下角8. 如果从数据文件INPUT.DA T 中读取数据时, 以下打开文件方式中,正确的是( 8 )a. OPEN INPUT.DAT FOR INPUT AS #1b. OPEN INPUT.DAT FOR OUTPUT AS #1c. OPEN “INPUT.DA T” FOR INPUT AS #1d. OPEN “I”, #1 INPUT.DAT9. vb 程序设计中的窗体在oop 中称为( 9 )a. 屏幕b. 事件c. 对象d. 控件10. 以下各表达式中, 计算结果为0的是(10 )a. INT(12.4)+INT(-12.6)b. CINT(12.4)+CINT(-12.6)c. FIX(13.6)+FIX(-12.6)d. FIX(12.4)+FIX(-12.6)二、判断题（每小题1分，共10分）1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。
