VB考试系统模拟试题及笔试题.docx

1、VB考试系统模拟试题及笔试题软件技术基础（Visual Basic 程序设计）实验指导书院系：_班级：_学号：_姓名：_燕山大学计算机教学实验中心2005年3月说 明目前，面向对象程序设计语言VB已成为我校信息基础教学的主要内容。本实验手册包含三方面内容：实验指导、实验报告和实验作业，成为我校VB课程上机实验指导的主要依据。实验报告部分由课内实验完成，实验作业部分由学生课下完成。本手册由燕山大学计算机基础教研室娄凤伟老师执笔，李阳明老师审核。由于编写仓促，难免有错误和不足之处，请各位老师和同学指正。 实验一 VB集成环境及简单应用程序的建立 .4实验二 Visual Basic语言基础.9实验

2、三 顺序结构程序设计.12实验四 选择结构程序设计14实验五 循环结构程序设计17实验六 数组的使用.19实验七 过程.21实验八 函数 .23实验九 文件的基本操作 .24实验十 VB的窗体 . 27实验十一 VB的常用控件（一）.29实验十二 VB的常用控件（二）.31附录 考试系统模拟试题及笔试题 33实验一 VB集成环境及简单应用程序的建立一、实验目的(1)掌握VB60的启动与退出。(2)了解VB60的集成开发环境，熟悉各主要窗口的作用。(3)了解VB60应用程序的开发过程。(4)理解VB中对象的概念。(5)掌握在VB60中使用帮助的方法。二、相关知识1VisualBasic60的启动

3、与退出 VisualBasic60的启动与退出与一般的Windows应用程序的启动与退出一样，可以通过“开始”菜单启动VisualBasic60，也可以将VisualBasic60程序以快捷方式放在桌面上，然后双击该图标将其启动；退出可以在“文件”中选择“退出”、或双击窗口控制菜单图标、或单击窗口关闭按钮。2VisualBasic60的集成开发环境 VB60的集成开发环境在一个公共环境中集成了设计、编辑、编译和调试等许多不同的功能，它由菜单、工具栏、工具箱、浏览器及完成各种特定功能的窗口组成。3VB应用程序的开发过程 VB采用的是一种“可视化”的编程方法，可以先设计应用程序的外观，然后再编写不

4、同部件的程序代码。4VB中对象的概念 对象是基本的运行时的实体，它既包括了数据(对象属性)，也包括作用于对象的操作(方法)和对象的响应(事件)。对象的属性用来表示对象的状态，对象的方法决定了对象可以进行的操作。不同的对象具有不同的属性和方法，VB中最主要的两种对象是窗体和控件，程序设计中，基本的设计机制就是改变对象的属性、使用对象的方法和为对象编写事件过程。5VB60的帮助功能VB60是VisualStudi060的套件之一，VB60本身并不带帮助，微软公司为VisualStudio60提供了一套MSDN Library帮助系统。MSDN(Microsoft Developer Network

5、)是使用Microsoft开发工具或是以Windows或Internet为开发平台的开发人员的基本参考，它是一本集程序设计指南、用户使用手册以及库函数于一体的电子词典，使用MSDN Library的帮助功能，不仅可以引导初学者入门，还可帮助各种层次的用户完成应用程序的设计。三、实验举例(实例1) VB的启动与退出。(1)启动VB60通过“开始”菜单启动VisualBasic60，操作步骤为：1单击Windows桌面任务栏的“开始”按钮，弹出“开始”菜单，将鼠标指针指向“程序”选项，在“程序”项的级联菜单中选中“MicrosoftVisualBasic60中文版”，然后在其打开的下级级联菜单中将

6、光标条定位在“MicrosoftVisualBasic60中文版”命令上。2单击鼠标左键，屏幕出现如图1-1所示的VisualBasic60启动画面。 要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项(默认)，然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境。(2)退出VB 在图1-2所示的VisualBasic 60应用程序集成开发环境窗口中，从“文件”菜单中选择“退出”命令、或双击窗口控制菜单图标、或单击窗口关闭按钮均可退出VisualBasic 60。在退出时，系统可能会提示用户保存工程文件和窗体文件，有关保存文件的操作在实例3中进行详细说明。VB

7、主窗口 工程资源 管理器窗口工具箱窗体窗口 属性窗口 窗体布局立即窗口 窗口 图1-2 VB60应用程序集成开发环境(实例2) 进入VB集成开发环境。1VB的三种工作模式(1)设计模式：启动VB，选择新建一个新的工程，进入如图1-2所示的VisualBasic60集成环境。此时，标题栏中的标题为“工程1MicrosoftVisualBasic设计”，表明集成开发环境处于设计模式。(2)运行模式：用鼠标单击工具栏中的“ ”按钮(启动)，或在“运行”菜单中选择“启动”命令，此时，标题栏中的标题为“工程1-Microsoft Visual Basic运行，表明集成开发环境处于运行模式。(3)中断模式

8、：在“运行”菜单中选择“中断”命令，或按(Ctrl+Break)键，此时，标题栏中的标题为“工程1-Microsoft Visual Basicbreak”，表明集成开发环境处于中断模式。2VB集成开发环境中的各种窗口（如1-2所示）(1)窗体窗口(2)属性窗口(3)工程资源管理器窗口(4)代码窗口(5)工具箱3打开VB集成开发环境中的工具栏(1)在“视图”菜单中选择“工具栏”，在它的级联菜单中列出VB提供的工具栏及当前工具栏的状态。(2)选择“编辑”命令，打开编辑工具栏。(3)选择“窗体编辑器”命令，打开窗体编辑器工具栏。(4)选择“调试”命令，打开调试工具栏。(实例3) 建立一个简单的VB

9、应用程序 首先建立一个自己的文件夹，以便将练习中生成的各种文件保存在该文件夹中，这里在E盘建立一个VBSY文件夹。1建立一个新的工程 启动VB 60，选择新建一个新的工程，此时进入到VB60集成开发环境，屏幕上出现一个默认的“Forml”窗体。2设置窗体属性 选中窗体窗口中的窗体，在属性窗口中选中(名称)属性，将其属性值改为“Frmexp”；再选中Caption属性，然后在右边列中输入“窗体”，此时窗体的标题栏变为“窗体”，窗体窗口的标题栏为“工程1Frmexp (Form)”。3在窗体上绘制控件（1）用鼠标单击工具箱中的标有“A”的按钮（标签），在窗体的合适位置画出一个矩形区域，在窗体上出现

10、一个标签控件，用鼠标选中该控件，然后在属性窗口中将其(名称)属性设为“LblDisp”；Caption属性设为“VB集成开发环境”。（2）用鼠标单击工具箱中的命令按钮，在窗体的合适位置画出一个命令按钮，用鼠标选中该命令按钮，然后在属性窗口中将其(名称)属性设为“cmdDisp”；Caption属性设为“显示”。(3) 在窗体中再添加一个命令按钮，然后将其(名称)属性设为“cmdClear；Caption属性设为“清除”。窗体如图1-3所示。 图1-3窗体设计画面 图1-4 代码窗口4编写程序代码 (1)双击“显示”按钮，打开代码窗口，如图1-4 所示，然后输入如下代码：Private Sub

11、cmdDisp_CliCk() LblDiSpViSible = TrueEnd Sub (2)在代码窗口的对象列表框中选择对象“cmdClear”；在过程列表框中选择事件Click(如图1-4)，然后输入如下代码： Private Sub cmdClear_Click() LblDispVisible = False End Sub5运行程序关闭代码窗口，用鼠标单击工具栏中启动按钮。此时，程序开始运行，并出现图1-5画面，单击“清除”按钮，窗口上的文字消失；单击“显示”按钮，又使文字显示出来。 图1-5 运行程序窗口6保存文件 在选择“文件”“保存工程”菜单命令，或单击工具栏中的“保存工程”

12、按钮。由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1vbp。7生成可执行文件选择“文件”“生成Vbsyl_1exe”菜单命令，弹出“生成工程”对话框，此时可执行文件名已默认为Vblsy_1exe，如图1-6所示。在该对话框中单击“选项”按钮，打开“工程属性”对话框，如图1-7所示，在该对话框中可以设置版本号、版本信息、编译选项等。最后单击“确定”按钮进行编译。图1-6 “生成工程”对话框 图1-7 “工程属性

13、”对话框8运行可执行文件 在E盘的VBSY文件夹下双击Vbsyl1exe文件，运行该可执行文件。启动该程序后的窗口如图1-5所示。 (实例4)使用VB的帮助。 选择“帮助”“内容”菜单命令，弹出“MSDN library Visual Studi060”窗口。1利用目录浏览主题 选择“目录”标签，在左侧主题窗口中依次单击“sual Bask文档”“使用sualBaSic”“程序员指南”“SualBaSiC基础”“窗体、控件和菜单”，最后选择“设计窗体”主题，此时右侧窗口中显示出相应内容。2利用索引查找信息 选择“索引”标签，在“键入要查找的关键字”输入框中输入“SelectCase”，此时光标

14、定位在索引项的列表的“SelectCase块”项目上，单击“显示”按钮，右侧窗口中即显示出相应内容。实验二 Visual Basic语言基础一、实验目的(1)掌握Visual Basic的数据类型和变量定义方法。(2)正确使用Visual Basic的运算符和表达式。(3)掌握Visual Basic中数据输入、输出的方法。(4)掌握Visual Basic常用函数的使用方法。(5)学会用赋值语句构造简单的顺序结构程序。二、相关知识1VB的数据类型 VB提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。VB将数据类型分为标准数据

15、类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型和字节型；非数值类型包括日期型、逻辑型、字符型和对象数据类型。 除了以上标准数据类型外，用户还可以根据自己的需要自定义数据类型，称为自定义类型，形式如下： Public|PrivateType 自定义类型名 元素名(下标)As类型名元素名(下标)As类型名End Type2VB变量的声明 变量是用来在程序运行期间临时存储数值的。声明变量包括名称和数据类型。3VB的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。VB的表达式有下

16、列形式： 算术表达式：由算术运算符连接。其运算符的含义、优先级和数学中的相同，只是 整除运算符()和取模运算符(mod)是新概念，读者应倍加注意。 关系表达式：由关系运算符连接，其运算结果是一个逻辑量。运算符两边的操作数如果是数值型，则按其大小比较；如果是字符型，则按其字符编码的码值从左到右一一比较。逻辑表达式：由逻辑运算符连接，运算结果为逻辑值。字符串表达式：由字符串运算符“+”和“&”连接。它们的功能都是将两个字符串拼接起来。 “+”运算符两边的操作数应均为字符型；“&”运算符两边的操作数可以是字符型或者是数值型。4VB的内部函数VB提供了大量的内部函数供用户编程时使用。内部函数按功能分为

17、数学函数、转换函数、字符串函数、日期函数和格式输出函数。用户可以通过VB的“帮助”菜单获得所有内部函数的使用方法。三、实验举例(实例1) 逻辑型数据的使用。 Private Sub Form_cliCk() Dim a AS Boolean， b AS Boolean Dim X AS Integer， y AS IntegerX = 0y = -2a = Xb = yPrint a,b,x,ya = Trueb = FalSeX = aY=bPrint x,y,a,bEnd Sub(实例2) 日期型数据。 Private Sub Form_cliCk() Dim a AS Date， S A

18、S Date， d AS Date Dim f AS Date， S1 AS Date， S2 AS Date a = #592002# s = #5121999 12：30：15 PM# d = 200112 f = -200112 S1 = 05 S2 = 0 Print a， S Print d， f Print Sl， S2 End Sub (实例3)关系运算符。 Private Sub Form_cliCk() Print ”abcde” = ”abd” Print ”abcde， ”aba” Print ”BC” = ”ABCFF” Print 31 3 Print ”34” ”3

19、” Print ”abc” ”ABC” End Sub 在比较时注意以下原则：(1)如果两个操作数是数值型，则按其大小进行比较。(2)如果两个操作数是字符型，则按字符的ASC码值从左到右一一比较，也就是说，先比较两个字符串中的第一个字符，其ASC码值大的字符串大，如果第一个字符相同，则比较第二个字符，依此类推，直到比出结果为止。 (实例4) 算术运算函数的使用。 Private Sub Form_cliCk() Print Abs(-1.7)， Log(12)， Sqr(9) Print Exp(3)， Sin(30 * 3.1415926/180) Print Int(-3.5)， Fix(

20、-3.5), Round(1.5)， Round(1.512,2) End Sub(实例5) 求余数(模)运算符的使用。Private Sub Form_cliCk()Print 20 Mod 3Print 20 Mod -3Print -20 Mod 3Print -20 Mod 3End Sub观察运行结果。实验三 顺序结构程序设计一、实验目的(1)掌握Visual Basic语言中数据输入方法。(2)掌握Visual Basic语言中数据输出方法。(3)正确使用Visual Basic赋值语句。(4)学会设计简单的顺序结构程序。二、相关知识1赋值语句赋值语句是VB中使用频率最高的语句，这

21、个语句的含义就是将等号右边表达式的值传送给等号左边的对象属性或变量，使其可以在程序运行中改变。使用赋值语句应注意以下几点：(1)只有当表达式是一种与变量兼容的数据类型时，该表达式的值才可以赋给变量或属性。不能将字符串表达式的值赋给数值变量，也不能将数值表达式的值赋给字符串变量。如果这样做，就会在解释时出现错误。(2)可以把字符串或数值表达式赋给Variant变量，但反过来就必须分析：任何除Null之外的Variant都可以赋给字符串变量，但只有当Variant的值可以解释为一个数时才能赋给数值变量。(3)将一种数据类型的表达式赋给另一种数值类型的变量时，系统会强制将该表达式的值转换为变量的数据

22、类型。2InputBoxO函数 该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。作为对话框消息出现的字符串表达式，最大长度是1024个字符，由所用字符的宽度决定。如果该消息包含多个行，则可在各行之间用回车符vbCr、换行符vbLf或回车换行符的组合vbCrLf来分隔。3MsgBox0函数 MsgBox()函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数， 告诉用户单击了哪一个按钮。函数中显示在对话框中的消息是一个字符串表达式，其规则与InputBox函数相同。MsgBox()函数根据所选定参数的不同

23、，可以弹出不同形式的消息框供用户使用。4Print语句Print实质是一种方法，在这里我们称它为语句是因为在窗体上Print方法的对象名可以省略，省略后的形式和原Basic中的Print语句相同。该语句最常用的两个参数是Spc(n)和Tab(n)，其中Spc(n)用来在输出中插入空白字符，n为要插入的空白字符数。Tab(n)用来将插入点定位在绝对列号上，n为列号。三、实验举例(实例1) MsgBox函数的使用。 Private Sub Commandl_C1iCk() Dim r AS Integer MsgBox”最简单的MsgBox”R = MsgBox(“复杂的MsgBox”， vbYe

24、sNo+vbCritical + vbDefaultButton2，-”你看到了么?“） Print”你按的值为”；r End Sub 观察运行结果。(实例2) 已知圆的半径R，求圆的周长和面积。(1)选择“文件”菜单上的“新建工程”命令，新建个工程。(2)在窗体上创建两个标签(Label)，调整位置和大小，设置标签Labell的Caption属性为“圆的周长是：”、标签Label2的Caption属性为“圆的面积是：”。(3)打开代码窗口，输入下面程序代码。Private Sub Form_Click()Dim r as Integer， S as Single，area as Single

25、 r = 34159 * rArea = 3.14159 * r 2Label1Caption=“圆的周长是：”+Format(s)Label2Caption=“圆的面积是：”，+Format(area)End Sub运行程序,求圆的周长和面积。(实例3) InputBOx函数的不同用法。Private Sub Form_CliCk() Dim StrName AS String ， Title AS String Dim Default AS String， MyValue AS String ，设置提示信息 StrName = ”请输入数据”，设置标题Title = ”InputBox函数

26、使用举例”设置缺省值Default = ”2”第一种：显示提示信息、标题及缺省值MyValue = InputBox(StrName， Title， Default)，第二种：指定坐标：在1000，1000的位置显示对话框MyValue = InputBox(StrName， Title， Default，1000,1000)，第三种：显示“帮助”按钮，使用帮助文件MyValue = InputBox(StrName，Title， ， ， ，”， 10)End Sub观察结果。实验四 选择结构程序设计一、实验目的(1)掌握逻辑表达式的正确书写形式。(2)学会单分支和双分支结构程序的使用。(3)

27、学会多分支条件语句的使用。(4)掌握情况语句的使用，弄清楚情况语句和多分支条件语句的区别。二、相关知识 选择结构也叫做条件分支结构，即根据条件选择要执行的分支。Visual Basic中常用的条件执行语句有：IfThenElseEndlf语句；Select Case语句。1IfThenElseEndlf语句 语句中的判断条件是数值表达式或字符串表达式，其运算结果为True或False。 可以使用单行形式来做短小简单的程序。在单行形式中，按照IfThen判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开，如： If A10 Then A=A+1：B二B+A：C=C+B 但使用块形

28、式的情况更多，块形式具有更强的结构化与适应性，并且通常比较容易阅读、维护及调试。Else和Elself子句都是可选项。在If块中，可以放置任意多个Elself子句，但是都必须在Else子句之前。If块也可以嵌套。当程序运行到一个If块时，条件表达式将被测试，如果结果为True，则在Then之后的语句会被执行。反之，则每个ElseIf部分的条件表达式会依次计算并加以测试。如果找到某个为Tme的条件时，则其紧接在相关的Then之后的语句会被执行。如果没有一个ElseIf条件表达式为True(或是根本就没有Elself子句)，则程序会执行Else部分的语句。而在执行完Then或Else之后的语句后，

29、会从End If之后的语句继续执行。2Select CaseEnd Select语句 Select CaseEnd Select语句是多分支语句，其中的判断条件是任何数值表达式或字符串表达式。根据表达式的值，来决定执行几组语句中的其中之一。判断条件有以下几种形式： 一个或多个表达式，表达式之间用“，”隔开。 为某个数值范围，格式是：表达式1 To 表达式2 为某个关系表达式，格式是：IS三，实验举例(实例1) 输入一个数，判断这个数的奇偶性。Private Sub command1_click()Dim a As IntegerA = InputBox(”输入一个数“)If a mod 2 = 1 Then MsgBox a & ”是奇数” Else MsgBox a & ”是偶数” End lf 图4-1例1运行结果 End Sub 程序运行时，单击Commandl按钮，在弹出的对话框中输入66，单击“确定”按钮，消息框提示66是偶数，如图4-1所示。 (实例2) 判断你输入的字符的种