2011vb期末上机练习题

《2011vb期末上机练习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

2011VB专科期末上机练习题1、求10个三位正整数中的偶数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。2、求10个三位正整数中的奇数之和，正整数用随机函数Rnd产生，或由InputBox函数输入。3、编写程序，打印如图1所示图形。图14、1—100之间自然数的平方和，程序参考界面如图2所示：图25、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3、4所示：图3图46、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。 7、编程，输入x，求下列分段函数f(x)的值。用InputBox函数输入x，计算结果f(x)输出到Text控件。F(x)=1-x2x<=5(x-5)4x>58、设计一个函数计算器，程序界面如图5所示，其功能要求如下：1.单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入的内容显示在文本框中；2.单击“Date”按钮在文本框中显示系统日期；3.单击“Sin、Asc”按钮，将文本框中的数据作为函数的输入参数，同时在文本框中显示函数值。图59、设计一个函数计算器，程序界面如图6所示，其功能要求如下：4.单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来；5.单击“Time”按钮在文本框中显示系统时间；6.单击“Sqr、Chr”按钮，将文本框中的数据作为函数的输入参数，同时在文本框中显示函数值。 图610、编写程序：输入x、y、z三个数，按从小到大的次序显示，界面自定。11、新建一个工程，完成“添加与删除”程序的设计，具体要求如下：1.窗体的标题为“添加与删除”，固定边框；2.程序界面如图7所示。在窗体中引入一个文本框（Text1），在文本框的下面引入一个列表框（List1），列表框中内容有四项，分别为“Word、Excel、PowerPoint、Outlook”；3.单击“添加”按钮（Command1），将文本框中的内容加入列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加！”；4.单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择要删除的项目！”。图712、新建一个工程，完成“加法器”程序的设计，具体要求如下：1．窗体的标题为“加法器“，固定边框；2．程序界面如图8所示。在窗体上从上到下依次引入Text1、Text2、Text3三个文本框，三个文本框的对齐方式均为右对齐；3．上面两个文本框用于输入加数，要求不接受非数字键；4．下面一个文本框用于显示和，要求不能对其进行编辑操作； 1．单击“=“按钮（Command1），将两个加数的和显示在下面一个文本框中；2．单击“清空“按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。图813、新建一个工程，完成“字体设置”程序的设计，程序界面如图9所示，具体要求如下：1.窗体的标题为“字体设置”，固定边框；2.窗体的上边有一个文本框（Text1），文字内容为“心想事成”；3.文本框下面的左边有一个标签（Label1），标题为“字体：”，标签下面是一个简单组合框（Combo1），有三项内容，分别是“宋体、黑体、楷体_GB2312”，单击时对文本框的字体进行设置；4.文本框下面的右边有一个标签（Label2），标题为“大小：”，标签下面是一个简单组合框（Combo2），有八项内容，分别是“10、12、16、20、24、36、48、72”，单击时对文本框的文字大小进行设置。图914、新建一个工程，完成“格式设置”程序的设计，程序界面如图10所示，具体要求如下：1.窗体的标题为“格式设置”，固定边框；2.窗体的上边有一个文本框（Text1），文字内容为“心想事成”，Font：宋体、常规、三号；3.文本框下面的左边有一个标签（Label1），标题为“对齐：”，标签下面是一个简单组合框（Combo1），有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置；4.文本框下面的右边有一个标签（Label2），标题为“字型：” ，标签下面是一个简单组合框（Combo2），有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。图1015、新建一个工程，完成“调色板”程序的设计，程序界面如图11所示，具体要求如下：1.窗体的标题为“调色板”，固定边框；2.窗体上有一个“三原色配比与预览”的框架（Frame1），框架内从上到下有三个水平滚动条，滚动条的取值范围均为0-255，并相应地用标签控件标注“红、绿、蓝”，在框架内的右边还有一个长方形形状控件（Shape1），填充色为黑色、填充样式为实心；3.在窗体的底部引入标签，并在属性窗口中将它的标题设为“坚持就是胜利”，字体设为“楷体GB-2312”，大小为“二号”，标签格式设置为在窗体中水平居中对齐，标签的大小随显示内容自动调整；4.拖动三个滚动条的滚动框来选择红、绿、蓝三原色的配色取值，并通过形状控件的填充色动态显示调色效果；5.单击“应用“按钮（Command1），将调配好的颜色应用为标签（坚持就是胜利）的文字颜色。图11PrivateSubCommand1_Click()Label4.ForeColor=Shape1.FillColorEndSubPrivateSubForm_Load() Fori=0To2HScroll1(i).Min=0HScroll1(i).Max=255HScroll1(i).SmallChange=5HScroll1(i).LargeChange=20NextEndSubPrivateSubHScroll1_Change(IndexAsInteger)SelectCaseIndexCase0Shape1.FillColor=RGB(HScroll1(i),HScroll1(1),HScroll1(2))Case1Shape1.FillColor=RGB(HScroll1(0),HScroll1(i),HScroll1(2))Case2Shape1.FillColor=RGB(HScroll1(0),HScroll1(1),HScroll1(i))EndSelectEndSubPrivateSubHScroll1_Scroll(IndexAsInteger)SelectCaseIndexCase0Shape1.FillColor=RGB(HScroll1(i),HScroll1(1),HScroll1(2))Case1Shape1.FillColor=RGB(HScroll1(0),HScroll1(i),HScroll1(2))Case2Shape1.FillColor=RGB(HScroll1(0),HScroll1(1),HScroll1(i))EndSelectEndSub16、新建一个工程，完成“改变字号”程序的设计，程序界面如图12所示，具体要求如下：1.窗体的标题为“改变字号”；2.窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条；3.根据滚动框的位置改变标签内显示文字的字号，字号取值范围：8-72。 图1217、新建一个工程，完成“点餐”程序的设计，程序界面如图13所示，具体要求如下：1.窗体的标题为“点餐”；2.窗体中有以下控件：一个框架控件作为容器，内有三个复选框，对应三个文本框、三个标签框、一个命令按钮；3.选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。图13图1418、新建一个工程，完成应用程序的设计，具体要求如下：1.按照图11所示在窗体上放置按钮和控件；2.在两个列表框控件的list中输入一些内容；3.单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项；4.单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2；5.单击“>”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项；6.单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1；7.单击“结束”按钮时，退出应用程序。 图1519、新建一个工程，完成“收款计算”程序的设计，具体要求如下：1.按照图16所示在窗体上放置控件；2.窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在最下面一个文本框中；3.最下面一个文本框（应付款）不能直接输入；4.单击“清除”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。图1620、新建一个工程，完成应用程序的设计，具体要求如下：1.如图17所示，在窗体上放置一个水平滚动条、一个标签框和一个命令按钮；2.滚动条状态发生改变时，标签上的文字可以左右移动，文字移动范围等于滚动条的范围。 图1721、新建一个工程，完成应用程序的设计，具体要求如下：1.按照图18所示在窗体上放置控件；2.4个单选按钮分别用于显示星期、年份、月份和日期；3.选中某个单选按钮时，在文本框中显示当天对应的日期信息；4.单击“结束”命令该按钮时，退出应用程序。图1822、新建一个工程，完成“计算平均成绩”应用程序的设计，具体要求如下：1.按照图19所示在窗体上放置控件；2.在输入或修改单科成绩的同时计算平均分，即在"高数"、"英语"和"计算机"文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在“平均成绩”文本框中显示；3.“平均成绩”文本框不允许编辑，即不能手工修改；4.各单科成绩文本框中只能输入数字，不能输入字母或汉字，否则给出错误提示。图1923、设计一个秒表模拟程序，按下“开始”按钮，屏幕显示当前时间；按下“结束”按钮，屏幕显示结束时间和持续时间；按下“退出”按钮，结束程序。 图20Dimt1AsDate,t2AsDate,t3AsDate24、设计一个用来控制文本框中信息格式的程序，界面如图21所示：图2125、新建一个工程，完成“字幕闪烁”程序的设计，程序界面如图22所示，具体要求如下：1.窗体的标题为“字幕闪烁”，固定边框；2.在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、“粗体”、“二号”，文字颜色为“红色”，格式设置为水平居中对齐；3.单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红蓝两种颜色显示，同时“开始”按钮变为“停止”按钮；4.单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮；1.定时器（Timer1）的时间间隔为0.3秒。 图2226、新建一个工程，完成“字幕滚动”程序的设计，程序界面如图23所示，具体要求如下：1.窗体的标题为“字幕滚动”，固定边框；2.在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、“粗体”、“二号”，文字颜色为“红色”；3.单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇。当标签移动到窗体外时，再从窗体的左边进入，同时“开始”按钮变为“停止”按钮；4.单击“停止”按钮，标签“祝您考试成功”文字停止滚动，同时“停止”按钮变为“开始”按钮；5.定时器（Timer1）的时间间隔为0.1秒。图2327、新建一个工程，完成“字幕放大”程序的设计，程序界面如图24所示，具体要求如下：1.窗体的标题为“字幕放大”，固定边框；2.单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2，同时“开始”按钮变为“停止”按钮；3.单击“停止”按钮，标签“欢迎光临”文字停止放大，同时“停止”按钮变为“开始”按钮；4.要求标签文字在放大时保持水平居中；5.定时器（Timer1）的时间间隔为0.2秒。图24 28、新建一个工程，完成“改变大小”程序的设计，程序界面如图25所示，具体要求如下：1.窗体的标题为“改变大小”，固定边框；2.窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips；3.窗体的下面有一个水平滚动条（Hscroll1），将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips；4.水平滚动条的下面有两个标签控件，左边标签（Label1）的标题为“圆的直径为：”，右边标签（Label2）的标题为“3400”，两个标签均为固定边框；5.改变滚动条的值可以控制圆形直径，同时在标签Label2中动态显示圆的直径；6.要求圆形直径在变化时要保持圆心位置不变。 PrivateSubForm_Load()HScroll1.Max=3400HScroll1.Min=0HScroll1.SmallChange=50HScroll1.LargeChange=200HScroll1.Value=3400Shape1.Left=(Form1.Width-Shape1.Width)/2Shape1.Top=(Form1.Height-Shape1.Height)/2Label2.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Change()Shape1.Width=HScroll1.ValueShape1.Height=HScroll1.ValueShape1.Left=(Form1.Width-Shape1.Width)/2Shape1.Top=(Form1.Height-Shape1.Height)/2Label2.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Shape1.Width=HScroll1.ValueShape1.Height=HScroll1.ValueShape1.Left=(Form1.Width-Shape1.Width)/2Shape1.Top=(Form1.Height-Shape1.Height)/2Label2.Caption=HScroll1.ValueEndSub图2529、新建一个工程，完成“作图”程序的设计，程序界面如图26所示，具体要求如下：1.窗体的标题为“作图”，固定边框；2.窗体的右边是一个图片框（Picture1），用于显示图形；3.单击“坐标系”按钮（Command1），将图片框的坐标系统设置为原点在中央，x轴[-10，10]，y轴[-10，10]，并在图片框中画出该坐标系统示意图；4.单击“扇形”按钮（Command2），在图片框中画一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为π/6，终止角为5π/6的扇形；5.单击“结束”按钮（Command3），程序结束运行。图26Drawidth线框 30、新建一个工程，完成“绘制图形”程序的设计，具体要求如下：1.窗体的标题为“绘制图形”，固定边框；2.按照图27所示在窗体上放置控件；3.窗体左侧为图片框（Picture1），用于绘制指定图形；4.首先在右侧框架（Frame1）中选择绘图颜色，接着在下方框架（Frame2）中选择图形种类，最后在图片框中绘制相应图形；5.用输入对话框输入所需参数，如绘制圆时，输入圆心坐标与半径；6.单击“结束”按钮（Command1），程序结束运行。图2731、新建一个工程，完成“倒计时”程序的设计，具体要求如下：1.参照图28完成界面设计。2.窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选按钮控件数组，从上到下为Option1（0）、Option1（1）、Option1（2），标题分别为“1分钟”、“5分钟”、“10分钟”。默认选择为1分钟。3.标签Label1，用于显示倒计时的剩余的时间。4.单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。5.当剩余时间到0分0秒时，改为显示“时间到！”。6.定时器Timer1的时间间隔为1秒。图2832、某公司对员工的工资进行调整：若原有工资大于等于1000元，增加工资35%；若小于1000元大于等于800元，则增加工资25%；若小于800元，则增加工资15%。请根据用户输入的原有工资，计算出增加后的工资。 图2933、设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：1.单击“确定”后，根据选择的内容将清单及总价在列表框中列出。2.“清除”按钮用于清空列表框中的项目。3.所有文本框只接受数字。图30PrivateSubCheck1_Click()Text1.Enabled=TrueEndSubPrivateSubCheck2_Click()Text2.Enabled=TrueEndSubPrivateSubCheck3_Click()Text3.Enabled=TrueEndSubPrivateSubCheck4_Click()Text4.Enabled=TrueEndSubPrivateSubCheck5_Click()Text5.Enabled=True EndSubPrivateSubCommand1_Click()t1=Val(Text1)t2=Val(Text2)t3=Val(Text3)t4=Val(Text4)t5=Val(Text5)IfCheck1.Value=1ThenList1.AddItem"彩电"&t1&"台"IfCheck2.Value=1ThenList1.AddItem"微波炉"&t2&"台"IfCheck3.Value=1ThenList1.AddItem"电冰箱"&t3&"台"IfCheck4.Value=1ThenList1.AddItem"DVD"&t4&"台"IfCheck5.Value=1ThenList1.AddItem"空调"&t5&"台"tz=t1+t2+t3+t4+t5hj=t1*3580+t2*660+t3*1850+t4*2880+t5*5500List1.AddItem"共:"&tz&"台"&""&"合计金额:"&hjEndSubPrivateSubCommand2_Click()List1.ClearEndSubPrivateSubForm_Load()Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText5.Enabled=FalseEndSubPrivateSubList1_Click()EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSub PrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText4_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText5_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSub