计算机一级V B上机练习题2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。

运行时单击窗体，显示当前的年月日星期及时间。

2．设计一个数学函数程序，界面如图所示。

程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。

文本框始终处于选中状态。

3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。

在连续三次输入错误口令后，给出警告并结束运行。

4．设计一个程序，用户界面如下图所示。

程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。

5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。

6．设计一个程序，用户界面如下图所示。

程序运行后，单击Command1按钮，求出最大最小数。

7．设计一个100（随机函数产生）之内的四则运算题，界面如下。

8．设计一个窗体Forml，界面如右图所示。

编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。

9．界面如下图所示。

编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。

10．某工程运行时，图片框中图可以任意。

单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。

11．在文本框T1中打印100~999之间的所有水仙花数。

（该数为各位数字的立方和。

例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、 1，以后的每个数都是其前2个数之和。

编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。

13. 在窗体上画两个命令按钮分别求12+22+32+42+……+1002和1-3+5-7+…+(-1)n+1(2n-1)的累加和。

并将结果输出到Label1和Label2中。

14．在窗体上画两个文本框，其名为Text1和Text2，内容为空白，再画一个命令按钮，名为C1，标题为“逆置”。

单击“逆置”按钮后，将Text1中输入的内容逆置显示在Text2中。

界面如下图：15．界面如图所示。

编写适当的事件过程，将对选中的字符做如图命令按钮所要求的操作。

16．在窗体上画两个命令按钮分别求下述表达式的值S1=和 S2=并将S1、S2的结果输出到图片框。

17．设计如右图所示界面，单击时输出N!和1!+2!+…+N!结果，要求N!用过程实现。

18．界面如图所示。

编写适当的事件过程在窗片框中输出如下图形。

121)1(5131111--+-+-+n n )1(1431321211+++⋅+⋅+⋅n n19．界面如图所示。

编写适当的事件过程在图片框中输出图形。

20．界面如右图所示。

分别在Textl 和Text2中输入两个自然数x 、y ，用展转相除的方法求自然数x ，y 的最大公约数和最小公倍数。

在窗体上显示结果。

21．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。

Text1 Text2Label3Label422．设计一个程序运行界面如图所示，编写适当的事件过程。

统计输入信息中有多少英文大写字母、小写字母和数字字符。

23．界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15）。

24. 编写一个程序，输出一个5*5的矩阵，该矩阵主、负对角线上元素均为1，其余元素均为2，执行结果如图所示。

25．设计界面如下图所示，单击各按钮在图片框上显示不同的图形。

26．仿照23题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。

27．设计界面如图所示，运行时，当移动滚动条时，在标签中能正确显示摄氏、华氏温度值【C=5（F-32）/9】28．使用Timer控件控制标签的位置，以达到滚动的效果。

设计界面如下图所示。

29．设计一个窗体Forml，编写适当的事件过程。

控制Text1中背景色和字体格式。

(字体默认为宋体，内容为“欢迎学习VB”)程序运行界面如图所示。

30．使用分组框，输入一人资料，编写适当的事件过程，程序运行结果如上图所示。

31．设计如图所示的界面，在文本框中输入院校名，单击“添加项目”可将院校名添加到列表框中，单击“添加项目”、“清除”可对列表框中项目做相应处理，同时院校数要相应变化。

（更符合实际的设计，当“添加项目”时，“添加项目”、“清除”禁用等）32．利用两个列表框控件，设计选项移动窗体如上图。

编写适当的事件过程实现功能要求。

33．编写一个程序，实现在标签中自动依次显示“祝你”，“考试”，“成功”。

34．编写一个用过程计算实发工资的程序，界面如下图，在文本框中输入基本工资、课时酬金；若需要扣除水电费和给予奖金则在相应的文本框中输入，单击“实发工资”，则在标签中显示结果。

35．有一个5×5的矩阵，各元素都是随机产生的两位整数，找出其中最大值、最小值以及它们的下标并求出平均值。

（要求矩阵输出到列表框中显示，其最大值、最小值以及它们的下标和平均值的结果显示在图片框中）。

（如上图）36．设计如下图所示界面，单击时输出相应结果，2~N之间素数在列表框中输出，要求判断素数用过程实现。

37．用函数或过程找出1~9999之间的全部“同构数”（“同构数”是指此整数恰好出现在整数平方的右端）放到文本框中。

设计界面如上图所示。

38．窗体上有一个名为L1的列表框，通过属性向列表框添加3个项目，分别是“123、456、789”。

当启动后，每次双击列表框中任何一项，则总在最后添加一项，该项是所有项之和。

界面如下图。

39．设计如上界面，编写适当的事件过程。

程序运行后，每过1秒钟文本框的背景色能够由红到绿，绿到蓝，再由蓝到红循环变化。

40．编写一个程序，用随机函数产生4行5列的两位整数并输出。

然后分别实现将第1行和第3行数据交换和第2列和第4列数据交换，输出交换前和交换后的结果。

（利用图片框）41．生成两个0~10之间的随机整数矩阵，分别放入两个列表框，求两个矩阵之和放入第三个列表框。

如下图所示。

42．生成10个两位数的随机整数，放入A数组，单击显示按钮全部显示在文本框1，单击排序按钮由小到大排序，显示在文本框2。

（如上图）43．如下图，单击显示按钮，将20个随机两位整数，输出在LIST1中；单击排序按钮，将使用子过程降序排序的结果输出在LIST2中。

44．设计如上图的程序，通过菜单完成加减乘除运算。

45．编写程序，实现矩阵转置，即将一个n m的矩阵（由随机两位整数产生）的行和列互换。

单击显示按钮将原矩阵放在图片框1，单击转置按钮将转置后的矩阵输出在图片框2。

46．建立一个主菜单，名称为OP，该菜单下有两个子菜单，名称分别为Dis和Hid，界面如下图所示，完成相应功能显示或隐藏文本框。

47．编写适当的事件过程,在窗体上输出相应行数的杨辉三角形。

点击窗体弹出InputBox对话框，在对话框中输入行数，打印出如上图所示形态的杨辉三角形。

48．在窗体上画一个文本框，再建立一个弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，在运行时，当用鼠标右击文本框时弹出此菜单，选中一个菜单项后，则文本框中的文字发生相应的变化。

49．在窗体上建立一个菜单，主菜单项为“项目”，它有两个子菜单项，标题为“添加项目”和“删除项目”，然后画一个列表框和一个文本框。

程序运行后，如果执行“添加项目”，则从键盘上输入要添加到列表框中的项目；如果执行“删除项目”，则从键盘上输入要删除的项目，从列表框中删除该项目。

（文本框中要显示添加和删除的项目内容）50．利用Function 计算N ！，求组合数)!(!!n m n m c nm -=。

在文本框1中输入n ，文本框2中输入m ，单击命令按钮，在文本框3中显示组合结果。

51．编写函数过程计算1+2+3+。

+n ，运行时输入m ，n ，p 的值，单击“Y=”输出结果（保留三位小数）。

)...321()...321()...321(p n m y +++++++++++++=如下图所示。

52．在图片框P1中置一圆，在窗体上放置水平和垂直滚动条，运行时拖动滚动条可使圆在图片框中上下左右移动。

（如上图所示）53．利用控件数组Text1、Text2将Text1中随机产生的数，交换到Text2中，界面如下图所示。

54．在一工程中有两窗体，界面如图所示，试完成相应功能。

55．建立一个比赛评分程序。

在窗体建立一个名为TEXT1的文本框数组和一个名为T2的文本框及名名为C1的命令按钮。

运行时在文本框数组中输入7个分数，求最后的结果。

（去掉一个最高分和一个最低分）56．设计一个计时器，能够设置倒计时的时间，并进行倒计时。

如图所示：57．设计下面界面，当按下“阴影”按钮时，标签中的文字加阴影，按下“移动”按钮时，标签在窗体从左向右移动。

58．设计上面界面，按“开始”按钮使标签在窗体左右移动，按“停止”按钮停止标签移动。

59．设计下面界面在列表框里输入5条记录，在TEXT1中输入要查找的人姓名，找到在TEXT2中显示该人的信息，若未找到，在TEXT2中显示“查无此人！”。

60．编制求两数的大数Function过程，求多个数的最大数。

按“输入”按钮开始输入，把输入的数存入数组A中放入文本框，按“求最大数”按钮时，调用Functin过程求最大数。

如下面界面：。