VB习题

VB习题库

1.1 简单的动画演示。一行文字“欢迎使用VB”在具有背景图案的窗体中上下移动。移动方

法有两种：单击“手动”按钮一次，移动50twip单位；单击 “自动”按钮，连续移动；

当内容超出窗体范围，进行反弹。

2.1 编写一个对输入字符进行转换的程序。转换规则为，将其中的大写字母转换成小写字母，

小写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符，马上

就进行判断和转换。

2.4 窗体无最大化按钮和最小化按钮，在窗体装入时，在窗体的标题栏显示“装入窗体”，并

在窗体装入Windows墙纸作为背景；当用户单击窗体，在标题栏显示“单击”，在窗体显

示“欢迎使用VB”；当用户双击窗体，在标题栏显示“鼠标双击”，去除窗体的背景图案，

并显示“结束使用VB”。程序运行界面依次如下。

2.5 利用两个标签控件，显示具有浮雕效果的文字。如下图。

2.7 要求输入数字数据。当输入结束时，对于输入正确的数据，显示正确信息；对输入的非

数字数据显示错误信息、清除文本框中的内容，并使焦点重新回到文本框。

1

2.8 建立一个允许剪切、复制和粘贴的简单便笺板程序。要求：文本框初始为空白，程序运

行中由用户输入正文，其中“剪切”、“复制”、“粘贴”按钮以图形形式显示，并且按钮

的有效性应根据运行过程随状态而作相应调整，“结束”按钮以标准形式显示。

2.9 用Print方法输出如图所示图形。

2.10 移动图形示例，程序运行时在图形框装入图形，单击图形框使图形框起始点（左上角）

移到窗体的中心，同时图形缩小50%。

4.1 编一帐号和密码输入的检验程序。对输入的帐号和密码规定如下：

（1） 帐号不超过6位数字，密码4位字符，在本题中，密码假定为“ssmu”。

（2） 密码输入时在屏幕上不显示输入的字符，而以“*”代替。

（3） 当输入不正确，如帐号为非数字字符，密码不正确等，显示有关信息，见下图。

若单击“重试”按钮，则清除原输入的内容，焦点定位在原输入的文本框，再输

入，若单击“取消”按钮，则停止程序的运行。

4.2 已知变量strC中存放了一个字符，判断该字符是字母、数字还是其他字符，并作相应的

显示。

4.3 已知输入某课程的百分制成绩mark，要求显示对应五级制的评定，评定条件如下：

2

优 mark>=90

良 80≤mark＜90

等级＝ 中 70≤mark＜80

及格 60≤mark＜70

不及格 mark＜60

4.4 输入X、Y、Z三个数，比较它们的大小并排列输出，使得X>Y>Z。

4.7 由计算机来当一年级的算术老师，要求给出一系列的1~10的操作数和运算符，学生输入

该题的答案，计算机根据学生的答案判断正确与否，当结束时给出成绩。



4.8 计算并输出1-100的奇数和。

4.9 运用循环控制变量输出结果（如图）。

4.10 将可打印的ASCII码制成表格输出，使每个字符与它的编码值对应起来，每行打印7个

字符。

4.11 用辗转相除法求两自然数m,n的最大公约数和最小公倍数。

4.12 打印九九乘法表：（1）完整形式；（2）打上三角形式；（3）下三角形式。

3

4.13 求自然数e的近似值并输出，要求其误差小于0.00001，近似公式为：

n

111111

e1



1



1!2!3!n!

i0

i!

i1

i!

4.14 按每行8个数字依次输出100以内的素数。

4.15 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱

要求卖100只鸡，编程列出所有可能的够鸡方案。

4.16 猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下

的桃子的一半多一个；以后每天都吃尚存桃子的一半零一个，到第7天早上要吃时只剩

下一个了，问小猴那天共摘下了多少个桃子？编程列出每天所剩余的桃子数。

4.17 有一根长度为321米的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为

17米和27米，每种至少1段，问分隔成a，b各多少断后，剩余的残料r最少？

5.2 输入若干学生（学生总人数小于100）的成绩，计算平均分和高于平均分的人数。

5.3 建立含有4个命令按钮的控件数组，当单击某个命令按钮，分别显示不同的图形或结束

操作。

控件设置

默认控件名

Command1

Command2

Command3

Command4

Picture1

4

下标（Index）

0

1

2

3

空白

标题（Caption）

直线

矩形

圆

结束

无定义

5.4 建立一个类似国际象棋的棋盘。要求：

（1） 在设计时窗体上放一个Label控件，设置其Index属性为0，BackColor为黑色。

（2） 程序运行时自动产生64个Label控件数组元素，BackColor黑白交替。

（3） 当程序运行后单击某个棋格，改变BackColor颜色，即白变黑、黑变白；并在单击

的棋格处显示其序号。

5.5 利用自定义数组，编一模拟数据库记录输入、显示、查询的程序。自定义一个学生记录

类型，由姓名、专业、总分组成，声明一个存放最多100个学生纪录的数组；要求，按

“新增”按钮，将文本框输入的学生信息加到数组中；按“前一个”或“后一个”按钮，

显示当前元素的前或后的纪录；按“最高”按钮，则显示总分最高的显示纪录；任何时

候在窗体上显示数组中输入的记录数和当前数组元素位置。

5.6 输入一串字符，统计各字母出现的次数（大小写字母不区分），并对出现的字母显示其出

现的个数。

5.7 输入一系列的数据，输入结束将他们按分隔符分离后存放在数组中。对输入的数据允许

修改和自动识别非数字数据。

5

5.8 对已知存放在数组中的6个随机数，用选择排序法按递增顺序排序并输出。

5.9 对已知存放在数组中的6个随机数，用冒泡排序法按递增顺序排序并输出。

5.10 （1）在一个递增有序的数组中插入一个输入数值，使得数组仍然递增有序，并输出结果。

（2）在一个递增有序的数组中插入一个输入数值，使得数组仍然递增有序，并输出结果。

6.6 要求输入两个整数后计算并输出其最大公约数和最小公倍数，上述操作可通过单击窗体

反复进行，直至单击“结束”按钮后结束本程序运行。

6.10 计算fac(n)=n!的函数，要求输入n，可以输出计算结果（上述操作可以反复执行）。

6.11 最大公约数的递归实现。

6.12 如下两分形图分别由若干大小不等、形状相同的三角形构成。用程序实现它（提示：采

用递归算法）。

6.13 编一函数，实现一个十进制整数转换成二至十六任意进制的数。

6

6.14 编一加密和解密程序，即将输入的一行字符串的所有字母加密，加密后还可再进行解密。

6.15 顺序查找根据查找的关键值与数组中的元素逐一比较，若相同，查找成功，若找不到，

则查找失败。.

6.16 用二分法查找数据。

6.17 用插入排序法输入不多于20个数，使数组保持递增的序列。

7.1 用单选框和复选框设置文本框的字体。

7.2 框架用法，按图示对文本框进行字体和大小的设置。

7.3 编写一个能对列表框进行项目添加、修改和删除操作的应用程序，如图所示。

7

7.4 设计一个如图所示的应用程序，当“计算机”和“操作系统“位被选定时，他们所在的

框架的其他控件不能使用。组合框能够将输入的一个新的选择添加到下面的列表框中供

下次选择。如果单击ok按钮（command1）,则在列表框中显示用户所选择的配置。

7.5 建立一个水平滚动条(Hscroll)，其max属性为100，min属性为0，smallchange属性为

2，largechange属性为10，value属性初始值为50。；另外一个文本框（Text1），它显

示滑块当前位置所代表的值。

7.6 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具，合成的颜色

显示在右边的颜色区域中。颜色区实际是一个文本框(TEXT1),用合成的颜色设置其

BackColor属性。当完成调色以后，用“设置前景颜色（Command1）”或“设置背景颜

色（Command2）”按钮设置右边文本框（Text2）的颜色。

7.7 用Slider控件设置文本框中的字体大小，如下图所示：

8

7.8 设计一个能够定时的闹钟，如下图所示。用户在两个文本框（Text1和Text2）中设置定

时时间，然后单击“定时”（Command1）按钮闹钟才开始生效。两个文本框的MaxLength

属性为2，时钟控件名称为label1，“停止”和“结束”按钮的名称分别为Command2和

Command3。

7.9 用一个时钟控件控制蝴蝶在窗体内飞舞。在窗体上定义一个时钟、一个命令和三个图像

控件。

7.10 设计一个进度条，用来指示一个大数组冗长的操作进度。

7.11 设计一个进度条并配上动画，用来指示一个大数组冗长的操作进度。

7.12 编制一个如图所示，具有两个选项卡的对话框。

9

7.13 用两个文本框（Text1和Text2）显示鼠标器指针所指的位置。如图所示：

7.14 设计一个最简单的画图程序。程序运行时，按住鼠标右键移动画圆，按住鼠标左键移动

画线。

7.17 假设窗体上有图形框Picture1，装有某个图形，它能作为源对象被拖放到该窗体的某个

地方，如图所示。如果图形框被拖动到“取消拖放”标签上方，则取消拖放操作。

7.18 设计一个如图所示的应用程序。左边的图像框采用手工拖动模式，标签采用自动拖动模

式。图像框只能用鼠标左键拖动，拖到右边的图像框后消失，而且拖动时图像框中的图

标作为拖动图标使用。标签可以拖动，但拖到图像框后显示“Error”。

8.4 综合8.1-8.4，用“打开”按钮显示文件打开对话框，在对话框内只允许显示文本文件，

初始目录为C：Windows。当选定一个文本文件后，单击“打开”按钮，在标签上显示

所选择的文件名称，若单击“取消”按钮，则显示“放弃操作”。命令按钮“颜色...”，

用于打开“颜色”对话框，通过“颜色”对话框设置标签前景颜色。用“字体...”对话

框设置文本框的字体，要求字体对话框内出现删除线、下划线、颜色元素控制。用“打

印...”按钮调用“打印”对话框，打印文本框信息。

8.5 参照Windows的记事本，建立一个有菜单功能的文本编辑器。

10

所要建立的菜单结构如下表所示：

标题

文件

…新建

…打开

…保存

…另存为

…退出

编辑

…复制

…剪切

…粘贴

名称

FileMenu

FileNew

FileOpen

FileSave

FileSaveAs

FileExit

EditMenu

EditCopy

EditCut

EditPaste

快捷键

Ctrl+N

Ctrl+O

Ctrl+S

Ctrl+C

Ctrl+X

Ctrl+V

一/1 创建一个“标准EXE”类型的应用程序，在屏幕上显示“欢迎您使用Visual Basic”，和

“请输入您的姓名”，屏幕设计的界面如下图

一/2 输出简单图形，如下图所示。要求窗体不可改变大小，当单击“清除”按钮后，清除所

显示的图形。

一/3 在窗体插入图片，文件名为，窗体上以浮雕效果显示的字符串“请注意安

静”，还有两个命令按钮，文件表示左指向、文件表示右指向

按钮，字符串“请注意安静”，向左移动50twip：单击右指向按钮，向右移动50twip。

一/4 字号、按钮、随机函数练习。在文本框输入一字符串，对字号进行放大和缩小，缩放比

例由随机函数产生。如图所示是经过放大操作后的界面状态。要求：

11

（1） 单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机

表达式产生，范围在1~3倍。

（2） 同样，单击“缩小”按钮，进行缩小。

（3） 单击“还原”按钮，字体大小恢复成初始状态，“放大”、“缩小”按钮也改变成可

操作状态。

（4） 在放大和缩小操作时，为了防止程序运行时错误（字体过大或过小），不应连续进

行放大或缩小操作。也就是对已执行放大操作后，“”放大命令按钮应呈已暗淡色

（不可操作）：同样对缩小操作后，“缩小”命令按钮应呈暗淡色，而“放大” 命

令按钮有效。

二/1 编一个华氏温度和摄氏温度之间转换的程序，窗口如下图所示。要使用转换的公式是：

F=9/5C+32 ‘摄氏温度转换为华氏温度，F为华氏

C=5/9(F-32) ‘华氏温度转换为摄氏温度，C为摄氏

要求用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度：同样，

单击“摄氏转” 按钮，则将华氏温度转换为摄氏温度。



2

二/2 输入二次方程 ax+bx+c=0 的系数a，b，c，计算并输出二次方程的两个根 x1,x2。界面

如图所示。要求：

（1） 输入a，b，c三个数，为了程序设计的方便可由3个文本框来实现，然后通过求

根公式求得方程的根。计算的结果可通过文本框显示。

（2） 为了保证程序运行的正确，对输入的三个数要进行检查，若发现输入的数中有非

法的数字，利用Msgbox显示出错信息，利用SetFocus方法定位于出错的文本处，

重新输入。

二/3 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和

兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只。

三/1 输入x，y，z三个数，按从小到大的顺序显示。

三/2 在购买某物品的时，若所花的钱x在下述范围内，所付钱y按对应折扣支付。

X X<100

0.9X 1000<=X<=2000

Y= 0.8X 2000<=X<3000

0.7X X>=3000

三/3 编一模拟计算器的完整程序，界面如图所示。要求：输入两个操作数和一个操作符，根

据操作符决定所做的运算。



12

三/4 某市公用电话收费标准如下：通话时间在3分钟以下，收费0.50元；3分钟以上，则每

超过1分钟加收0.15元；在7:00~19:00之间通话者，按上述收费标准全价收费；在其

他时间通话者，一律按收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多

少电话费，运行界面如下图所示。

三/5 编制程序，计算某个学生奖学金的等级，以三门功课成绩m1，m2，m3为评奖依据。奖学

金评奖标准如下：

一等奖：符合下列条件之一的可得一等奖：

（1） 平均分大于95分者。

（2） 有两门成绩是100分，且第三门功课成绩不低于80分者。

二等奖：符合下列条件之一的可得二等奖：

（1） 平均分大于90分者。

（3） 有一门成绩是100分，且其他功课成绩不低于75分者。

三等奖：各门功课成绩不低于70分者。

符合条件者就高不就低，只能获得高的那一项奖学金。要求显示获奖的等级。

四/1 用单循环实现如图（1）和图（2）显示的图形。

图（1） 图（2）

-4

四/2 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…，当第i项的值<10时结束。

四/3 计算π的近似值，π的计算公式为：

π=2*2

2

/(1*3) *4

2

/(3*5) *6

2

/(5*7) *…*(2*n)

2

/[(2n-1)(2n+1)]

13

四/4 用两重循环显示如图所示的结果。

四/5 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方

和等于该数字本身。

四/6 求Sn=a+aa+aaa+aaa+…aa…aaa(n个a),其中a是一个由随机数产生的1~9（包括1，9）

中的一个正整数，n是一个由随机数产生的5~10（包括5，10）中的一个数。

四/7 有一根长度为321米的钢材料，要将它截取成两种规格的短料，规格a, b的长度分别为

17m和25m，问分隔成a, b各多少段后，剩余的残料r最少？

四/8 规范文章。对输入的任意大小写文章进行整理，规则：所有句子开头为大写字母，其他

都是小写字母，句子结束符为“。”“？”“！”。界面和运行结果如下所示。

五/1 随机产生10个30~100（包括30，100）的正整数，求最大值、最小值、平均值，并显示

整个数组的值和结果。

五/2 随机产生15个不重复的A~Z包括A，Z的大写字母，存放在字符数组中。

五/3 实行学分制，学生的平均绩点是衡量学生学习的重要依据。成绩等级与绩点的关系见下

表所示。

等级 100~90 89~80 79~70 69~60 60以下

绩点 4 3 2 1 0

平均绩点=∑所学各课程学分×绩点∕∑所学各课程的学分。编一程序利用两个一维数组

分别输入某学生的5门课程的学分、对应成绩，计算其平均绩点。

五/4 输入整数n，显示出具有n行的杨辉三角形。一个具有8行的杨辉三角形运行结果如图

所示。

14

五/5 输入一系列字符串，按递减次序排列。程序运行界面如下所示。

五/6 自定义一个职工类型，包含职工号、姓名、工资。声明一个职工类型的动态数组，输入

n个职工的数据；要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示

三项信息。

357n-12n-1

六/1 编一个函数过程Mysin(x),求Mysin(x)=x/1-x/3!+x/5!-x/7!+…+(-1)*x/(2n-1)!

-5

当第n项的精度小于10时结束，x为弧度，主调程序同时调用Mysin和内部函数sin，

进行验证。

六/2 编一个子过程DeleStr(s1, s2)，将字符串s1中出现s2子字符串删去，结果还是存放

在s1中。

六/3 编一函数过程MaxLength(s)，在已知的字符串s中，找出最长的单词。假定字符串s内

只含有字母和空格，空格分隔不同的单词。程序运行如下所示。

六/4 编一函数过程IsH(n),对于已知正整数n，判断该数是否是回文数，函数的返回值类型为

布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对

于是回文数显示一个“★”，见图。

15

七/1 设计一个如图所示的应用程序。当用户选定了基本配置并且单击Ok按钮后，在右边的文

本框中显示所选择的信息。

七/2 设计一个如图所示的应用程序。它包含2个列表框，右边列表框中项目按字母顺序升序

排列。当双击某个项目时，该项目从所在的列表框中删除，添加在另一个列表框中。

七/3 编写如图所示的利息计算程序。当通过滚动条改变本金、月份或年利率时，能立即计算

机出利息及利息+本金。

七/4 编写一个如图所示的倒计时程序。要求：

（1） 通过InputBox对话框输入倒计时时间（以分钟为单位）。例如，如果输入100，表

示还剩余“01：40：00”的时间。

（2） 当倒计时时间到达“00：00：00”时，停止计时并且提示时间到。

16

七/5 设计一个类似Windows95的滚动字幕屏幕保护程序，如图所示。要求用一个时钟控件和

一个滚动条调节和控制其滚动速度，文字的大小及距窗体顶端的距离是随机的，从右向

左连续滚动。

七/6 利用时钟控件和图象控件，编写一个如图所示的自动红绿灯模拟程序。要求：

（1） 红、黄、绿灯显示的延迟时间由滚动条控件（单位为秒）。

（2） 在晚上21：00到凌晨2：00红、黄、绿三灯全亮，其余时间红、黄、绿灯自动切换。

（3） 在下面的标签中显示时间。

七/7 利用SSTab控件设计一个如图所示的图书订购单程序。程序运行后，当用户切换到另一

个选项卡时能及时更新“汇总结果”选项卡上的总价。

17

八/1 设计一个如图所示的应用程序。当选择“改变标签标题颜色”按钮后，弹出颜色对话框，

为标签标题选择一个颜色；当选择“编辑文本文件”按钮后，弹出打开文件对话框，选

择一个文本文件后调用记事本程序编辑该文件。

八/2 设计一个如图所示的菜单系统，并为菜单项编写有关的程序代码。

说明：红色的习题为提高要求，黑色的为基本要求

18