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

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

2、统时间、桌面背景、鼠标属性。 在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。 用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。 将上述文件夹复制到22上。实验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)<0设标签Label1.Caption= "oppo,my OPPO music my Music 珍珠玉盘"，则Right(Label1,3) Left(Label1,4)Mid(Label1,9,4)Instr(Label1，"OPPO")Instr(Instr(Label1，"m"

7、;)+1,Label1, "m")Len(Label1.Caption)LenB(Label1.Caption)"315"+23 & "12 mod 7" "12e2"+23 & 315 mod 2 7 and -13选择回答InputBox函数返回值的类型为: A)数值 B)字符串 C)变体 D)数值或字符串(视输入的数据而定)表达式4+56*7/8 Mod 9的值是: 【正确答案】B A)4 B)5 C)6 D)7语句Print Format(32548.5,"000.000.00&q

8、uot;)的输出结果是: A)32548.500.00 B)32，548.5 C)032，548.50 D)32，548.50执行语句InputBox "Today", "Tomorrow", "Yesterday" 将显示一个输入对话框，在对话框的输入区中显示的信息是： A)Today B)Tomorrow C)Yesterday D)Day before yesterday为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是: A)Value B)Default C)Cancel D)

9、Enabled4编程题（1）编制一段程序完成以下分段函数的求值，自变量的值通过InputBox函数完成。如果分段函数无定义用MsgBox函数给予提示。 （2）当一个文本框控件获得焦点的时候，只要在键盘上按下一个具有ASCII码的按键就会触发一次它的KeyPress事件。请在这个事件中编一段代码使文本框的文本属性只能含有1，2，3，4，m，j字符。(3)设窗口内的命令按钮“加倍”具有如下的功能： 将文本框 Text1 中输入的数值加倍后，在文本框 Text2 中显示其结果，请写出该命令按钮的单击事件过程内的程序代码?实验4循环结构程序设计一、实验目的1掌握对For循环和For循环的循环次数计算方

10、法。2掌握各种形式的DO循环的使用规则和执行流程。3熟练使用Exit For 、Exit Do 、Goto 语句和循环嵌套。二、实验要求通过此实验使学生掌握 ForNext 语句及 DoLoop 循环语句的简单使用，掌握各种结构的嵌套使用以及循环结构程序设计综合应用。三、实验内容1.读程序写结果Private Sub Command1_Click() Dim m%, a%, n! For m = 1 To 10 Step 2 a = 0 For n = 0.5 To 9.5 Step 2 a = a + 2 Next n Next m Print aEnd Sub 结果： 若改n!为n% 输出

11、又是多少？ Private Sub Command1_Click() Dim i As Integer, x As Integer, j%, k%, w% Text1 = "" For i = 1 To 4 If x > 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 Privat

12、e 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）编写

13、一个程序是能输出如L3.4所示的图案实验5数组和数组的应用一、实验目的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

14、 = Array(2, 5, 8): c = 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%,

15、 j% For i = 1 To 3 For j = 1 To 5 x(i, j) = x(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)En

16、d Sub 结果: 如果把 sum As Integer 改为sum As Variant则结果： 2.编程题 编制一个能产生100个既有正、负、和零的数随机整数，并统计显示这些中正、负、和零数的个数。(2) 编制一个打印5行的杨辉三角形。(3)随机产生100 500之间的整数，要求在放入数组时就呈递增状态。最多产生10个元素，也可能产生不到10个元素。输出实际产生的每个数组元素的值。实验6函数和过程一、实验目的掌握自定义函数和子过程的定义方法和调用方法。掌握值虚参数和地址虚参数的虚实参数传递方式，注意数组名和数组元素作过程参数的区别。掌握变量的作用域、函数和过程的作用域。正确区分程序级，模块

17、级、过程级变量。熟悉递归函数的定义方法和求解方法。熟练使用函数、过程来简化程序设计二、实验要求通过此实验使学生掌握函数过程及子过程的定义，函数过程及子过程调用及参数传递方法，掌握函数的嵌套调用和递归调用。三、实验内容读程序写运行结果 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 iE

18、nd SubSub pa(b() As Integer) Dim i%, j%, t% For i = 1 To UBound(b) - 1 For j = 1 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

19、), c%(4), i As IntegerCls n = 0 a(1) = 1: a(2) = 2: a(3) = 1: a(4) = 4 b(1) = 3: b(2) = 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

20、(a(i), ""); Next iEnd SubSub p(b%) Print Tab(15 - 2 * n); b; Print Tab(18 + 2 * n); b; b = b + 1 n = n + 1End Sub问题：将p (a(i)改为p a(i) 输出结果又是什么？由此你能得出什么结论？ 2.编程题(1)编写一个过程，求任意矩阵的转置矩阵。(2)假定一串字符是由用空格隔开的单词构成的。编写一个函数用来给出字符串中包含的单词总数。(3)编写一个函数求的值。(4)设职工信息如表所示姓名性别职称工资奖金黄男技术员15849121李女工人154346龚女工程师18

21、899156吴男工人1346876柴女高工15872132写一个工程，使其能分别完成按姓名，性别，职称，工资，奖金排序并输出（每个人的所有信息必须同步输出）。排序应当体现选择法和冒泡法两种。 实验7常用控件、键盘事件和鼠标事件一、实验目的1掌握水平滚动条和垂直滚动条控件的基本属性和使用方法。2熟悉框架控件、单选钮、复选框控件的使用，掌握时钟控件的使用。3掌握列表框和组合框控件的基本属性使用方法。4掌握键盘和鼠标器事件中的参数含义和熟练对这些事件过程的编程。二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思路。3.上机调试程序。将

22、各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1判断问题 单选钮和复选框都有Value 属性，下列叙述正确的是：A)都是设置控件是否可用B)都是设置控件是否被选中C)单选钮的Value是逻辑值， 复选框的Value 是数值D)单选钮的Value是数值，复选框的Value 是逻辑值 结论： 列表框的列表内容是通过 属性来设置。A)Columns B)List C)Index D)Height设有以下事件代码： Private Sub Form_Mou

23、seDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print "Hefei" End IfEnd Sub为了能在窗体上显示“Hefei”字样，应如何操作？ 结论： Private Sub Form_Load() List1.AddItem "童凌": List1.AddItem "米卢" List1.AddItem "徐文祥": List1.AddItem &q

24、uot;张三峰" List1.AddItem "文天祥"End SubPrivate Sub Form_Click() List1.RemoveItem 1: List1.RemoveItem 3 List1.RemoveItem 2End Sub单击窗体后，列表框内还剩下那些项？ 结果： 2.编程题 （1）利用三个文本框（两个显示操作数，一个输入运算结果），两个垂直滚动条（给定操作数），一个组合框（放置操作符），一个列表框（保留操作题和结论）来实现四则运算的程序。（2）编制一个程序，测试鼠标的Down、 Up、 Click、 DblClick对一个对象而言，几个

25、事件同时存在的情况下，他们发生的先后顺序如何。（3）设计一个命令按钮的Click事件，使其完成这样的要求：计算1*2*3*4*5*18*20*22*1000，当积大于3000或被6整除时停止计算并在立即窗口中输出计算结果。实验8通用对话框、多重窗体一、实验目的1熟悉将同用对话框控件加入到工具箱窗口的方法。2掌握使用打开，另存为文件、颜色、字体、打印机对话框的方法。3掌握如何使用多重窗体和熟悉多文档界面，熟悉设置工程启动对象的方法。4掌握load、unload语句，show、hide方法二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的

26、编程思路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1读程序写运行结果设有两个窗体Form1和 Form2，Form1.Text1=" ", Form2.Text1=" Text1 "。它们的代码窗口的代码如下： Private Sub Form_load() 'Form1代码窗口代码 Text1.Text = Form2.Text1End SubPrivate Sub For

27、m_Initialize() 'Form2代码窗口代码 Text1 = "Hello "End SubPrivate Sub Form_load() Text1 = Text1 & " Hefei"End Sub当设定启动对象是Form1,则执行工程后，Form1.text1的文本内容是： 如果设定启动对象是Form2,则执行工程后，Form2.text1的文本内容是： 2编程题（1）利用对话框控件，编制一个程序，使得文本框的字体是选定的颜色，文本框的底色是选定的颜色。文本的字体、字号为选定的字体，字号，文本框的文本为“自古英雄出少年”。

28、（2）设计一个工程包含两个窗体，实现当移动第一个窗体上的标签时第二个窗体上的标签也按同样的方位和位移大小移动的要求。设第一个标签标题为“但愿人长久”，第二个标签标题为“千里共婵娟”。实验9菜单设计和工具栏设计一、实验目的1掌握使用菜单编辑器设计菜单的方法，熟悉菜单事件的编制。2掌握弹出式菜单的设计方法和激活方法。3熟悉动态菜单和窗口菜单的设计方法。4熟悉工具栏的设计。二、实验要求1.根据题目要求，进行各种程序测试与验证，并记录结果。2.按照题目的要求编写出程序，注意总结各题的编程思路。3.上机调试程序。将各程序输入计算机，并进行编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序

29、中的错误所在，然后修改程序，直至正确。4.详细记录数据的输入、输出信息，按要求写出实验报告。三、实验内容1编程题（1）设计一个菜单：形式如下：数值计算（C） 图形操作(P) 添加窗体(A) 系统维护(S)三角函数 正弦值 装入图形 添加窗体 设置口令对数值 余弦值 清除图形 删除窗体 清除窗体阶乘值(!) 双曲正弦值 -自然数对(T) 退出系统 Ctrl-F4菜单名称和菜单标题一致,只有子菜单添加窗体和删除窗体的菜单名为添加，删除。要求编写求阶乘值，自然数对子菜单、清除窗体子菜单、对退出系统子菜单程序。提示：自然数对是指两个自然数和与差都是平方数，如8和17的和是25，差是9，它们都是平方数

30、则8和17就称为自然数对。（2）设计一个弹出式称为“弹出菜单”。其下有显示时间、显示日期、中西文星期、当前目录、工程目录、秒表、暂停秒表。请完成菜单设计和菜单过程设计。要求秒表的秒数显示在Label2的标题上，当前目录、工程目录显示在Label1的标题上，其余显示在窗体标题上。实验10图形操作和图形方法一、实验目的1.掌握窗体和图片控件的默认坐标系和在其内自定坐标系的方法。2.掌握图片、图像控件的基本属性尤其是图片控件的AutoSize图像控件的Stretch和使用方法。3.掌握线状控件和形状控件的基本属性尤其是BorderColor、 BorderStyle、BorderWidth、FillStyle和FillColor五个共有属性和。4.掌握窗体和图片框的DrawWidth、 DrawStyle、FillStyle和FillColor属性。5.熟性划线(矩形)、画弧(扇形)、画园(椭圆)、画点和取点色的图形方法的语