2011VB期末上机练习题

2011VB 专科期末上机练习题1、求 10个三位正整数中的偶数之和，正整数用随机函数 Rnd产生，或由 InputBox函数输入。2、求 10个三位正整数中的奇数之和，正整数用随机函数 Rnd产生，或由 InputBox函数输入。3、编写程序，打印如图 1所示图形。图 14、 1100之间自然数的平方和，程序参考界面如图 2所示：图 25、输入时间（小时、分和秒）然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图 3、4 所示：图 3 图 46、找出在 11000 中同时满足被 7除余 5、被 5除余 3、被 3除余 2条件的数，界面自定。7、编程，输入 x，求下列分段函数 f(x)的值。用 InputBox函数输入 x，计算结果 f(x)输出到 Text控件。F(x)=1-x2 x58、设计一个函数计算器，程序界面如图 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 下面一个文本框用于显示和，要求不能对其进行编辑操作；5 单击“=“按钮（Command1），将两个加数的和显示在下面一个文本框中；6 单击“清空“按钮（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），将调配好的颜色应用为标签（坚持就是胜利）的文字颜色。图 11Private Sub Command1_Click()Label4.ForeColor = Shape1.FillColorEnd SubPrivate Sub Form_Load()For i = 0 To 2HScroll1(i).Min = 0HScroll1(i).Max = 255HScroll1(i).SmallChange = 5HScroll1(i).LargeChange = 20NextEnd SubPrivate Sub HScroll1_Change(Index As Integer)Select Case IndexCase 0Shape1.FillColor = RGB(HScroll1(i), HScroll1(1), HScroll1(2)Case 1Shape1.FillColor = RGB(HScroll1(0), HScroll1(i), HScroll1(2)Case 2Shape1.FillColor = RGB(HScroll1(0), HScroll1(1), HScroll1(i)End SelectEnd SubPrivate Sub HScroll1_Scroll(Index As Integer)Select Case IndexCase 0Shape1.FillColor = RGB(HScroll1(i), HScroll1(1), HScroll1(2)Case 1Shape1.FillColor = RGB(HScroll1(0), HScroll1(i), HScroll1(2)Case 2Shape1.FillColor = RGB(HScroll1(0), HScroll1(1), HScroll1(i)End SelectEnd Sub16、新建一个工程，完成“改变字号”程序的设计，程序界面如图 12所示，具体要求如下：1. 窗体的标题为“改变字号”；2. 窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条；3. 根据滚动框的位置改变标签内显示文字的字号，字号取值范围：8-72。图 1217、新建一个工程，完成“点餐”程序的设计，程序界面如图 13所示，具体要求如下：1. 窗体的标题为“点餐”；2. 窗体中有以下控件：一个框架控件作为容器，内有三个复选框，对应三个文本框、三个标签框、一个命令按钮；3. 选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。图 13 图 1418、新建一个工程，完成应用程序的设计，具体要求如下：1. 按照图 11所示在窗体上放置按钮和控件；2. 在两个列表框控件的 list中输入一些内容；3. 单击“”按钮时，把 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、设计一个秒表模拟程序，按下“开始”按钮，屏幕显示当前时间；按下“结束”按钮，屏幕显示结束时间和持续时间；按下“退出”按钮，结束程序。图 20Dim t1 As Date, t2 As Date, t3 As Date24、设计一个用来控制文本框中信息格式的程序，界面如图 21所示：图 2125、新建一个工程，完成“字幕闪烁”程序的设计，程序界面如图 22所示，具体要求如下：1. 窗体的标题为“字幕闪烁”，固定边框；2. 在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、“粗体”、“二号”，文字颜色为“红色”，格式设置为水平居中对齐；3. 单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红蓝两种颜色显示，同时“开始”按钮变为“停止”按钮；4. 单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮；5. 定时器（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秒。图 2428、新建一个工程，完成“改变大小”程序的设计，程序界面如图 25所示，具体要求如下：1. 窗体的标题为“改变大小”，固定边框；2. 窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为 3400Twips；3. 窗体的下面有一个水平滚动条（Hscroll1），将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange 和 LargeChange均为 100Twips；4. 水平滚动条的下面有两个标签控件，左边标签（Label1）的标题为“圆的直径为：”，右边标签（Label2）的标题为“3400”，两个标签均为固定边框；5. 改变滚动条的值可以控制圆形直径，同时在标签 Label2中动态显示圆的直径；6. 要求圆形直径在变化时要保持圆心位置不变。Private Sub Form_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.ValueEnd SubPrivate Sub HScroll1_Change()Shape1.Width = HScroll1.ValueShape1.Height = HScroll1.ValueShape1.Left = (Form1.Width - Shape1.Width) / 2Shape1.Top = (Form1.Height - Shape1.Height) / 2Label2.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Shape1.Width = HScroll1.ValueShape1.Height = HScroll1.ValueShape1.Left = (Form1.Width - Shape1.Width) / 2Shape1.Top = (Form1.Height - Shape1.Height) / 2Label2.Caption = HScroll1.ValueEnd Sub图 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. 所有文本框只接受数字。图 30Private Sub Check1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Check2_Click()Text2.Enabled = TrueEnd SubPrivate Sub Check3_Click()Text3.Enabled = TrueEnd SubPrivate Sub Check4_Click()Text4.Enabled = TrueEnd SubPrivate Sub Check5_Click()Text5.Enabled = TrueEnd SubPrivate Sub Command1_Click()t1 = Val(Text1)t2 = Val(Text2)t3 = Val(Text3)t4 = Val(Text4)t5 = Val(Text5)If Check1.Value = 1 Then List1.AddItem “彩电“ & t1 & “台“If Check2.Value = 1 Then List1.AddItem “微波炉“ & t2 & “台“If Check3.Value = 1 Then List1.AddItem “电冰箱“ & t3 & “台“If Check4.Value = 1 Then List1.AddItem