VB上机实验四

《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。

实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。

⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。

⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。

⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。

⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。

实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。

⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。

⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。

⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。

⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。

⑹将上述文件夹复制到ftp://10.10.9.222上。

实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。

⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。

⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。

⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。

掌握Excel中的图形制作方法，能够根据表格做出图形。

实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。

将做好的文档以2.doc命名并保存。

实验一 VB环境和简单应用程序设计（4个学时）一、实验目的1.熟悉Visual Basic集成开发环境的使用。

2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。

3.掌握窗体对象的属性、事件和方法。

二、实验内容1. 在VB的集成开发环境中实现如下的操作：1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。

2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”3）、将“窗体布局窗口“的”启动位置“设置成“手工”。

4)、在工具箱中任意添加一个Active X 控件。

5）、在工程1中增加两个窗体：Form1、Form26）、在工程1中增加两个标准模块：Module1 、Module27）、在工程1中增加一个类模块：Class18）、在工程资源管理器中将Form2、Module2 删除。

9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹10）、将代码窗口中的字体大小改为18号字。

2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。

要求：当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。

当按“清除”按钮时，清除文本框内全部信息；当按“退出”按钮时，结束程序运行。

1) 创建界面（将设计好的界面截下来粘贴在下面）2)以表格形式进行属性设置（写出所有非默认属性值的设置）3)代码设计4)调试过程记录（错误情况及改正方法，不得少于三条）3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。

要求：当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。

当按“黑体”按钮时，文本框内的字符串的字体变为黑体；当按“隶书”按钮时，文本框内的字符串的字体变为隶书；1) 创建界面（将设计好的界面截下来粘贴在下面）2)以表格形式进行属性设置（写出所有非默认属性值的设置）3)代码设计4)调试过程记录（错误情况及改正方法，不得少于三条）4. 窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。

VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导实验一认识VB6.0[实验目的]1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序[实验内容]一、VB集成开发环境的启动和退出1.启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。

2.在“新建工程”对话框中选择“标准EXE”注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？3.熟悉VB集成开发环境4.退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。

二、VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名称。

2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。

想一想：可以通过哪些方法打开代码窗口。

3.掌握在窗体设计器窗口中添加控件。

4.学会设置窗体、命令按钮、文本框的最常用属性。

5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。

想一想：窗体、命令按钮、文本框的缺省事件是什么。

三、建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。

实验一认识VB6.0Private Sub Command1_Click()Text1.Text = "Hello，Visual Basic！"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub想一想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。

实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。

其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5） 当X<=N 时 重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。

2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。

4．求方程AX+B=0的解。

VB上机实验报告实验名称：程序设计语言（VB）实验日期：指导老师：实验地点：姓名：班级：学号：一、实验名称：实验5 顺序结构程序设计二、实验目的：（1）掌握基本的输入输出操作（Inputbox、Msgbox、Print使用）。

（2）掌握顺序结构的程序设计方法。

三、实验内容：1.课本的3.3、3.4、3.5、3.6、3.7、3.82.用图形、图像框控件实现图片切换和图片放大缩小。

3.根据提示，补充下列程序段，并在VB环境下调试：（1）鸡兔同笼问题。

（2）计算三角形的面积。

四、实验步骤及结果：1、3.3：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s1 As String, s2 As Stringx = 2: y = 1s1 = x & "+" & y & "=" & x + ys2 = x & "-" & y & "=" & x - yMsgBox s1 & vbCrLf & s2, , "输出"End Sub3.4：Private Sub Command1_Click()Dim x As Integer, y As Integerx = InputBox("请输入第1个整数", "输入", 0) 'y = InputBox("请输入第2个整数", "输入", 0) ' Print "第1个数为:" & xPrint "第2个数为:" & yPrint "和=" & x + yPrint "差=" & x - yEnd Sub3.5：Private Sub Command1_Click()Dim r As Single, h As SingleDim area As Single, v As Singler = InputBox("请输入半径")h = InputBox("请输入高度")area = 2 * 3.14 * r * r + 2 * 3.14 * r * h v = 3.14 * r * r * hPrint "圆柱体的半径为:" & r; "高为:" & h Print "表面积为:" & areaPrint "体积为:" & vEnd Sub3.6：Private Sub Command1_Click()Dim a As Single, b As Single, c As Single ' Dim s As Single, area As Single 'a = Val(Text1)b = Val(Text2)c = Val(Text3)s = (a + b + c) / 2 'area = Sqr(s * (s - a) * (s - b) * (s - c)) Label2 = "三角形的面积为:" & area 'End Sub3.7：Dim a As Integer, b As Integer, t As Integera = Text1b = Text2t = aa = bb = tLabel2 = "交换后的值为:" & a & "," & b End Sub3.8：Dim x As Integer, s As IntegerDim a As Integer, b As IntegerDim c As Integer, d As Integerx = InputBox("请输入一个四位整数")a = x Mod 10b = x \ 10 Mod 10c = x \ 100 Mod 10d = x \ 1000s = a + b + c + dPrint x; "的各位数字之和为:"; sEnd Sub2、用图形、图像框控件实现图片切换和图片放大缩小：图片切换:Private Sub Command1_Click()Picture1.Picture = LoadPicture(App.Path + "\春.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(App.Path + "\夏.jpg") End SubPrivate Sub Command3_Click()Picture1.Picture = LoadPicture(App.Path + "\秋.jpg") End SubPrivate Sub Command4_Click()Picture1.Picture = LoadPicture(App.Path + "\冬.jpg") End SubPrivate Sub Command5_Click()Picture1.Picture = LoadPicture("")End Sub图片放大缩小:Private Sub Command1_Click() Image1.Stretch = TrueImage1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End SubPrivate Sub Command2_Click() Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2 End SubPrivate Sub Command3_Click() Image1.Stretch = FalseEnd Sub3、（1）鸡兔同笼问题：Private Sub Command1_Click() Dim h As IntegerDim f As IntegerDim x As Integerh = Val(Text1.Text)f = Val(Text2.Text)x = (4 * h - f) / 2y = (f - 2 * h) / 2Text3.Text = xText4.Text = yEnd Sub(2)计算三角形的面积：Private Sub Command1_Click()Dim b As SingleDim c As SingleDim s As SingleDim area As Singlea = Text1.Textb = Text2.Textc = Text3.Texts = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Text4.Text = areaEnd Sub五、实验分析及总结：（1）通过几次VB上机实验，我发现只要代码不写错，调试结果通常都会成功。

计算机上机实习（vb）大致思路：1.首先建一个文本文件“学生成绩”放在一个新建文件夹中，然后在此文件夹中输入二十个人的成绩及相关信息，包括学号，姓名，五门课程的名称。

2.再建一个文件夹叫做“课程学分”，在里面输入每个课程的编号，学时和名称并保存。

3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名，再把这班级成绩表保存在新建的文本文件“班级成绩表”中。

4.分别统计全班每门课的平均分，并计算每门课在60分以下，60~69,70~79,80~89,90分以上的人数，用vb创建一个叫“各分数段人数”的文本文件装此数据。

5.编程找出每门课中不及格的人，并在窗体上显示名单。

6.编程找出符合优等条件的人并在窗体上显示名单。

具体的流程：1.先编写如下程序使学生的每个信息的到保存，在自定义数组stu中有学生的姓名，学号，各科成绩。

再命名两个数组name和xf，让文本文件里的每一个信息调用起来方便简单。

2.求加权平均分，让每个学生的各科成绩分别乘以各成绩的学分，在除以总学分即为加权平均分。

有两个循环分别是20 个学生的循环和五门课的循环。

3.排名次，由于当两个人的成绩相等时要求名次一样，所以用书上常用的冒泡法和选择排序法是有些麻烦的，从而我用了把分数和每一位同学的分数比较来累计排名。

此时要在stu类型中加一个rank的分量。

从而有了下面的代码：4．统计分数段时，要求是统计每科的分数段人数，所以我先写了一个课程的分段程序，再把它复制四遍做适当的调整就得到了五门课的分段的程序：Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次，所以代码用只读打开文本文件。

VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。

2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。

(截止目前所有上机实验及代码。

不用画窗体界面,只写题目和代码.填写实验报告也是复习的过程，请务必认真！．．．．．．）实验一:第二章⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”,BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。

程序运行后,界面如图所示,此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题.Private sub command1_click(）Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框,名称为Text1，Text属性为空白、一个命令按钮,名称为Command1，标题为“显示”。

然后编写命令按钮的Click事件过程。

程序运行后，在文本框输入“计算机等级考试"，然后单击命令按钮,则标签和文本框消失，并在窗体上显示文本框的内容。

要求程序中不得使用任何变量。

上机代码：Private sub command1_click(）Label1。

visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,再画两个命令按钮,名称分别为Command1和Command2,标题分别为“复制"和“删除”。

程序运行时，在Text1中输入一串字符,并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除"按钮，则被选中的字符从Text1中被删除.请编写两个命令按钮的Click过程完成上述功能.Private sub command1_click（)Text2=text1。