《程序设计基础—VB程序实验》.doc

《《程序设计基础—VB程序实验》.doc》由会员分享，可在线阅读，更多相关《《程序设计基础—VB程序实验》.doc（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、程序设计基础VB程序实验说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。实验1 计算机基本操作实验目的 熟悉计算机，能够正确进行开、关机操作。 熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。 理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。 知道“回收站”的功能，学会有关文件、文件夹的基本操作。 学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。实验内容 熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。 学会用正确的指法进行输入，知道键盘上所有字符的输入。 利用“控制面板”修改系

2、统时间、桌面背景、鼠标属性。 在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。 用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。 将上述文件夹复制到ftp:/10.10.9.222上。实验2 常用软件的基本操作实验目的 了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。 学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。 了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单

3、元格的合并与恢复、边框的设置等。 掌握Excel的基本公式的使用，能够用公式进行基本计算。掌握Excel中的图形制作方法，能够根据表格做出图形。实验内容 将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理： 将标题“自我介绍”居中； 将文章中第二段的内容进行分栏，要求中间有分割线； 插入一个4行4列的表格，内容为学号、姓名、某门课的成绩； 任意插入一张图片； 在文章中的任意位置加底纹。将做好的文档以2.doc命名并保存。 用Excel建立如下表格：学生的总成绩学号姓名语文数学英语计算机总分平均分09001张辉7890809209003万明8487839009004杜芳鸣9180

4、789509006徐好芳8785808509007江珍8067787009008王豪7873858009009王小盟7589948809010胡甜甜8293889509012卫晓88976572并对表格进行如下操作： 利用公式计算学生的总分、平均分； 将表中所有的数据选择居中； 利用该表格中的姓名和计算机的成绩做簇状图形。将做好的Excel表以2.xls命名并保存。将本次实验的两个文件上传到ftp上自己的文件夹中。 实验3 顺序、选择结构程序设计一、 实验目的1掌握各类表达式、赋值语句的书写规则。2掌握常用函数的使用方法、掌握InputBox和MsgBox函数的使用方法和返回值的使用。3熟悉利

5、用立即窗口来测试常用函数，各类表达式的计算结果。了解如何察看Debug.print 表达式 语句的执行结果。4掌握If 语句，IfThen 语句IfThen EndIf语句和If Then ElseIfEndIf语句的使用规则和执行流程。掌握Iif函数，Choose函数的使用规则和方法。5掌握 Select Case Case Case Else End Select语句的使用规则和执行流程。掌握Switch函数的使用规则和方法。二、实验要求通过此实验使学生熟悉 VB6.0 的集成环境及基本操作，掌握一个 VB 应用程序的组成及创建方法。掌握 VB 赋值语句、用户交互函数 Inputbox 与

6、 Msgbox 的使用，表达式、函数。掌握VB程序错误捕获与程序调试方法。三、实验内容1书写以下表达式：x和y是一个落在第一或第三象限内的点坐标a是100以内的整数2求以下表达式的值设a=3,b=4,c=9表达式sqr(abs(b*b-4*a*c) 12 Then Exit For For j = 1 To 3 For k = 1 To 2 x = x + 3 Text1.Text = Text1.Text + Trim(Str(x)w = x Next k Next j Next i（L3.4 编程题（4）的运行界面） Print wEnd Sub 结果：w Text1.Text Priva

7、te Sub Form_Click() Dim k As Integer Dim n%, m% n = 5: m = 1 Do Until k n m = m * 2 k = k + 1 Loop Print k, mEnd Sub 结果： k m 2.编程题（1）编写程序，计算 sinx=x-x3/3!+x5/5!-x7/7!+.直到第n项的绝对值小于10-8（2）用穷举法求两个自然数m 、n的最大公约数（3）编写程序输出1000之内的所有完数.完数是指一个数恰好等于它的因子之和。如 6的因子为1，2，3。而6=1+2+3，因此 6是完数。（4）编写一个程序是能输出如L3.4所示的图案实验5

8、数组和数组的应用一、实验目的1握数组的定义方法，熟悉求数组上下界的函数和关于数组的几个内部函数。2熟悉动态数组的定义和动态数组的重定义3掌握控件数组的使用方法和熟悉对控件数组的编程4掌握排序、插入、查找、删除方法二、实验要求通过此实验使学生掌握数组的基本使用和数组的定义与引用，掌握动态数组和控件数组的使用以及数组的综合应用：排序、查找等常见算法。三、实验内容1.读程序，写结果。Option Base 1Private Sub Form_Click() Dim a, b, c, d%(3, 3), i%, j% a = Array(1, 4, 7): b = Array(2, 5, 8): c

9、= Array(9, 10, 11) For j = 1 To 3: d(1, j) = a(j): d(2, j) = b(j): d(3, j) = c(j): Next j Print String(20, -) For i = 3 To 1 Step 1 结果: For j = 3 To 1 Step -1 Print Format(d(i, j), ); Next j: Print: Next IEnd Sub Private Sub Form_Click() Dim x%(3, 5), i%, j% For i = 1 To 3 For j = 1 To 5 x(i, j) = x

10、(i - 1, j - 1) + i + j Next j Next i Print x(3, 5), UBound(x, 2)End Sub 结果: Option Base 1Private Sub Command1_Click() Dim y, i!, sum As Integer y = Split(7,8,9,10, ,)For i = 1 To 2 Step 0.5 sum = sum + y(i) Next i Print sum, y(0)End Sub 结果: 如果把 sum As Integer 改为sum As Variant则结果： 2.编程题 编制一个能产生100个既有

11、正、负、和零的数随机整数，并统计显示这些中正、负、和零数的个数。(2) 编制一个打印5行的杨辉三角形。(3)随机产生100 500之间的整数，要求在放入数组时就呈递增状态。最多产生10个元素，也可能产生不到10个元素。输出实际产生的每个数组元素的值。实验6函数和过程一、实验目的掌握自定义函数和子过程的定义方法和调用方法。掌握值虚参数和地址虚参数的虚实参数传递方式，注意数组名和数组元素作过程参数的区别。掌握变量的作用域、函数和过程的作用域。正确区分程序级，模块级、过程级变量。熟悉递归函数的定义方法和求解方法。熟练使用函数、过程来简化程序设计二、实验要求通过此实验使学生掌握函数过程及子过程的定义，

12、函数过程及子过程调用及参数传递方法，掌握函数的嵌套调用和递归调用。三、实验内容读程序写运行结果 Option Base 1Private Sub Command1_Click() Dim a(4) As Integer, i As Integer Cls a(1) = 3: a(2) = 5: a(3) = -7: a(4) = 1 pa a() For i = 1 To 4 Print Format(a(i), ); Next iEnd SubSub pa(b() As Integer) Dim i%, j%, t% For i = 1 To UBound(b) - 1 For j = 1

13、To UBound(b) - i If b(j) b(j + 1) Then _ b(j) = b(j) + b(j + 1): b(j + 1) = b(j) - b(j + 1): b(j) = b(j) - b(j + 1) Next j Next iEnd Sub 结果： Option Base 1Dim n As IntegerPrivate Sub Command1_Click() Dim a%(4), b%(4), c%(4), i As IntegerCls n = 0 a(1) = 1: a(2) = 2: a(3) = 1: a(4) = 4 b(1) = 3: b(2)

14、= 4: b(3) = 3: a(4) = 5 c(1) = 5: c(2) = 6: c(3) = 2: c(4) = 6 For i = 1 To 4 If a(i) b(i) Then a(i) = b(i)If a(i) c(i) Then a(i) = c(i) p (a(i) Next i Print 结果： Print Tab(10); For i = 1 To 4 Print Format(a(i), ); Next iEnd SubSub p(b%) Print Tab(15 - 2 * n); b; Print Tab(18 + 2 * n); b; b = b + 1 n

15、 = n + 1End Sub问题：将p (a(i)改为p a(i) 输出结果又是什么？由此你能得出什么结论？ 2.编程题(1)编写一个过程，求任意矩阵的转置矩阵。(2)假定一串字符是由用空格隔开的单词构成的。编写一个函数用来给出字符串中包含的单词总数。(3)编写一个函数求的值。(4)设职工信息如表所示姓名性别职称工资奖金黄男技术员15849121李女工人154346龚女工程师18899156吴男工人1346876柴女高工15872132写一个工程，使其能分别完成按姓名，性别，职称，工资，奖金排序并输出（每个人的所有信息必须同步输出）。排序应当体现选择法和冒泡法两种。 实验7常用控件、键盘事件

16、和鼠标事件一、实验目的1掌握水平滚动条和垂直滚动条控件的基本属性和使用方法。2熟悉框架控件、单选钮、复选框控件的使用，掌握时钟控件的使用。3掌握列表框和组合框控件的基本属性使用方法。4掌握键盘和鼠标器事件中的参数含义和熟练对这些事件过程的编程。二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1判断问题 单选钮和复

17、选框都有Value 属性，下列叙述正确的是：A)都是设置控件是否可用B)都是设置控件是否被选中C)单选钮的Value是逻辑值， 复选框的Value 是数值D)单选钮的Value是数值，复选框的Value 是逻辑值 结论： 列表框的列表内容是通过 属性来设置。A)Columns B)List C)Index D)Height设有以下事件代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print

18、 Hefei End IfEnd Sub为了能在窗体上显示“Hefei”字样，应如何操作？ 结论： Private Sub Form_Load() List1.AddItem 童凌: List1.AddItem 米卢 List1.AddItem 徐文祥: List1.AddItem 张三峰 List1.AddItem 文天祥End SubPrivate Sub Form_Click() List1.RemoveItem 1: List1.RemoveItem 3 List1.RemoveItem 2End Sub单击窗体后，列表框内还剩下那些项？ 结果： 2.编程题 （1）利用三个文本框（两个

19、显示操作数，一个输入运算结果），两个垂直滚动条（给定操作数），一个组合框（放置操作符），一个列表框（保留操作题和结论）来实现四则运算的程序。（2）编制一个程序，测试鼠标的Down、 Up、 Click、 DblClick对一个对象而言，几个事件同时存在的情况下，他们发生的先后顺序如何。（3）设计一个命令按钮的Click事件，使其完成这样的要求：计算1*2*3*4*5*18*20*22*1000，当积大于3000或被6整除时停止计算并在立即窗口中输出计算结果。实验8通用对话框、多重窗体一、实验目的1熟悉将同用对话框控件加入到工具箱窗口的方法。2掌握使用打开，另存为文件、颜色、字体、打印机对话框的

20、方法。3掌握如何使用多重窗体和熟悉多文档界面，熟悉设置工程启动对象的方法。4掌握load、unload语句，show、hide方法二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1读程序写运行结果设有两个窗体Form1和 Form2，Form1.Text1= , Form2.Text1= Text1 。它们的代码

21、窗口的代码如下： Private Sub Form_load() Form1代码窗口代码 Text1.Text = Form2.Text1End SubPrivate Sub Form_Initialize() Form2代码窗口代码 Text1 = Hello End SubPrivate Sub Form_load() Text1 = Text1 & HefeiEnd Sub当设定启动对象是Form1,则执行工程后，Form1.text1的文本内容是： 如果设定启动对象是Form2,则执行工程后，Form2.text1的文本内容是： 2编程题（1）利用对话框控件，编制一个程序，使得文本框的

22、字体是选定的颜色，文本框的底色是选定的颜色。文本的字体、字号为选定的字体，字号，文本框的文本为“自古英雄出少年”。（2）设计一个工程包含两个窗体，实现当移动第一个窗体上的标签时第二个窗体上的标签也按同样的方位和位移大小移动的要求。设第一个标签标题为“但愿人长久”，第二个标签标题为“千里共婵娟”。实验9菜单设计和工具栏设计一、实验目的1掌握使用菜单编辑器设计菜单的方法，熟悉菜单事件的编制。2掌握弹出式菜单的设计方法和激活方法。3熟悉动态菜单和窗口菜单的设计方法。4熟悉工具栏的设计。二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思

23、路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1编程题（1）设计一个菜单：形式如下：数值计算（C） 图形操作(P) 添加窗体(A) 系统维护(S)三角函数 正弦值 装入图形 添加窗体 设置口令对数值 余弦值 清除图形 删除窗体 清除窗体阶乘值(!) 双曲正弦值 -自然数对(T) 退出系统 Ctrl-F4菜单名称和菜单标题一致,只有子菜单添加窗体和删除窗体的菜单名为添加，删除。要求编写求阶乘值，自然数对子菜单、清除窗体子菜单、

24、对退出系统子菜单程序。提示：自然数对是指两个自然数和与差都是平方数，如8和17的和是25，差是9，它们都是平方数 则8和17就称为自然数对。（2）设计一个弹出式称为“弹出菜单”。其下有显示时间、显示日期、中西文星期、当前目录、工程目录、秒表、暂停秒表。请完成菜单设计和菜单过程设计。要求秒表的秒数显示在Label2的标题上，当前目录、工程目录显示在Label1的标题上，其余显示在窗体标题上。实验10图形操作和图形方法一、实验目的1.掌握窗体和图片控件的默认坐标系和在其内自定坐标系的方法。2.掌握图片、图像控件的基本属性尤其是图片控件的AutoSize图像控件的Stretch和使用方法。3.掌握线

25、状控件和形状控件的基本属性尤其是BorderColor、 BorderStyle、BorderWidth、FillStyle和FillColor五个共有属性和。4.掌握窗体和图片框的DrawWidth、 DrawStyle、FillStyle和FillColor属性。5.熟性划线(矩形)、画弧(扇形)、画园(椭圆)、画点和取点色的图形方法的语法规则。6熟性图层概念二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的

26、错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1.阅读程序写结果Dim b As IntegerPrivate Function F(a As Integer) As Integer Static c b = b + 1 c = c + 2 F = a * b * cEnd FunctionPrivate Sub Hit() Dim a As Integer, i% a = 2 For i = 1 To 2 Picture1.Print F(a); ; Next i Picture1.PrintEnd SubPrivate Sub Pict

27、ure1_Click() Picture1.Print Clik Call HitEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Print MouseDown Call HitEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 结果： Picture1.Print MouseUP Call HitEnd Sub 可以作为其他控件容器的控件是： A)窗体、列表框、图像 B)窗体、文本框、框架C)窗体、框架、图片框 D)窗体、标签、图片框2.编程题(1)在窗体内画一个从-3到 3的正弦函数图像。要求坐标系的原点在窗体的中心位置。再画一个红色的圆使其沿着正弦曲线从左往右运动。要求圆心处于正弦曲线上。(2)使用一个图形控件，在其上画一个不停旋转的圆直到结束工程运行。(3)编制一个工程，使其完成在三个图像控件中不停地互相交换着它们已经装载了的图片。