大一VB实验内容

1、实验一界面设计如图1.1所示，在窗体上有1个文本框(Textl), 12个命令按钮(Command Commandll)，按下列要求设计界面，设置对象属性和编写事件过程。要求：(1)窗体标题设为“计算器”。(2)文本框Text1文本居右对齐，五号宋体。命令按钮 Command0Command9的Caption属性分别为09，Command10的 Caption属性为 .”，Command11的Caption属性为“ CE”，字体为五号宋体。单击“CE”按钮清空文本框。界面设计如图1.2所示，标签框的文本为黑体、28磅、居中，单击“前景”按钮， 使标签框的文本颜色为红色；单击“背景”按钮，使标签

2、框的背景颜色成蓝色；单击“还 原”按钮，使标签框的前景和背景还原到初始颜色；单击“结束”按钮结束程序运行。提示：可以用Visual Basic系统提供的颜色常量设置前景和背景颜色(红色vbRed、蓝 色vbBlue)，可以用当前窗体的ForeColor、BackColor属性还原标签框的前景和背景颜色。还原标签框前景的代码为：Label1.ForeColor = Form1.ForeColor3.在文本框中输入一个字符串，对字符串进行字体放大或缩小。单击“放大”按钮后 的运行界面如图1.3所示。要求：(1)单击“放大”按钮，将文本框中的字符串放大(放大成30磅)。 单击“缩小”按钮，将文本框中

3、的字符串缩小(缩小成6磅)。 单击“还原”按钮，字体大小恢复成初始状态(还原成9磅)。(4)在单击了某一个命令按钮后，该按钮呈暗淡色，图1.1实验1界面设计iij Fornl-1口1丸VB程序设计前晨I:背晨|:还原|:结束|图1.2实验2界面设计其他命令按钮可操作。图1.3实验3运行界面4.界面设计如图1.4所示，在文本框(Text1)中输入圆的半径，在文本框(Text2)和文本框(Text3)中显示圆的周长和面积的程序。要求：(1)运行程序后，在文本框中输入圆半径，单击“计算”按钮，在文本框(Text2、图1.5实验5界面设计Text3)显示圆周长和圆面积。“结束”按钮用于结束程序的运行(

4、其事件代码为End)。“清除”按钮用于清除三个文本框中的文本。要清除某个文本框中的文本可在“清 除”事件代码中把文本控件的Text属性设置为空即可(例如，Text1.Text=”又图1.4实验4界面设计5.界面设计如图1.5所示，单击“边框”按钮，在标签框上加上边框。单击“隐藏” 按钮，使标签框不可见。单击“移动”按钮，使标签框从当前位置向右移动200，向下移 动150。单击“显示”按钮，显示被隐藏的标签框。实验二设计图2.1的界面，运行时用数字、小数点和符号按钮输入数据并显示在文本框中， 单击函数按钮，在文本框中显示函数计算结果。编写事件过程及代码实现“计算器”中各 按钮的功能。提示：“一”

5、按钮是删除文本框最右边的一个字符，其代码如下：Textl = Left （Textl, Len （Textl） - 1）在文本框中输入一个三位数的整数，单击图形框，将这个数的百位、十位和个位分离成三个数，在图形框中显示输入的数、分离出来的三个数及三个数的平方和。界面设计如图2.2所示，单击“计算”按钮，计算两个数的除法（取两位小数）、整除和求余。单击“清除”按钮，清除所有文本框的内容，并使焦点回到Textl文本框。单 击“结束”按钮，结束程序运行。编写程序，在图形框中输出指定范围内（范围由文本框输入）的3个随机整数和这三个随机整数和的平方根，平方根保留四位小数。运行界面如图2.3所示。图2.1

6、实验1界面设计图2.2实验3界面设计图2.3实验4运行界面5.在文本框中输入若干字符，对输入的字符随机放大24倍或缩小13倍，还原时字体大小恢复成初始状态（9磅），不能连续进行放大或缩小操作。执行放大后，“放大” 按钮呈暗淡色（不可操作），“缩小”、还原”按钮有效。同样执行了缩小操作后，“缩小” 按钮不可操作，而“放大”、“还原”按钮有效。运行界面如图2.4所示。6.利用Shell函数调用相应的应用程序，单击“记事本”按钮图标，调用记事本应用 程序；单击“画图”按钮图标，调用画图应用程序；单击“计算器”按钮图标，调用计算 器应用程序。界面设计如图2.5所示。提示：在Windows操作系统中，“

7、记事本、画图、“计算器”是系统应用程序，其文件名分，可用Shell函数直接调用。别为(NotePad.exe、Mspaint.exe、Calc.exe)图2.4实验5运行界面图2.5实验6界面设计实验三在窗体上使用Print方法显示图3.1所示的界面。然后修改界面和代码，在图形框 中用Print方法显示相同的内容。提示：字体逆时针旋转90度是在所设置的字体前加“ ”符号，其语句为：对象名.FontName = 字体名”，如：Pcturel.Fontname = 隶书程序运行后单击“计算”按钮，弹出InputBox输入对话框函数，输入圆半径，在 文本框中显示输入的半径，分别在三个标签框中显示圆面

8、积、球表面积和球体体积。计算 圆面积、球表面积、球体体积的公式分别为：庶、4庶、4/3庶。运行界面如图3.2所示。在其他文本框中输出应付工资各种面额的张数。it Foral图3.3实验3界面设计 兔Y只，每只鸡有2只脚，界面设计如图3.3所示，在文本框Text1中输入实发工资，单击“付款方案”按钮，斜体f程序设计语言 黑体一程序设计语言 幼圆一程序设计语言 楷体T程序设计语； 隶书程序设计语言图3.1实验1运行界面图3.2实验2运行界面编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，每只兔有4只脚。若鸡和兔的总头数为H，总脚数为F。分别在两个文本框中输入总头数 和总脚数，在标签框中输出笼中鸡和

9、兔的数，界面设计如图3.4所示。某职工每天的工资是P元，本月他工作了 D天，本月应缴工会会费为月工资的 0.5%、房租水电费为月工资的1.5%、扣除公积金为月工资的3.5%及医药费27.83元。输 入日工资和月工作天数计算出职工本月实得工资，在标签框中保留两位小数输出（保留小数 可用Format格式函数）。界面设计如图3.5所示。界面设计如图3.6所示，在文本框中输入平面坐标系两点的坐标，单击计算在标签框中显示两点间的距离。单击清除，清空输入文本框（Text1、Text2、Text3、Text4）和输 出（Label6），并使焦点定位到Text1。计算坐标两点间的距离公式为：s =、(x -x

10、 )2 + (y -y )2b ab a图3.4实验4运行界面图3.5实验5运行界面图3.6实验6界面设计实验四编一模拟袖珍计算器的完整程序，运行界面如图4.2所示。 要求：（1）输入两个运算数和一个算术运算符，单击“计算”按钮，根据算术运算符决定所 做的运算。 为了保证程序的正常运行，用对文本框输入的内容进行检验（判断），若Textl、Text2输入非数字字符、除数为0或Text3输入无效运算符（有效运算符为“ +、-、*、/”），SetFocus方法使用MsgBox显示“输入错误！重新输入”，清除该文本框输入的内容，用焦点定位到该文本框后再输入。图4.1实验1运行界面及出错信息任意给定一年

11、，判断该年是否是闰年，并根据给出的月份来判断是什么季节和该月 有多少天。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。运行 界面如图4.2所示。设计一个应用程序，在文本框中显示文本内容，字体和字体大小的设置分别放在两个框 架中。实现字体和字体的大小设置。运行界面如图4.3所示。图4.3实验3运行界面界面设计如图4.4所示，左边5个文本框用于输入学生成绩，这些文本框都有一 个LostFocus事件过程用来检查是否在区间0，100内。如在此范围内，则可以继续输入其 他的数据，否则清除原来的数据并重新输入。底部的5个复选框用于选择参加合计的课程。 当用户输入了课程成绩，并选择了

12、需要参加合计的课程后，单击“合计”按钮显示计算结 果。设计一个类似于Windows操作系统的滚动屏幕保护程序如图4.5所示。要求用一 个时钟控件和一个滚动条控件调节和控制其滚动速度，文字的大小及距窗体顶端的距离是 随机的，从右向左连续滚动。图4.4实验4界面设计图4.5实验5运行界面实验五用For循环和Do循环在文本框中每行输出一个1010000之间被3除余2、被5 除余3、被7除余2的数，在图形框中输出其和及个数。界面设计如图5.1所示。若要求 文本框每行输出5个数，如何修改程序？规范文章，对输入的任意大小写文章进行整理，规则是：所有句子开头(句子结束 符为.？ ！)为大写字母，其他都是小写

13、字母。运行界面如图5.2所示。iiiForml-Ini x输入整理this IS A booKiVISxUlL Jd bASIC IS vERYGOOD.This is a tiuuk ! Visual basic is vegood.图5.2实验2运行界面S = 12 + 22 + 32 + + n2S = 2/1 + 3/2 + 5/3 + 8/5 + 13/8 + 21/13 + S = 1+ (1 x 2) + (1 x 2 x 3)+ + (1 x 2 x 3 x xn)S = 5+ 55 + 555 + 5555 + 55555 + 5555555 +S = 1 1/2 + 1/3

14、 1/4 + + 1/99 1/100 + 1/n图5.1实验1界面设计提示：设置一个变量，存放当前处理的字符的前一个字符，来判断前一个字符是否为 句子结束符。编程计算由下列公式确定的S值，其中n是用户输入的正整数，n可由InputBox 函数或文本框输入。(1)(2)(3)(4)(5)用迭代方法求任意一个正数a的平方根。用InputBox函数输入a，计算精度为10-5 (即 IX+1-Xlw10-5)。求平方根的迭代公式为：X+1 = (Xn + a/X)/2提示：Do While 的循环条件为 Abs (X+1 - X) 10-5。在窗体上显示如图5.3所示的“数字金字塔”。设计一个窗体，

15、界面如图5. 4所示。通过“添加”可从左边列表框控件List1中挑 选喜欢的球类项目至右边的列表框List2，同时将List1中已选择的项目删除；如果选错， 还可以通过“删除”按钮将其放回左边的列表框；通过“全部添加”可以一次选中所有的 体育项目至右边，通过“全部删除”按钮可以将右边列表中所有选项删除并放回左边。设计一个应用程序，实现“简单记事本”字号选择功能，要求使用组合框来实现选 择、添加、删除字号，在右边文本框中应用相应字号；单击“清空”按钮则清除组合框中 的字号选项。界面如图5.5所示。提示：文本框中的文字可在运行时输入；文本框的MutilLine属性设置为True ；新项 目可以在组

16、合框中的文本框里输入，只需用AddItem方法把组合框的Text属性值加入列表中，即可实现“添加”功能。图5.3实验5运行界面图5.4实验6运行界面字号：添加图5.5色声在惊 有无还不 画山鸟去来 远近春人删除| 清空|实验7运行界面实验六产生100个20100之间的随机整数，赋予A数组。在图形框中每10个输出该数 组，在标签框中输出数组元素中的最大值、最小值、平均值及大于平均值的元素个数。编一程序，把下面两组数据分别读入 A和B两个数组中，在窗体上输出这两个数组。然后把两个数组中对应下标的元素相加，即2 + 79，8 + 27把相加的结果放入C数组中，在窗体上输出该数组。最后在窗体上按降序输

17、出C数组。运行界面如图6.1 所示。A 数组：2，8，7，6，4，28，70，25； B 数组：79，27，32，41，57，66，78，80提示：用到Array、LBound （数组名）、UBound （数组名）函数。数组M是一维动态数组，由随机数函数产生100230的整数赋予数组中的各个元素，在图形框中输出排序后的数组；在标签框中显示出该数组的中值。运行界面如图 6.2所示。中值是先对数组元素排序，然后按下列规则求中值：当数组元素个数是奇数，中值中值为（M（N/ 2）+M（N / 2 + 1）/ 2。图6.2实验3运行界面数组的大小由输入的行数N确定。程序为M（N + 1）/ 2）；当数组

18、元素个数为偶数，iiiFornil第一个数组为： TOC o 1-5 h z 28764287025第二个数组为:792T32415766T380两个数组相对元素相加的结果为：813539476194148105相加的结果的降序为：148 105 94 81 61 4739 35图6.1实验2运行界面打印杨辉三角形，用数组存储各行数字，运行界面如图6.3所示。（杨辉三角形第j行有j个数字；每行的第一个、最后一个数均为1 ；其余数正好等于它上一行的同一列和前一列数之和。即a（i, j）=a（i-1, j-1）+a（i-1, j）。界面设计如图6.4所示，文本框用来输入5门课程的成绩，复选框供用户

19、选择参加 合计的课程。当用户输入了课程成绩，并选择了需要参加合计的课程后，单击“合计”按钮显示计算结果。输入成绩的文本框和复选框必须使用控件数组。图6.3实验4运行界面图6.4实验5界面设计声明一个6x6的数组，用随机函数产生1060的随机整数按列的方式对数组赋值。 完成下列要求：在图形框中输出该数组。求出其上三角元素和下三角元素(不包括对角线)的和。求出主对角线元素之积，辅对角线元素之和。求出靠边元素的和。取出不靠边元素生成一个新的方阵，在图形框中输出。利用一维数组统计一个班(30)学生某门功课09、1019、2029、90 99及100各分数段的人数。人数由文本框输入，分数由随机函数产生。

20、提示：声明一个有11个元素的一维数组a(0 to 10),把09分的学生人数存入a(0) 中，把1019分的学生数存入a(1)中把100分学生人数存入a(10)中。实验七编写用下面的公式计算兀的近似值的函数过程和子过程，在事件过程中调用函数过 程和子过程，并输出当n等于1000、10000、100000时兀的近似值。兀=4 (1 - 1/3 + 1/5 - 1/7 + + (1)nT /(2n - 1)编写求解一元二次方程的子过程，要求a、b、c及解x1、x2需对数传递，输入a、 b、c和输出x1、x2的操作在主程序中。界面设计如图7.1所示。提示：一元二次方程ax2 + bx + c = 0

21、的解通常有以下几种可能：当a = 0时，不是二次方程，不进行处理。当b2 - 4ac = 0时，方程有两个相等实根。当b2 - 4ac 0时，方程有两个不等实根。当b2 - 4ac 0时，方程有两个共轭复根。编一函数过程，对输入的正整数N，判断该数是否是回文数。函数的返回值类型为 布尔型。从文本框(Text1)中每输入一个数，按回车键后调用函数过程，然后在文本框(Text2) 中显示输入的数，若是回文数在该数后加一个“”，运行界面如图7. 2所示。提示：所谓回文数是指顺读与倒读相同的数，个位数认为是回文数(如，3553、878、44 是回文数)。回文数的求法，输入的数按字符型数据处理，利用Mi

22、d函数从两边往中间比较， 若相同，则是回文数。也可将输入的数逆转与原数进行比较，相同是回文数，否则不是。图7.1实验2界面设计图7.2实验3运行界面分别用子过程和函数过程编程将一个十进制整数转换成2、8、16进制字符串。运 行界面如图7. 3所示。提示：一个十进制整数N转换成R进制的数的算法是：将N不断除以R取余数，直到 商为0为止，以反序得到结果，即最后得到的余数在最高位。反序可以用连接字符串的赋值形式得到。若S为字符变量，M是每次除后得到的余数，则赋值语句可书写成S = M&S。图7.3实验4运行界面图7.4 实验5运行界面设计一个调色板应用程序，如图7.4所示。使用3个滚动条作为3种基本

23、颜色的输 入工具，合成的颜色显示在右边的颜色区。颜色区是一个文本框，用合成的颜色设置其 BackColor属性。当完成调色以后，单击“设置前景色”或“设置背景色”按钮设置右边 文本框的颜色。要求颜色变化用子过程实现。设计一个如图7.5所示的应用程序，当通过滚动条改变本金(10030000)、月份(1 12)或年利率(01)时，能立即计算出利息及利息+本金。要求利息、利息+本金的计算用过 程完成。提示：本息=本金x (1+ (年利率/100) x (月份数/12)把以前做过的实验汇总成一个工程，菜单运行界面参考图7.6。运行工程后，当选择“实验，菜单下的“实验1一3”选项时，则执行已编制的实验一的第3题的程序。图7.5实验6运行界面图7.6实验7运行界面实验八在窗体上创建一个文本框和三个命令按钮。要求程序运行时，单击命令按钮能弹出 颜色对话框，对文本框进行前景色、背景色及字体设置。界面设计如图8.1所示。建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个 文本框。运行界面如图8.2所示。要求：文件列表框能过滤文本文件。当单击了文件列表框中的某文本文件后，在Textl中显示文件名(包括路径