学年第二学期VB期末上机练习题
2011-2012学年第二学期VB期末上机练习题
1.设计"健康称"程序，具体要求如下：
●将两个文本框的文字对齐方式均设置为右对齐，最多接受3个字符；窗体标题为“健康
称”，固定边框；
●两个文本框均不接受非数字键；
●单击“健康状况”按钮后，根据计算公式将相应提示信息通过标签显示在按钮下面，如图
所示。计算公式为：标准体重＝身高-105，体重高于标准体重的1.1倍为偏胖，提示“偏胖，加强锻炼，注意节食”；体重低于标准体重的90％为偏瘦，提示“偏瘦，增加营养”；
其他情况提示为“正常，继续保持！”
2.新建一个工程，完成应用程序的设计：
●取消窗体的最大化和最小化按钮。
●当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。
●同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
●当窗体大小改变后，总是让命令按钮位于窗口的中央。
3.新建一个工程，完成应用程序的设计。
(1)当单击"确定"按钮后,首先比较"用户名"和"原密码"是否一致，若一致且都为"admin",则继续执行步骤2；否则弹出消息框,提示用户出错,并让用户重新输入；
(2)比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。
(3)当单击“取消”按钮时,程序终止执行。
(4)当按“Tab”键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。
4.完成“计算平均成绩”应用程序的设计。
●在输入或修改单科成绩的同时计算平均分，即在"高数"、"英语"和"计算机"文本框内容
发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。
●“平均成绩”文本框不允许编辑，即不能手工修改。
●各单科成绩框中只能输入数字，不能输入字母或汉字，否则不予显示，并发出错误提示
音。
5.新建一个工程，完成“密码检验”程序的设计。
●文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字
符。
●窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息，它的文字对齐
方式为居中对齐，文字颜色为红色，宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。
●当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”，
同时文本框就不能使用了；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。
6.新建一个工程，完成“编辑”程序的设计。
●窗体的标题为“编辑”。
●窗体中有以下控件：一个文本框、四个命令按钮。完成以下功能：文本框实现文本编辑
功能，单击按钮实现相应功能。
7.完成“字体设置”程序的设计。
●参照运行时界面完成界面设计（注意窗体的标题、固定边框）。
●左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、
楷体_GB2312”。
●右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~72。
8.完成“格式设置”程序的设计。
●参照运行时界面完成界面设计（注意窗体的标题、固定边框）。
●窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。
●左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对
文本框的对齐方式进行设置。
●右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击
时对文本框的字型进行设置。
9.完成“添加与删除”程序的设计。
●窗体的标题为“添加与删除”，固定边框。
●在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容
中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
●单击“添加”按钮（Command1），将文本框中的内容加入列表框中的第一项，如果文
本框中没有内容，则给出提示“没有内容，不予添加！”。
●单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则
给出提示“请选择要删除的项目！”。
10.参照运行时界面完成界面设计。
窗体的标题为“偶数迁移”，固定边框。
单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；
单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
11.新建一个工程，完成应用程序的设计。
●在两个列表框控件的list中输入一些内容。
●单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。
●单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。
●单击“>”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项。
●单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1。
●单击“结束”按钮时，退出应用程序。
12.新建一个工程，完成“字体修饰”程序的设计。
●按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。
●框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。
●框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。
●标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方
式为居中。
13.新建一个工程，完成“改变字号”程序的设计。
●窗体的标题为“改变字号”。
●窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条。
●完成以下功能：根据设定字号改变标签框内显示文字的字体。要求水平滚动条与文本框
相关联。滚动条的范围是12-72。
14.新建一个工程，完成应用程序的设计。
●在窗体上放置一个水平滚动条、一个标签和一个命令按钮；
●单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围；
15.完成“字幕闪烁”程序的设计，具体要求如下：
●窗体的标题为“字幕闪烁”，固定边框；
●在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字
形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为水平居中对齐；
●单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红蓝两种颜色
显示，同时“开始”按钮变为“停止”按钮；
●单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮；
●定时器（Timer1）的时间间隔为0.3秒。
16.完成“字幕滚动”程序的设计。具体要求如下：
●窗体的标题为“字幕滚动”，固定边框。
●在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字
形为“粗体”、大小为“二号”、文字颜色为“红色”。
●单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时
间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入。同时“开始”按钮变为“停止”按钮。
●单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时“停止”按钮变为“开
始”按钮。
●定时器（Timer1）的时间间隔为0.1秒。
17.完成“字幕放大”程序的设计。具体要求如下：
●窗体的标题为“字幕放大”，固定边框。
●单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字
号自动增加2，同时“开始”按钮变为“停止”按钮。
●单击“停止”按钮，标签“欢迎光临”文字停止放大，同时“停止”按钮变为“开始”
按钮。
●要求标签文字在放大时保持水平居中。
●定时器（Timer1）的时间间隔为0.2秒。
18.参照运行时界面完成界面设计。
●设计两个定时器，Timer1用于显示系统时间，时间间隔为1秒；Timer2用于判断闹钟
时间，时间间隔为0.5秒，Timer2设置为不可使用。
●窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二
号，背景白色，文字居中对齐，固定边框。
●窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。
●在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1
显示的时间超过闹钟时间，则标签Label1的背景色按红白两色交替变换。
19.新建一个工程，完成“点餐”程序的设计。
●窗体的标题为“点餐”。
●窗体中有以下控件：一个框架控件作为容器，内有三个复选框、对应三个文本框、三个
标签框、一个命令按钮。要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；
●完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框
显示。
20.新建一个工程，完成“倒计时”程序的设计，具体要求如下：
●窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选按钮控件数组，
从上到下为Option1（0）、Option1（1）、Option1（2），标题分别为“1分钟”、“5分钟”、“10分钟”。默认选择为1分钟。
●标签Label1，用于显示倒计时的剩余的时间。
●单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令
按钮变为不可使用，框架也不可使用。
●当剩余时间到0分0秒时，改为显示“时间到！”。
●定时器Timer1的时间间隔为1秒。
21.参照运行时界面完成界面设计。
●窗体的上边有一个文本框Text1，设置为最多接受10个字符；Font宋体、粗体、三号；
文字颜色兰色。
●用命令按钮数组Command1（0）~Command1（9）构成数字键，数字键标题正好命令
按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。
●单击“重拨”按钮（Command2），再现原来的拨号过程；（提示：再现过程由定时器实
现）
●定时器Timer1的时间间隔为0.5秒。
22.参照运行时界面完成界面设计。
●在窗体上创建一个Label2的控件数组，数组长度为6，用于显示动画的图像“--->”。
●在窗体上放置一个Timer控件，用它来控制Label2上的图像位置的变化。
●单击“开始”按钮时Label2上的图像开始移动，单击“结束”按钮图像停止移动，设
置每一秒移动一个箭头。
23.新建一个工程，完成“调色板”程序的设计：
●窗体的标题为“调色板”，固定边框；
●窗体上有一个“三原色配比与预览”的框架（Frame1），框架内从上到下有三个水平滚
动条构成的控件数组（Hscroll1(0)、Hscroll1(1)、Hscroll1(2)），滚动条的取值范围均为0-255，并相应地用标签控件数组（Label1(0)、Label1(1)、Label1(2)）标注“红、绿、蓝”，在框架内的右边还有一个长方形形状控件（Shape1），填充色为黑色、填充样式为实心；
●在窗体的底部引入标签，并在属性窗口中将它的标题设为“坚持就是胜利”，字体设为
“楷体GB-2312”，大小为“二号”，标签格式设置为在窗体中水平居中对齐，标签的大小随显示内容自动调整；
●拖动三个滚动条的滚动框来选择红、绿、蓝三原色的配色取值，并通过形状控件的填充
色动态显示调色效果；
●单击“应用“按钮（Command1），将调配好的颜色应用为标签（坚持就是胜利）的文
字颜色。
24.完成“作图”程序的设计，程序界面如图所示：
●窗体的标题为“作图”，固定边框；
●窗体的右边是一个图片框（Picture1），用于显示图形；
●单击“坐标系”按钮（Command1），将图片框的坐标系统设置为原点在中央，x轴[-10，
10]，y轴[-10，10]，并在图片框中画出该坐标系统示意图；
●单击“扇形”按钮（Command2），在图片框中画一个圆心在原点，半径为5，圆周为红
色，线宽为2，内部为绿色，起始角为π/6，终止角为5π/6的扇形；
●单击“结束”按钮（Command3），程序结束运行。
25.完成“改变大小”程序的设计，程序界面如图所示：
●窗体的标题为“改变大小”，固定边框；
●窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips；
●窗体的下面有一个水平滚动条（Hscroll1），将它的最大值设置为与圆的直径相同，初始
值为最大值，SmallChange和LargeChange均为100Twips；
●水平滚动条的下面有两个标签控件，左边标签（Label1）的标题为“圆的直径为：”，右
边标签（Label2）的标题为“3400”，两个标签均为固定边框；
●改变滚动条的值可以控制圆形直径，同时在标签Label2中动态显示圆的直径；
●要求圆形直径在变化时要保持圆心位置不变。
26.新建一个工程，完成“反弹球”程序的设计。
●参照运行时界面完成界面设计。
●图片框中有一个形状控件Shape1，形状为圆，圆直径为500Twips，填充色为红色。
●单击“开始”按钮，圆球先向右上角方向运动，碰壁后改变方向。每个时间间隔水平方
向改变量DX和垂直方向改变量DY都是100Twips。
●单周“停止”按钮，圆球停止运动。再单击“开始”按钮，圆球继续运动。
●定时器（Timer1）的时间间隔为0.1秒。
27.编制一个通用判断奇偶数的Function函数过程（Odd）。用于判断一个整数的奇偶性。在
窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。
28.编制通用Function函数过程（Prime），用于判断1个整数是否为素数，若是则显示True，
若不是则显示False。在窗体的Click事件中调用该函数。
29.编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。在窗体的
Click事件中调用该函数。
30.编制一个Sub子过程，用于在数组中找到最大值、最小值，并在窗体的Click事件中调
用该过程，输出最大值和最小值。
31.编制一个Sub子过程，用于将数组中各元素用选择排序法按照从小到大的顺序排序，并
在窗体的Click事件中调用该过程，输出排序后的结果。
32.编制Form_Click过程，输入行数n(5≤n<10)然后在窗体上输出n层数字金字塔。
33.有1分、2分、5分硬币若干枚，从中取出20枚硬币使其总值为60分，求出有多少种
取法以及每一种取法的1分、2分、5分硬币个数。
34.分别在两个文本框中输入年、月份，单击命令按钮在标签框3中输出该月天数（注意闰
年的情况。闰年的判断条件为：年份能被4整除但不能被100整除，或者能被400整除）。
35.编程，产生20个两位的随机整数，输出这20个数（以每行5个的形式输出这20个数，
其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
大学VB考试题库
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.360docs.net/doc/3410236750.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
VB上机综合测试题(十五套)
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
计算机二级VB考试题及答案
计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If
Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1
Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
VB上机程序调试题_题目及参考答案
第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
VB考试题及答案
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
VB考试题库,二级习题(含答案)
V B考试题库,二级习题 (含答案) https://www.360docs.net/doc/3410236750.html,work Information Technology Company.2020YEAR
VB考试一 1、能够获得一个文本框中被选取文本的内容的属性是______。 A：SelStart B：SelLength C：SelText D：Text 参考答案：C 2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。 A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False 参考答案：D 3、对于语句 If x=1 Then y=1, 下列说法正确的是____。 A： x=1和y=1 均为赋值语句 B： x=1和y=1 均为关系表达式 C： x=1为赋值语句，y=1为关系表达式 D： x=1为关系表达式，y=1 为赋值语句 参考答案：D 4、以下变量名中，______是不符合Visual Basic的命名规范的。 A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A 5、MsgBox 函数返回值的类型是__________。 A：数值或字符串 B：字符串 C：变体 D：整型数值 参考答案：D 6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A：进入中断模式 B：进入运行模式 C：进入设计模式 D：不用进入任何模式 参考答案：A 7、设a=6，则执行 x=IIF(a>5,-1,0) 后，x的值为______。 A：-1 B：6 C：0 D：5 参考答案：A 8、可以同时删除字符前导和尾部空白的函数是______。 A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C 9、以下语句的输出结果是______。 Print Format$("32548.5","000,000.00")
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
vb考试题及答案
1．下列不是VB常量的是 B 。 A）3.14 B）′Name ′ C)#10/18/2007# D)True 2．确定控件在窗体上位置的属性是 C 。 A）Width 和Height B）Width 和Top C）Top 和Left D）Top 和Height 3．数学表达式1≤X＜10表示成正确的VB表达式为 B 。 A）1≤X＜10 B）X＞=1 And X＜10 C) X＞=1 Or x＜10 D) X＞=1 And ＜10 4. 下面的__ B ___语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 A）Print "A";Tab(9);"b" B）Print "A";Spc(8);"b" C）Print "A";Space(10);"b" D）Print "A";Tab(8);"b" 5. 下列控件中，不能改变大小的控件是 D 。 A）TextBox B）Label C）Frame D）Timer 6．Visual Basic过程的编写是在 D 中进行的。 A）窗体窗口B）工程资源管理器窗口C）属性窗口D）代码编辑窗口 7. 在Visual Basic中，声明全局变量应该用 D 关键字。 A）Dim B）Private C）Static D）Public 8. 在Visual Basic表达式中，运算符的运算顺序为 A 。 A）算术运算符—>字符串运算符—>关系运算符—>逻辑运算符 B）逻辑运算符—>关系运算符—>字符串运算符—>算术运算符 C）字符串运算符—>算术运算符—>关系运算符—>逻辑运算符 D）关系运算符—>逻辑运算符—>算术运算符—>字符串运算符 9. 下列属于非法调用的函数是 A 。 A）sqr(-5) B)Sgn(-5) C)Exp(-5) D)Int(-5) 10. 下列能够正确输出”a=8”形式的语句是 B 。 A）print a=3+5 B）pirnt “a=”;3+5 C）print “a=3+5”D）print a=;3+5 11. 下列符号中，可以用作VB变量名的是 C 。 A）x.y.z B)3xyz C)x_yz D)Integer 12. 可以删除字符串两端空格的函数是 A 。 A）Trim B）Rtrim C）Ltrim D）Mid 13. 函数Int(Rnd*80)+1是在 D 范围内产生随机整数。 A）[0，80] B）[0，79] C）[1，79] D）[1，80]
vb题库及答案
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
vb经典题目及答案
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9
Vb上机实验答案
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.360docs.net/doc/3410236750.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
VB上机考试习题以及答案
VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
VB考试题及答案
1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y
VB期末考试上机题编程答案
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；