Visual-Basic实验-答案(3)

目录实验一 Visual Basic编程环境和控件 (1)实验二窗体及基本控件使用 (6)实验三顺序结构程序设计 (13)实验四选择结构程序设计 (19)实验五选择结构程序设计（续） (24)实验六循环结构程序设计 (32)实验七循环结构程序设计（续） (37)实验八常用控件 (41)实验九常用控件（续） (50)实验十数组 (55)实验十一数组（续） (64)实验十二顺序文件 (69)实验十三过程 (76)实验十四过程（续） (82)实验十五菜单及通用对话框 (87)实验十六随机文件（选作） (91)附录:VB统考编程题（精选） (95)期末自测题（A卷） (105)期末自测题（B卷） (110)实验报告的整理与编写上机实验结束后，编写实验报告是软件工程的要求，也是培养科学作风的重要途径，实验报告的主要容包括：（1）实验目的实验作为教学的一个重要环节，其目的在于更深入地理解和掌握课程教学中的有关基本概念，应用基本技术解决实际问题，从而进一步提高分析问题和解决问题的能力。

因此，当我们着手做一个实验的时候，必须明确实验的目的，以保证达到课程所指定的基本要求。

在写实验报告时，要进一步确认是否达到了预期的目的。

（2）实验容实验的目的是要通过解决一些具体问题来达到的。

在书中，每一部分都安排了多个实验题目，根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素，可以选择其中的几个或全部。

因此，在实验报告中，实验容是指本次实验中实际完成的容。

在每一个实验题目中，一般都提出一些具体要求，其中有些具体要为了达到实验目的而提出的，不仅有具体的实验题目，还应包括具体要求。

（3）程序设计说明包括算法设计思路，必要的流程图，界面设计说明、使用模块及变量的说明等。

（4）源程序代码Visual Basic的源程序包括界面设计和代码。

程序设计的产品是程序，它应与算法或流程图相一致，要与用户界面设计一致。

程序要有具有易读性，符合结构化原则。

（5）程序的运行结果（包括对不同测试数据的运行结果）程序运行结果一般是输出语句所输出的结果。

对于不同的输入，其输出的结果是不同的。

因此，在输出结果之前一般还应注明输入的数据，以便对输出结果进行分析和比较。

在程序的运行中，还必须用各种不同情况的数据进行调试，以检查程序能否正常运行。

因为，有时程序对某些情况是可以正常运行的，而对某些特殊情况的数据可能会出现运行出错或死机，通过各种数据的调试，尽量做到程序不会出问题。

（6）实验体会分析和体会实验中碰到的问题及解决方法,这是实验报告中最重要的一项，也是最容易忽视的一项。

实验过程量的工作是程序调试，在调试过程中会遇到各种各样的问题，每解决一个问题就能积累一点经验，提高自己的编程能力。

因此，对实验的总结，最主要的是程序调试经验的总结。

调试分析也包括对结果的分析。

体会主要是指通过本次实验是否达到了实验目的，有哪些基本概念得到了澄清，碰到了那些以前没有见到的问题，最后采用什么方法得到解决等。

实验日期年月日实验一Visual Basic编程环境和控件一、实验目的1、掌握启动与退出Visual Basic的方法。

2、掌握Visual Basic语言程序的开发环境.3、掌握Visual Basic语言程序设计的方法与特点4、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。

二、实验容申请一个免费(如果已经有，请跳过)，以便以后将每星期编制的程序压缩并存放在中（或者保存在U盘中），以便复习时用。

1. 创建第一个应用程序。

编写一个简单程序，实现单击命令按钮时在文本框显示“单击命令按钮”，单击窗体空白处时在文本框显示“单击窗体”。

保存窗体文件名：SY1_1.frm,保存工程名：SY1_1.vbp。

程序界面如图1 1.所示。

图1.1 实验1的运行界面【步骤】①启动Visual Basic6.0，在弹出的“新建工程”对话框中选择“标准EXE”。

②在窗体上建立一个文本框和一个命令按钮。

建立方法：在左边工具箱上，单击要绘制的控件的按钮，再把鼠标移到窗体，按住鼠标左键画出所需大小的框体。

或者是双击工具箱的要绘制的控件的按钮。

③分别选中命令按钮和文本框，在属性窗口中对各属性进行设置，属性设置参照表：表1.1 实验1属性设置对象名称属性属性值窗体Caption 我的第一个程序文本框Text （空）命令按钮Caption 命令按钮④双击命令按钮，进入代码窗口中命令按钮的默认事件，编写代码如下：Private Sub Command1_Click()Text1.Text = "单击命令按钮"End Sub⑤双击窗体的空白处，进入代码窗口中窗体的默认事件(Form_Load())，在右边的过程列表框中选择Click，，编写代码如下：Private Sub Form_Click()Text1.Text = "单击窗体"End Sub⑥单击工具栏上的按钮，运行程序，分别单击命令按钮以及窗体空白处，观察文本框上显示的容有何变化。

如果程序代码有错误，则进入代码窗口中调试程序。

⑦单击工具栏上的按钮，结束程序运行。

⑧单击工具栏上的按钮，将窗体、工程分别以SY1_1.frm、SY1_1.vbp保存在磁盘上。

2. 建立一个应用程序, 界面如图1.2所示，窗体包含有一个文本框和三个按钮，要求文本框中的字体为14号黑体加粗，颜色为红色，且文本容居中显示。

编写代码实现：图1.2 实验2 的运行界面1）按“显示容”按钮时，文本框显示“Hello,Visual Basic！”；2）按“清屏”按钮时，文本框中文字消失；3）按“结束”按钮后，程序结束。

（提示：代码中输入End ，则可结束应用程序运行） 保存窗体文件名：SY1_2.frm,保存工程名：SY1_2.vbp 。

表1.2 实验2属性设置对象名称 属性 属性值窗体Form1Caption 文本框Text1TextAlignment FontForeColor 命令按钮Command1 Caption 显示容 命令按钮Command2 Caption 清屏 命令按钮Command3Caption结束代码遇到的主要问题及分析：3、P260 实验 A 。

二、3.编写一程序，在文字框中统计在该窗口上鼠标单击的次数。

设计和运行界面如图1.3所示。

完成后自己取名保存。

图1.3 实验3 设计界面 运行界面代码遇到的主要问题及分析：【提高题】 P259 实验 A 。

二、1. 编写一程序，要求在屏幕上显示“欢迎学习Visual Basci ”，并在“请输入你的”标签后的文本框Text1中输入；单击“你输入的是”按钮，则在Label3标签上显示在文本框Text1中输入的。

窗体如图1.4所示。

图1.4 提高题 的运行界面代码遇到的主要问题及分析：【选作题】窗体上有两个名称分别为C1, C2的命令按扭，一个文本框Text1。

命令按钮的标题及文本框上显示的字符自定。

编程实现当按下C1时，将C2的标题与Text1中的容交换。

要求：1）界面自己设计 2）连续多次单击C1，都能将C2的标题与Text1中的容交换。

Label1调整控件的大小使内容显示为两行Label2 Label3将BorderStyle 属性设置为1Text1 Command1设计的界面如下：编写代码如下：实验心得体会教师签名：成绩：实验日期年月日实验二窗体及基本控件使用一、实验目的1、复习启动与退出Visual Basic的方法。

2、掌握窗体基本的事件、方法和属性，并学会在不同的事件的过程中，编写代码。

3、掌握文本框和标签两种控件的使用，掌握文本框和标签控件的常用属性、事件和方法。

以及它们之间的区别。

4、掌握命令按钮控件的常用属性、事件和方法。

二、实验容1、设计一个程序（如图2.1所示），用窗体模拟黑板，窗体上没有最大化、最小化按钮；鼠标单击窗体时窗体上输出提问，双击时显示回答。

分析：把窗体装扮成黑板模样，要设置窗体的BackColor属性为黑色，ForeColor属性为白色（模拟粉笔字的颜色）。

窗体上没有最大化、最小化按钮，则需要设置窗体的MaxButton、MinButton 属性。

而单击、双击时的输出显示，可以在Click、DblClick事件里用Print和Cls方法来实现。

（a）设计状态（b）运行状态（c）窗体单击（d）窗体双击图2.1 实验2.1模拟黑板1）属性设置表2.1 实验1属性设置对象名称属性属性值窗体Form1BackColorForeColo FontvbBlackVbwhiteMaxButton MinButton False False【思考】如果进一步要求随机出题（简单的数学四则运算题）在窗体上输出并显示答案，该怎么做Private Sub Form_Click()Dim a As Integer, b As Integera = Int(Rnd * 10)b = Int(Rnd * 10)Print a; "+"; b; "="; a + b ‘减法等同理End Sub2、窗体上有一个文本框Text1，要求当鼠标划过文本框Text1时，鼠标显示Cross“┼”形状；窗体上的一个标题为“复制”的命令按钮C1。

通过属性窗口实现以上的设置之后，编程实现：1)程序启动时窗体标题为“修改文本框容”；2)单击命令按钮C1，则把按钮上的标题复制到文本框，并使按钮不可见；3)单击窗体空白处，按钮可见但不可用。

➢必要属性设置表2.2 实验2属性设置对象名称属性属性值Text1 mousepointer 2-crossC1 caption 复制➢代码编写代码遇到的主要问题及分析：Private Sub Form_Load()Form1.caption=“修改文本框容”End SubPrivate Sub C1_Click()Text1 = C1.CaptionC1.Visible = FalseEnd SubPrivate Sub Form_Click()C1.Visible = TrueC1.Enabled = FalseEnd Sub3、窗体上有四个文本框，两个标题分别为“显示选息”“选中文本”的命令按钮。

要求程序运行时，光标焦点在Text1上，按下Tab键后，光标焦点跳到在Text3上。

在文本框Text1中输入一些字符；要求编程实现：图2.2 实验2.3文本信息选定窗体1）在文本框Text1中输入一行文字并按回车（Enter）后，把Text1的容设置为窗体的标题。

2）在Text1中选中其中一部分容后，单击“显示选息”命令按钮，则把在Text1中被选中文本的第一个字符的顺序号，被选中文本的字符个数，被选中的文本容分别显示在文本框Text2，Text3，Text4中。