首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Linc2。 请用名称为Shapel的形状控件,在两条直线之间画个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Linc2。 请用名称为Shapel的形状控件,在两条直线之间画个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其
admin
2016-09-06
43
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Linc2。
请用名称为Shapel的形状控件,在两条直线之间画个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其满足以下要求:
①圆的顶端距商体Form1顶端的距离为360;
②圆的颜色为红色(红色对应的值为:&H000000FF&或&HFF&),如图所示。
程序运行时,Shape1将在Line1和Line2之间运行。当Shape1的底部到达Line2时,会自动改变方向向上运动;当Shape1的顶端到达Line1时,会自动改变方向向下运动。
文件中给出的程序不完格,请去掉程序中的注释符,把程序中的?改为正确内容,使其实现上述功能。
注意:不能修改稗序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下:
①单击“读数据”按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮,则根据从组合框Combo1中选中的项目,对数组a中的数据计算甲均值,并将计算结果四含五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,新建一个形状控件,并按表3.51所示设置属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim s As Integer,h As Long Private Sub Form Load() Timer1.Enabled=True s=-40 End Sub Private Sub Timer1_Timer() Shapel.Move Shapel.Left,Shapel.Top+s If Shapel.Top<=Linel.Y1 Then s=-s End If If Shapel.Top+shapel.Height>= Line2.Y1 Then’圆的底端坐标加上圃的自身高度与Line2比较 S=-S End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Dim k As Long Dim m As Long Dim q As Long Dim P As Long Dim r As Long Dim n As Long For k=1 To 100 If a(k)Mod 2=0 Then’判断是否为偶数 m=m+a(k)’偶数之和 q=q+1’偶数个数加1 Else n=n+a(k)’奇数之和 P=P+1’奇数个数加l End If Next k r=Int((m+n)/(p+q)+0.5)’平均值 m=Int(m/q+0.5)’偶数平均值 n=Int(n/P+0.5)’奇数平均值 Select Case Combo1.Text Case"所有偶数" Text1=m Case"所有奇数" Text1=n Case"所有数" Text1=r End Select 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/5ZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列有关数据库的描述正确的是
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+i
下面的程序运行时,为了在窗体上输出“VB6.0”,应在窗体上执行的操作是()。PrivateSubForm_MouseDown(BuRonAsInteger,shiftAsInteger,xAsSingle,YAsSin
在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述
设有数组声明语句:OptionBase1DimA(2,-1To1)以上语句所定义的数组A为______维数组,共有______个元素,第一维下标从______到______,第二维下标从______到______。下列选项
在设计应用程序时,通过()窗口可以查看到应用程序工程中的所有组成部分。
在面向对象方法中,对象之间进行通信的构造称为______________。
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
下列运算符中,优先级别最低的是
随机试题
快速干燥法测茶叶中的水分含量时,试样应在()的电热恒温干燥箱中干燥。
对于消化道传染病最主要的预防措施是
工程量清单的编制,土要用于()。
某工程在施工过程中,由于发包人设计变更导致停工,承包人的工人窝工10个工日每个工日单价为250元;承包人租赁的一台挖土机窝工3个台班,挖土机台班租赁费为800元;承包人自有的一台自卸汽车窝工3个台班,该自卸汽车台班折旧费为400元台班单价为700元,则承包
MRP系统最主要的目标是确定每项物料在每个时区的需求量,以便为正确地进行生产库存管理提供必要的信息。()
已知A,B两地,甲单独驾车从A地开往B地需要6小时,乙单独驾车从B地开往A地需要9小时。现在甲、乙两人同时从A,B两地相向出发,相遇时甲比乙多走了15千米,则A,8两地相距
下面是有关Windows98的文件管理功能的一些叙述,其中______是正确的。
Whenevertwoormoreunusualtraitsorsituationsarefoundinthesameplace,itistemptingtolookformorethanacoincident
A、PhilSmithisnotin.B、PhilSmithdoesn’twanttotalktotheman.C、Themanhasgotthewrongnumber.D、PhilSmithdoesn’tk
Peoplebornintheautumnlivelongerthanthoseborninthespring.Andtheyarelesslikelytofall【B1】______illwhentheyar
最新回复
(
0
)