VB上机练习题
1．设计一个程序，用户界面如图所示。

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

2．设计一个100之内的四则运算题，界面如下。

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

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

4．界面如图所示。

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

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

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

6．在窗体上画两个文本框，其名为Text1和Text2，内容为空白，当Text1中输入内容时，Text2中也随之出现相同的内容。

运行结果如图：20
7．在窗体上画两个文本框，其名为Text1和
Text2，内容为空白，再画一个命令按钮，名为C1，标题为“交换”。

单击“交换”按钮后，将Text1中输入的一个两位正整数的个位和十位交换，显示在Text2中。

界面如图：
8. 分别求12+22+32+42+……+1002、11+22+33+……+n n 、1-3+5-7+…+(-1)n+1(2n-1)的累加和。

9．分别求
和 的累加和。

10．在LIST1中打印100~999之间的所有水仙花数。

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

如：153=13+53+33）
11．有一数列，它的头2个数为0，1，以后的每个数都是其前2个数之和。

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

12．设计如右图所示界面，单击时输出N!和1!+2!+…+N!结果。

13．界面如下图所示。

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

121)1(5131111--+-+-+n n )
1(1431321211+++⋅+⋅+⋅n n
Text1 Text2 Label3 Label4
14．界面如图所示。

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

15．设计一个工程，添加两个窗体，其中FORM1作为口令检查窗体，若口令正确则FORM2窗体出现（FORM2上加载一幅图），若口令错，则提示用户重新输入。

16．界面如右图所示。

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

在窗体上显示结果。

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

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

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

19．在窗体上显示3到200之间所有的素数，
每行显示6个
数，并在标签
中显示素数
之和。

20．设计界面
如图所示，单
击各按钮时
输入行数，按
此行数在窗
体上显示不同的图形（参照实习6-11）。

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

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

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

24．在窗体上画一个垂直滚动条和一个水平滚动条，编写适当的事件过程，程序运行后，移动滚动条上的滚动框，可扩大或缩小窗体。

（min=1500, max=6000,largechange=200, smallchange=50）
25．设计界面如图所示，运行时，当移动滚动条时，在标
签中能正确显示摄氏、华氏温度值（C=5（F-32）/9）。

26．在文本框中输入一个自然数，单击“倒计数”按钮或
按回车键，都能使文本框中的数字每隔0.3秒逐次减1。

当
减到0时，倒计数停止文本框清空，光标定位在文本框中。

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

控制Label控件中字体大小和字体格式。

(字体默认为宋体)程序运行界面如图所示
28、编写一个程序，实现在标签中自动依次显示“祝
你”，“考试”，“成功”。

29、让一行欢迎词往复在窗体中移动，（从左到右，
再从右到左移动）直到按下停止按钮。

30、窗体上有一个文本框，名为Text1，一个计时器，
名为Timer1。

当启动时在Text1中显示当前的日期
和时间，并每秒更新一次。

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

（要求矩阵输出到列表框中显示，其最大值、最小值以及它们的下标和平均值的结果显示在图片框中）
33、编写判断某数是否能同时被17与37
整除的函数过程，并输出1000～10000之
间的所有能同时被17与37整除的数，结
果显示在列表框中
34、在窗体上画一个列表框和一个文本
框，编写窗体的KEYDOWN事件过程。

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

（文本框中要显示添加和删除的项目内容）
35．窗体上有一个名为L1的列表框，通过属性向列表框添加
3个项目，分别是“123、456、789”。

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

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

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

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

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

（交换后的结果显示在图片框中）
38．生成两个0~10之间的随机整
数矩阵，分别放入两个列表框，求
两个矩阵之和放入第三个列表框。

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

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

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

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

42、在窗体上建立一个二级菜单，该菜单含有“文件”、“帮助”(名称分别为vbFile 和vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”、“退出”三个子菜单项(名称分别为vbOpen 、vbClose 、vbExit)，如 图所示。

只建立菜单，不必定义其事件过程。

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

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

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

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

46．利用Function
计算N ！，求组合数。

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

47、编写函数过程计算1+2+3+。

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

48、利用Function 计算n ！，x 和n 的值由键盘输入，
将计算
!
.....!7.!5!3753n x
x x x x e n
x +
+-+-=结
果输出在文本框（保留三位小数）。

)!(!!n m n m c n m
-=
)
...321()
...321()...321(p n m y +++++++++++++=。