大一VB实验内容Word格式文档下载.docx

大一VB实验内容Word格式文档下载.docx

《大一VB实验内容Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《大一VB实验内容Word格式文档下载.docx（14页珍藏版）》请在冰豆网上搜索。

（3）“清除”按钮用于清除三个文本框中的文本。

要清除某个文本框中的文本可在“清除”事件代码中把文本控件的Text属性设置为空即可（例如，Text1.Text=””）。

图1.4实验4界面设计图1.5实验5界面设计

5．界面设计如图1.5所示，单击“边框”按钮，在标签框上加上边框。

单击“隐藏”按钮，使标签框不可见。

单击“移动”按钮，使标签框从当前位置向右移动200，向下移动150。

单击“显示”按钮，显示被隐藏的标签框。

实验二

1．设计图2.1的界面，运行时用数字、小数点和符号按钮输入数据并显示在文本框中，单击函数按钮，在文本框中显示函数计算结果。

编写事件过程及代码实现“计算器”中各按钮的功能。

“←”按钮是删除文本框最右边的一个字符，其代码如下：

Text1=Left（Text1,Len（Text1）-1）

2．在文本框中输入一个三位数的整数，单击图形框，将这个数的百位、十位和个位分离成三个数，在图形框中显示输入的数、分离出来的三个数及三个数的平方和。

3．界面设计如图2.2所示，单击“计算”按钮，计算两个数的除法（取两位小数）、整除和求余。

单击“清除”按钮，清除所有文本框的内容，并使焦点回到Text1文本框。

单击“结束”按钮，结束程序运行。

4．编写程序，在图形框中输出指定范围内（范围由文本框输入）的3个随机整数和这三个随机整数和的平方根，平方根保留四位小数。

运行界面如图2.3所示。

图2.1实验1界面设计图2.2实验3界面设计图2.3实验4运行界面

5．在文本框中输入若干字符，对输入的字符随机放大2～4倍或缩小1～3倍，还原时字体大小恢复成初始状态（9磅），不能连续进行放大或缩小操作。

执行放大后，“放大”按钮呈暗淡色（不可操作），“缩小”、“还原”按钮有效。

同样执行了缩小操作后，“缩小”按钮不可操作，而“放大”、“还原”按钮有效。

运行界面如图2.4所示。

6．利用Shell函数调用相应的应用程序，单击“记事本”按钮图标，调用记事本应用程序；

单击“画图”按钮图标，调用画图应用程序；

单击“计算器”按钮图标，调用计算器应用程序。

界面设计如图2.5所示。

在Windows操作系统中，“记事本”、“画图”、“计算器”是系统应用程序，其文件名分别为（NotePad.exe、Mspaint.exe、Calc.exe），可用Shell函数直接调用。

图2.4实验5运行界面图2.5实验6界面设计

实验三

1．在窗体上使用Print方法显示图3.1所示的界面。

然后修改界面和代码，在图形框中用Print方法显示相同的内容。

字体逆时针旋转90度是在所设置的字体前加“@”符号，其语句为：

对象名.FontName=“@字体名”，如：

Pcture1.Fontname=“@隶书”

2．程序运行后单击“计算”按钮，弹出InputBox输入对话框函数，输入圆半径，在文本框中显示输入的半径，分别在三个标签框中显示圆面积、球表面积和球体体积。

计算圆面积、球表面积、球体体积的公式分别为：

pr2、4pr2、4/3pr3。

运行界面如图3.2所示。

3．界面设计如图3.3所示，在文本框Text1中输入实发工资，单击“付款方案”按钮，在其他文本框中输出应付工资各种面额的张数。

图3.1实验1运行界面图3.2实验2运行界面图3.3实验3界面设计

4．编写程序，求解鸡兔同笼问题。

一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。

若鸡和兔的总头数为H，总脚数为F。

分别在两个文本框中输入总头数和总脚数，在标签框中输出笼中鸡和兔的数，界面设计如图3.4所示。

5．某职工每天的工资是P元，本月他工作了D天，本月应缴工会会费为月工资的0.5%、房租水电费为月工资的1.5%、扣除公积金为月工资的3.5%及医药费27.83元。

输入日工资和月工作天数计算出职工本月实得工资，在标签框中保留两位小数输出（保留小数可用Format格式函数）。

界面设计如图3.5所示。

6．界面设计如图3.6所示，在文本框中输入平面坐标系两点的坐标，单击计算在标签框中显示两点间的距离。

单击清除，清空输入文本框（Text1、Text2、Text3、Text4）和输出（Label6），并使焦点定位到Text1。

计算坐标两点间的距离公式为：

图3.4实验4运行界面图3.5实验5运行界面图3.6实验6界面设计

实验四

1．编一模拟袖珍计算器的完整程序，运行界面如图4.2所示。

（1）输入两个运算数和一个算术运算符，单击“计算”按钮，根据算术运算符决定所做的运算。

（2）为了保证程序的正常运行，用对文本框输入的内容进行检验（判断），若Text1、Text2输入非数字字符、除数为0或Text3输入无效运算符（有效运算符为“+、-、*、/”），用MsgBox显示“输入错误！

重新输入”，清除该文本框输入的内容，用SetFocus方法使焦点定位到该文本框后再输入。

图4.1实验1运行界面及出错信息

2．任意给定一年，判断该年是否是闰年，并根据给出的月份来判断是什么季节和该月有多少天。

闰年的条件是：

年号能被4整除但不能被100整除，或者能被400整除。

运行界面如图4.2所示。

3．设计一个应用程序，在文本框中显示文本内容，字体和字体大小的设置分别放在两个框架中。

实现字体和字体的大小设置。

运行界面如图4.3所示。

图4.2实验2运行界面图4.3实验3运行界面

4．界面设计如图4.4所示，左边5个文本框用于输入学生成绩，这些文本框都有一个LostFocus事件过程用来检查是否在区间[0，100]内。

如在此范围内，则可以继续输入其他的数据，否则清除原来的数据并重新输入。

底部的5个复选框用于选择参加合计的课程。

当用户输入了课程成绩，并选择了需要参加合计的课程后，单击“合计”按钮显示计算结果。

5．设计一个类似于Windows操作系统的滚动屏幕保护程序如图4.5所示。

要求用一个时钟控件和一个滚动条控件调节和控制其滚动速度，文字的大小及距窗体顶端的距离是随机的，从右向左连续滚动。

图4.4实验4界面设计图4.5实验5运行界面

实验五

1．用For循环和Do循环在文本框中每行输出一个10～10000之间被3除余2、被5除余3、被7除余2的数，在图形框中输出其和及个数。

界面设计如图5.1所示。

若要求文本框每行输出5个数，如何修改程序？

2．规范文章，对输入的任意大小写文章进行整理，规则是：

所有句子开头（句子结束符为.？

！

）为大写字母，其他都是小写字母。

运行界面如图5.2所示。

图5.1实验1界面设计图5.2实验2运行界面

设置一个变量，存放当前处理的字符的前一个字符，来判断前一个字符是否为句子结束符。

3．编程计算由下列公式确定的S值，其中n是用户输入的正整数，n可由InputBox函数或文本框输入。

（1）S=12+22+32+…+n2

（2）S=2/1+3/2+5/3+8/5+13/8+21/13+…

（3）S=1+（1×

2）+（1×

2×

3）+…+（1×

3×

…×

n）

（4）S=5+55+555+5555+55555+5555555+…

（5）S=1-1/2+1/3-1/4+…+1/99-1/100+…+1/n

4．用迭代方法求任意一个正数a的平方根。

用InputBox函数输入a，计算精度为10-5（即|Xn+1-Xn|≤10-5）。

求平方根的迭代公式为：

Xn+1=（Xn+a/Xn）/2

DoWhile的循环条件为Abs（Xn+1-Xn）>

10-5。

5．在窗体上显示如图5.3所示的“数字金字塔”。

6．设计一个窗体，界面如图5.4所示。

通过“添加”可从左边列表框控件List1中挑选喜欢的球类项目至右边的列表框List2，同时将List1中已选择的项目删除；

如果选错，还可以通过“删除”按钮将其放回左边的列表框；

通过“全部添加”可以一次选中所有的体育项目至右边，通过“全部删除”按钮可以将右边列表中所有选项删除并放回左边。

7．设计一个应用程序，实现“简单记事本”字号选择功能，要求使用组合框来实现选择、添加、删除字号，在右边文本框中应用相应字号；

单击“清空”按钮则清除组合框中的字号选项。

界面如图5.5所示。

文本框中的文字可在运行时输入；

文本框的MutilLine属性设置为True；

新项目可以在组合框中的文本框里输入，只需用AddItem方法把组合框的Text属性值加入列表中，即可实现“添加”功能。

图5.3实验5运行界面图5.4实验6运行界面图5.5实验7运行界面

实验六

1．产生100个20～100之间的随机整数，赋予A数组。

在图形框中每10个输出该数组，在标签框中输出数组元素中的最大值、最小值、平均值及大于平均值的元素个数。

2．编一程序，把下面两组数据分别读入A和B两个数组中，在窗体上输出这两个数组。

然后把两个数组中对应下标的元素相加，即2+79，8+27……把相加的结果放入C数组中，在窗体上输出该数组。

最后在窗体上按降序输出C数组。

运行界面如图6.1所示。

A数组：

2，8，7，6，4，28，70，25；

B数组：

79，27，32，41，57，66，78，80

用到Array、LBound（数组名）、UBound（数组名）函数。

3．数组M是一维动态数组，由随机数函数产生100～230的整数赋予数组中的各个元素，在图形框中输出排序后的数组；

在标签框中显示出该数组的中值。

运行界面如图6.2所示。

中值是先对数组元素排序，然后按下列规则求中值：

当数组元素个数是奇数，中值为M（（N+1）/2）；

当数组元素个数为偶数，中值为（M（N/2）+M（（N/2+1））/2。

图6.1实验2运行界面图6.2实验3运行界面

4．打印杨辉三角形，用数组存储各行数字，数组的大小由输入的行数N确定。

程序运行界面如图6.3所示。

（杨辉三角形第j行有j个数字；

每行的第一个、最后一个数均为1；

其余数正好等于它上一行的同一列和前一列数之和。

即a（i,j）=a（i-1,j-1）+a（i-1,j）。

5．界面设计如图6.4所示，文本框用来输入5门课程的成绩，复选框供用户选择参加合计的课程。

输入成绩的文本框和复选框必须使用控件数组。

图6.3实验4运行界面图6.4实验5界面设计

6．声明一个6×

6的数组，用随机函数产生10～60的随机整数按列的方式对数组赋值。

完成下列要求：

（1）在图形框中输出该数组。

（2）求出其上三角元素和下三角元素（不包括对角线）的和。

（3）求出主对角线元素之积，辅对角线元素之和。

（4）求出靠边元素的和。

（5）取出不靠边元素生成一个新的方阵，在图形框中输出。

7．利用一维数组统计一个班（30）学生某门功课0～9、10～19、20～29、…、90～99及100各分数段的人数。

人数由文本框输入，分数由随机函数产生。

声明一个有11个元素的一维数组a（0to10），把0～9分的学生人数存入a（0）中，把10～19分的学生数存入a

（1）中……把100分学生人数存入a（10）中。

实验七

1．编写用下面的公式计算p的近似值的函数过程和子过程，在事件过程中调用函数过程和子过程，并输出当n等于1000、10000、100000时p的近似值。

p=4（1-1/3+1/5-1/7+…+（-1）n-1/（2n-1））

2．编写求解一元二次方程的子过程，要求a、b、c及解x1、x2需对数传递，输入a、b、c和输出x1、x2的操作在主程序中。

界面设计如图7.1所示。

一元二次方程ax2+bx+c=0的解通常有以下几种可能：

（1）当a=0时，不是二次方程，不进行处理。

（2）当b2-4ac=0时，方程有两个相等实根。

（3）当b2-4ac>

0时，方程有两个不等实根。

（4）当b2-4ac<

0时，方程有两个共轭复根。

3．编一函数过程，对输入的正整数N，判断该数是否是回文数。

函数的返回值类型为布尔型。

从文本框（Text1）中每输入一个数，按回车键后调用函数过程，然后在文本框（Text2）中显示输入的数，若是回文数在该数后加一个“※”，运行界面如图7.2所示。

（1）所谓回文数是指顺读与倒读相同的数，个位数认为是回文数（如，3553、878、44是回文数）。

（2）回文数的求法，输入的数按字符型数据处理，利用Mid函数从两边往中间比较，若相同，则是回文数。

也可将输入的数逆转与原数进行比较，相同是回文数，否则不是。

图7.1实验2界面设计图7.2实验3运行界面

4．分别用子过程和函数过程编程将一个十进制整数转换成2、8、16进制字符串。

运行界面如图7.3所示。

（1）一个十进制整数N转换成R进制的数的算法是：

将N不断除以R取余数，直到商为0为止，以反序得到结果，即最后得到的余数在最高位。

（2）反序可以用连接字符串的赋值形式得到。

若S为字符变量，M是每次除后得到的余数，则赋值语句可书写成S=M&

S。

图7.3实验4运行界面图7.4实验5运行界面

5．设计一个调色板应用程序，如图7.4所示。

使用3个滚动条作为3种基本颜色的输入工具，合成的颜色显示在右边的颜色区。

颜色区是一个文本框，用合成的颜色设置其BackColor属性。

当完成调色以后，单击“设置前景色”或“设置背景色”按钮设置右边文本框的颜色。

要求颜色变化用子过程实现。

6．设计一个如图7.5所示的应用程序，当通过滚动条改变本金（100～30000）、月份（1～12）或年利率（0～1）时，能立即计算出利息及利息+本金。

要求利息、利息+本金的计算用过程完成。

本息=本金×

（1+（年利率/100）×

（月份数/12））

7．把以前做过的实验汇总成一个工程，菜单运行界面参考图7.6。

运行工程后，当选择“实验一”菜单下的“实验1-3”选项时，则执行已编制的实验一的第3题的程序。

图7.5实验6运行界面图7.6实验7运行界面

实验八

1．在窗体上创建一个文本框和三个命令按钮。

要求程序运行时，单击命令按钮能弹出颜色对话框，对文本框进行前景色、背景色及字体设置。

界面设计如图8.1所示。

2．建立一个文本浏览器。

窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框。

运行界面如图8.2所示。

（1）文件列表框能过滤文本文件。

（2）当单击了文件列表框中的某文本文件后，在Text1中显示文件名（包括路径），在Text2中显示该文件内容。

（3）当双击某文本文件后，调用记事本对文本文件进行编辑。

（1）第

（2）步利用顺序文件的读入语句，将磁盘上的文件读入，并在文本框显示。

（2）第（3）步调用Shell函数执行记事本程序。

图8.1实验1界面设计图8.2实验2运行界面

3．设计如图8.3所示的应用程序。

单击“建立文件”按钮，则分别用Print#和Write#语句将四个同学的学号、姓名和成绩写入文件Stu1.dat和Stu2.dat；

单击“读取文件”按钮，则用LineInput语句将两个文件中的数据在相应的文本框中显示出来。

4．设计一应用程序，用于输入若干个学生的成绩，数据按随机访问模式存放，其界面如图8.4所示。

“记录号”和“总分”自动显示，各数据项的长度由读者自己确定。

图8.3实验3界面设计图8.4实验4界面设计

5．设计一应用程序，浏览第5题随机文件中的记录，程序运行界面如图8.5所示。

该窗体中的所有文本框只能显示内容，不能进行编辑。

6．把前两题汇总成一个工程，主界面设计如图8.6所示。

单击“输入记录”按钮时调用第5题输入记录窗体，单击“浏览记录”按钮调用第6题浏览记录窗体。

图8.5实验5界面设计图8.6实验6运行界面

实验九

1．建立一个Access数据库Studb.mdb，内含Student表，表结构如表所示。

表Student表结构

字段名

类型和宽度

学号

文本，8

姓名

性别

文本，2

出生日期

日期

团员否

是/否

年龄

数字，2

籍贯

文本，20

入学成绩

数字，5

奖学金

个人简历

备注

2．自行设计用户界面，用DATA数据控件访问数据库，在文本框中输入学号，对指定学号的学生记录查询显示。

3．用命令按钮控件数组、文本框、标签框、单选按钮和复选框构成界面，用ADO数据控件，在设计时设置或在程序代码中访问数据库。

遍历Student表中的记录，界面设计如图所示。

图9.1界面设计

4．自行设计用户界面，用DATA数据控件访问数据库的方法，对Student表的记录进行编辑（修改、删除、添加）。