关于VB的一些作业 170

一、基本操作题请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为"标签"的窗体上画一个名称为Label1的标签,... 一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为"标签"的窗体上画一个名称为Label1的标签,并设置适当属性以满足以下要求:
①标签的内容为"计算机等级考试";
②标签可根据显示内容自动调整其大小;
③标签带有边框,且标签内容显示为三号字。
运行后的窗体如图1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

图1
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条,其刻度范围为1~100;再画一个名称为Text1的文本框,初始内容为1。程序开始运行时,焦点在滚动条上。请编写适当的事件过程,使得程序运行时,文本框中实时显示滚动框的当前位置。运行情况如图2所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

图2
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求:
①圆的顶端距窗体Form1顶端的距离为360;
②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&),如图3所示。
程序运行时,Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时,会自动改变方向而向下运动;当Shape1的底部到达Line2时,会改变方向而向上运动。
文件中给出的程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容,使其实现上述功能。
注意:不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。

图3
(2)在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图4所示。程序功能如下:
①单击"读数据"按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中
②单击"计算"按钮,则根据从名称为Combo1的组合框中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。"读数据"按钮的Click事件过程已经给出,请为"计算"按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

图4
三、综合操作题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:324376582812985731425364758697132435465
76879805937。程序运行后单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来,然后交换矩阵第二列和第四列的数据,并在窗体上输出交换后的矩阵,如图5所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容(可以是多行),使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

就这些题。做完发到1257401958@qq.com上,就存在一个文件夹里就可以,名字不用改
展开
 我来答
绿意无痕
2013-11-17 · 超过19用户采纳过TA的回答
知道答主
回答量:51
采纳率:100%
帮助的人:40.1万
展开全部
你好,第一题的答案已经出来。第二题应用题和第三题的综合操作题的源码文件看不到没办法做,因为实现一种功能有很多种编程方式,所以别人自己写出来的完成以上功能的代码也不一定和你试卷里的相同,别人不知道原题目里面已经给出的代码,没办法给你填充答案。或者你把这几题的源代码都粘贴到上面也行,或者你可以把源程序打包发我邮箱416315797@qq.com。我可以帮你解决。
追问
是vb6.0做的,你把第一题先发我那里吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式