1、华中农业大学VB上机考试习题库1、 在图形框上打印如下图形。 （50分）要求：(1) 画出如图界面（10分） 。(2) 点击“确定”命令按钮开始打印，要求使用循环实现，并写出程序代码（30分） 。(3) 打印图形完全正确（10分） 。界面：2、新建一个工程，然后按照要求完成设计：（50分）(1) 在窗体上设置1个文本框和3个命令按钮，其名称分别为Textbox1、Button1、Button2、Button3，其中文本框内容带滚动条且能多行显示文本。 （15分）(2) 程序启动时，文本框内容清空，并获得焦点， “缩小” 按钮无效。 （10分）(3) 单击“ 放大” 按钮时将文本框字体大小放大2
2、倍，单击“缩小”按钮时字体缩小为上一次字体大小的一半，单击“退出” 按钮时结束程序。当单击“ 放大 ”按钮之后， “缩小”按钮有效， “放大”按钮无效；当单击“缩小” 按钮之后， “放大”按钮有效， “缩小”按钮无效。 （20分）(4) 保存工程，工程文件名为test1.vbp，窗体文件名为test1.frm。 （5分）3、新建一个工程，然后按照要求完成设计：（50分）(1) 在窗体上设置2个文本框和3个命令按钮，其名称分别为Textbox1、Textbox2、Button1、Button2、Button3。 （10分）(2) 程序启动时，文本框内容清空，并获得焦点；单击“退出” 结束程序。
3、（15分）(3) 单击“全部大写”按钮时将Textbox1中字母转为大写，输出在 Textbox2中。 （10分）(4) 单击“部分大写”按钮将第2个和第3个字母转为大写，输出在Textbox2中（15分）4、新建一个工程，在窗体上画三个文本框，其名称分别为Textbox1、Textbox2、Textbox3，文本框内容分别设置为“VB程序设计 ”、 “期末考试”和空白。然后画两个单选按钮，其名称分别为OP1和OP2，标题分别为“交换”和“连接” （如图所示） 。要求编写适当的事件程序：（界面设计10分）(1) 程序运行后，如果选中“交换”单选按钮并单击Textbox3文本框，则Textbox
4、1文本框中的内容与Textbox2文本框中的内容进行交换，并在Textbox3文本框中显示“交换成功”：（写出程序代码20分）(2) 如果选中“ 连接” 单选按钮并单击 Textbox3文本框，则把Textbox1和Textbox2的内容按Textbox1、Textbox2的顺序连接起来，并在Textbox3 文本框中显示连接后的内容。 （写出程序代码15分）(3) 存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 （5分）5、编程序实现人民币与外币的交换。左图，程序界面；右图，运行结果。附2007/6/15 中国银行外汇牌价。 （界面20分，交换功能实现30分）要求：(1
5、) 单击Button1，人民币美元，输出在文本框4(2) 单击Button2，人民币欧元，输出在文本框5(3) 单击Button3，美元人民币，输出在文本框1(4) 单击Button3，欧元人民币，输出在文本框1日期： 2007/06/15货币名称 现汇买入价现钞买入价卖出价 基准价 中行折算价发布时间美元 762.17 756.06 765.23 762.58 762.58 00;00;02欧元 1012.15 990.81 1020.28 1014.59 1014.69 00；00;026、编程序实现大写与小写之间的转换。程序界面如下：2个标签、2个文本框、2个命令按钮。（界面10分，功能
6、实现40分）7、根据以下要求设计界面和代码：窗体Form1有两个列表框（List1和List2）和两个按钮，单击 “添加”按钮，将List1中的选项从List1移至List2.单击“删除” 按钮，将List2中的选项从List2移至List1.窗体装入后界面如下图所示。(1) 界面设计（10分）(2) 正确实现“添加”功能（20分）(3) 正确实现“删除”功能（20分）8、根据以下要求设计界面：(1) 在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”，再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、 “否”，高均为3000，宽均为800.如图所示。 （20分）(2)
7、 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮。 （20分）(3) 在任何情况下，按回车键相当于单击“是”按钮，按ESC键相当于单击“否”按钮。 （10分）9、程序界面如图，点击“打印”命令按钮，在图像框中打印如图所示图像；点击“清除”按钮清除图像。(1) 打印图像40分（用双重循环） 。其中双重循环使用正确 20分；图像打印正确20分(2) 清除10分10、随机生成10个40100之间的数，存储在数组中，并打印（如图） 。点击“统计”求其中的不及格的人数。(1) 正确生成数组并打印（30分）(2) 统计人数（20分）11.编写程序，任意输入2个整数，判断该整数的奇偶性。 （50分
8、）如：10+20=30为偶数；50000+100001=150001为奇数要求：(1) 界面设计（10分）(2) 奇偶性结果输出，写出事件过程（40分）12、用循环实现单击窗体后打印如下图形（50分）要求：按图没正确打印一行得10分。13、求100以内的是6的倍数、7的倍数、6和7的倍数的数。将结果打印在相应的PictureBox控件中。要求：(1) 求6的倍数（15分）(2) 求7的倍数（15分）(3) 求6和7的倍数（20分）14、打印5000以内的最大素数，使用函数过程来判断一个数是否是素数。(1) 主调函数的编写（20分）(2) 函数过程的编写（20分）(3) 打印结果（10分）15、
9、编写程序实现如下功能，并按题意要求写出主要事件过程代码（50分）(1) 设计如下控件：5个按钮，一个标签。 （10分）(2) 上下左右四个按钮使飞机向相应的方向移动300，当移动超过边界时就不再移动（ 20分）(3) 当飞机完全移动到机场标签内时，弹出提示框，提示顺利到达。 （20分）16、输入一个公元年号，判断是否是闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。 （50分）要求：(1) 用文本框输入年号，文本框的名字为inputyear 、长度为 4位。 （10分）(2) 正确写出判断闰年的表达式 （20分）(3) 将结果打印在标签上，标签的Alignment=2
10、，BorderStyle=1 （20分）界面：17、编写一个程序，用随机函数Rnd产生100个0,99范围内的随机整数，统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数。 （20分）要求：(1) 建立工程。在Form_load事件中编写代码。 （10分）(2) 正确的书写数据变量、表达式。 （20分）(3) 将结果直接打印在窗体上，每行打印5个。 （20分）18、随机产生10个整数，要求将元素排成逆序（50分）要求：(1) 随机产生10个2080的随机数 （10分）(2) 在同一行打印输出这10个数 （10分）(3) 将该数组中的元素排成逆序 （20分）如： 34 28
11、40 51 逆序后： 51 40 28 34(4) 在第二行打印输出逆序后的10个数（10分）19、设计一个程序，计算S=1+(1*2)+(1*2*3)+ + （1*2*3*4* *N）的值。 （50分）要求：(1) 在窗体上设置一个文本框TextS和一个命令按钮CountS。 （10分）(2) 用InputBox函数输入一个正整数 N。 （1=N=10） （10分）(3) 利用所给出的公式求出S，在TextS 显示S的值。 （20分）(4) 利用Button1_Click事件编写程序代码。 （10分）20、编写一个函数过程Gougu ，使其能判断任意三个数是否满足勾股定理，并求出N（1=N=
12、60 ）以内的正整数中有多少组满足勾股定理的不重复的组合，且一一显示出来，如下图所示。 （50分）要求：(1) 在窗体上设置一个文本卡U那个TextN 和一个命令按钮CCougu，对应的标题是“勾股定理判断”。 （ 10分）(2) 在代码窗口中，编写函数过程 Gougu，使其能判断三个数是否满足勾股定理。若满足，函数值为真，否则为假。 （20分）(3) 通过TextN输入得到一个数N （10分）(4) 在Gougu_Click事件中，编写代码求出 N以内正整数满足勾股定理的组合，并显示组合数M。 （10分）21、编写如下一个程序：（50分）要求：(1) 画出界面 （10分）(2) 当单击“显示时间” 按钮后，窗体上显示当前时间，并随系统时间变化而变化（20分）(3) 当单击“隐藏时间” 按钮后，不显示当前时间 （15分）(4) 以Sy1为文件名将应用程序保存 （5分）22、程序界面如下图 （50分）要求：(1) 画出如图界面(2) 计算最高分、最低分、平均分、总分。写出程序代码 （10分）(3) 在Text2 中显示计算结果，在Label5中显示相对应的分数是哪一项。 （20分）(4) 命令按钮用控件数组实现
