《程序设计基础—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命名并保存。

⑵用Excel建立如下表格：①利用公式计算学生的总分、平均分；②将表中所有的数据选择居中；③利用该表格中的姓名和计算机的成绩做簇状图形。

将做好的Excel表以2.xls命名并保存。

将本次实验的两个文件上传到ftp上自己的文件夹中。

实验3 顺序、选择结构程序设计一、 实验目的1．掌握各类表达式、赋值语句的书写规则。

2．掌握常用函数的使用方法、掌握InputBox 和MsgBox 函数的使用方法和返回值的使用。

3．熟悉利用立即窗口来测试常用函数，各类表达式的计算结果。

了解如何察看 表达式 语句的执行结果。

4．掌握If ～ 语句，If ～Then ～语句If ～Then ～EndIf 语句和If ～Then ～ElseIf ～…EndIf 语句的使用规则和执行流程。

掌握Iif 函数，Choose 函数的使用规则和方法。

5．掌握 Select Case ～ Case ～…Case Else ～End Select 语句的使用规则和执行流程。

掌握Switch 函数的使用规则和方法。

二、实验要求通过此实验使学生熟悉 VB6.0 的集成环境及基本操作，掌握一个 VB 应用程序的组成及创建方法。

掌握 VB 赋值语句、用户交互函数 Inputbox 与 Msgbox 的使用，表达式、函数。

掌握VB 程序错误捕获与程序调试方法。

三、实验内容1．书写以下表达式： ① e n m ba x ||6.305.8log 3sin32---+⨯+⨯② x 和y 是一个落在第一或第三象限内的点坐标 ③ a 是100以内的整数 2．求以下表达式的值①设a=3,b=4,c=9表达式sqr(abs(b*b-4*a*c))<0②设标签on= "oppo,my OPPO music my Music 珍珠玉盘"，则 Right(Label1,3) Left(Label1,4) Mid(Label1,9,4)Instr(Label1，"OPPO")Instr(Instr(Label1，"m")+1,Label1, "m") Len(on) LenB(on)③ "315"+23 & "12 mod 7" ④ "12e2"+23 & 315 mod 2 ⑤ 7 and -13．选择回答①InputBox 函数返回值的类型为:A)数值 B)字符串 C)变体 D)数值或字符串(视输入的数据而定) ②表达式4+5＼6*7/8 Mod 9的值是: A)4 B)5 C)6 D)7③语句Print Format(32548.5,"000.000.00")的输出结果是: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)Enabled 4．编程题（1）编制一段程序完成以下分段函数的求值，自变量的值通过InputBox 函数完成。

如果分段函数无定义用MsgBox 函数给予提示。

为其它无定义X X Y X X COSX exx 604554515150ln20≤≤+=≤≤+（2）当一个文本框控件获得焦点的时候，只要在键盘上按下一个具有ASCII 码的按键就会触发一次它的KeyPress 事件。

请在这个事件中编一段代码使文本框的文本属性只能含有1，2，3，4，m ，j 字符。

(3)设窗口内的命令按钮“加倍”具有如下的功能： 将文本框 Text1 中输入的数值加倍后，在文本框 Text2 中显示其结果，请写出该命令按钮的单击事件过程内的程序代码?实验4循环结构程序设计一、实验目的1．掌握对For循环和For循环的循环次数计算方法。

2．掌握各种形式的DO循环的使用规则和执行流程。

3．熟练使用Exit For 、Exit Do 、Goto 语句和循环嵌套。

二、实验要求通过此实验使学生掌握For…Next 语句及Do…Loop 循环语句的简单使用，掌握各种结构的嵌套使用以及循环结构程序设计综合应用。

三、实验内容1.读程序写结果①Private Sub Command1_Click()Dim m%, a%, n!For m = 1 To 10 Step 2a = 0For n = 0.5 To 9.5 Step 2a = a + 2Next nNext mPrint aEnd Sub 结果：若改n!为n% 输出又是多少？②Private Sub Command1_Click()Dim i As Integer, x As Integer, j%, k%, w%Text1 = ""For i = 1 To 4If x > 12 Then Exit ForFor j = 1 To 3For k = 1 To 2x = x + 3= + Trim(Str(x))w = xNext kNext jNext iPrint wEnd Sub 结果：w③Private Sub Form_Click()Dim k As IntegerDim n%, m%n = 5: m = 1Do Until k > n（L3.4 编程题（4）的运行界面）m = m * 2k = k + 1LoopPrint k, mEnd Sub 结果： k m2.编程题（1）编写程序，计算 sinx=x-x^3/3!+x^5/5!-x^7/7!+....直到第n项的绝对值小于10^-8（2）用穷举法求两个自然数m 、n的最大公约数（3）编写程序输出1000之内的所有完数."完数"是指一个数恰好'等于它的因子之和。

如 6的因子为1，2，3。

而6=1+2+3，因此 6是完数。

（4）编写一个程序是能输出如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 = 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 jPrint String(20, "-")For i = 3 To 1 Step –1 结果:For j = 3 To 1 Step -1Print Format(d(i, j), "@@@@@");Next j: Print: Next IEnd Sub② Private Sub Form_Click()Dim x%(3, 5), i%, j%For i = 1 To 3For j = 1 To 5x(i, j) = x(i - 1, j - 1) + i + jNext jNext iPrint x(3, 5), UBound(x, 2)End Sub 结果:③ Option Base 1Private Sub Command1_Click()Dim y, i!, sum As Integery = Split("7,8,9,10", ",")For i = 1 To 2 Step 0.5sum = sum + y(i)Next iPrint sum, y(0)End Sub 结果:如果把 sum As Integer 改为sum As Variant则结果：2.编程题⑴编制一个能产生100个既有正、负、和零的数随机整数，并统计显示这些中正、负、和零数的个数。