大一VB实验内容

实验一

1．界面设计如图1.1所示，在窗体上有1个文本框(Text1)，12个命令按钮(Command0～Command11)，按下列要求设计界面，设置对象属性和编写事件过程。

要求：(1) 窗体标题设为“计算器”。 (2) 文本框Text1文本居右对齐，五号宋体。 (3) 命令按钮Command0～Command9的Caption属性分别为0～9，Command10的Caption属性为“.”，Command11的Caption属性为“CE”，字体为五号宋体。

(4) 单击“CE”按钮清空文本框。

2．界面设计如图1.2所示，标签框的文本为黑体、28磅、居中，单击“前景”按钮，使标签框的文本颜色为红色；单击“背景”按钮，使标签框的背景颜色成蓝色；单击“还原”按钮，使标签框的前景和背景还原到初始颜色；单击“结束”按钮结束程序运行。

提示：可以用Visual Basic系统提供的颜色常量设置前景和背景颜色(红色vbRed、蓝色vbBlue)，可以用当前窗体的ForeColor、BackColor属性还原标签框的前景和背景颜色。

还原标签框前景的代码为：Label1.ForeColor = Form1.ForeColor

3．在文本框中输入一个字符串，对字符串进行字体放大或缩小。单击“放大”按钮后的运行界面如图1.3所示。

要求：(1) 单击“放大”按钮，将文本框中的字符串放大(放大成30磅)。 (2) 单击“缩小”按钮，将文本框中的字符串缩小(缩小成6磅)。 (3) 单击“还原”按钮，字体大小恢复成初始状态(还原成9磅)。

(4) 在单击了某一个命令按钮后，该按钮呈暗淡色，其他命令按钮可操作。

图1.1 实验1界面设计 图1.2 实验2 界面设计 图1.3 实验3 运行界面

4．界面设计如图1.4所示，在文本框(Text1)中输入圆的半径，在文本框(Text2)和文本框(Text3)中显示圆的周长和面积的程序。

要求： (1) 运行程序后，在文本框中输入圆半径，单击“计算”按钮，在文本框(Text2、Text3)显示圆周长和圆面积。

(2)“结束”按钮用于结束程序的运行(其事件代码为End)。

(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输入对话框函数，输入圆半径，在文本框中显示输入的半径，分别在三个标签框中显示圆面积、球表面积和球体体积。计算圆面积、球表面积、球体体积的公式分别为：?r2、4?r2、4/3?r3。运行界面如图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。计算坐标两点间的距离公式为：

s?(xb?xa)2?(yb?ya)2

图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 × 2 × 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

提示：Do While的循环条件为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运行界面

本文来源：https://www.bwwdw.com/article/aylg.html