首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
admin
2019-06-11
58
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求:
①圆的顶端距窗体Form1顶端的距离为360;
②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&),如图3—124所示。
程序运行时,Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时,会自动改变方向而向下运动;当Shape1的底部到达Line2时,会改变方向而向上运动。
文件中给出的程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容,使其实现上述功能。
注意:不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图3—125所示。程序功能如下:
①单击“读数据”按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中;
②单击“计算”按钮,则根据从名称为Combo1的组合框中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。“读数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
第1小题 步骤1:打开考生文件下的本题工程文件sjt3.vbp,在窗体上两条水平直线间画一个形状控件,并如表4—74设置其属性。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Timer1.Enabled=True If]]Shape1.Top)<=Lin1.Y1 Then If Shape1.Top+Shape1.Height>= Lin2.Y1Then 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,编写“计算”按钮的单击事件过程以及三个自定义过程。 参考代码: Private Sub Command2_Click() Select Case Combo1.ListIndex Case0 Text1=even() Case1 Text1=odd() Case2 Text1=all() End Select End Sub Function even() Dim s As Single,n As Integer s=0 For k=1To100 If a(k)/2=Fix(a(k)/2)Then s=s+a(k) n=n+1 End If Next s=s/n even=CInt(s) End Function Function odd() Dim s As Single.n As Integer s=0 For k=1To100 If a(k)/2<>Fix(a(k)/2)Then s=s+a(k) n=n+1 End If Next s=s/n odd=CInt(s) End Function Function all() Dim s As Single,n As Integer s=0 For k=1To100 s=s+a(k) Next s=s/100 all=CInt(s) End Function 步骤2:按<F5>键运行程序,先单击“读数据”按钮,然后选择组合框中的一项再单击“计算”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:本题在计时器的Timer事件过程中,Shape1每次上下移动的距离为s(值为负向上移动,值为正向下移动,初值为-40),若Shape1向上移动后其Top属性值小于或等于Line1的Y1(或Y2)属性值,则s取其相反数,Shape1向下移动。若Shape1向下移动后其Top属性值与其Width属性值之和大于或等于Line2的Y1(或Y2)属性值,则s再取其相反数,Shape1向上移动。
窗体加载时,计时器启动,Shape1开始在Line1和Line2之间运动。
第2小题:本题源程序在“计算”按钮的单击事件过程中,逐一检查组合框中的列表项是否选中,将选中列表项的索引号作为判断依据,根据选中不同的项来调用不同的过程。过程even用来求得数组中的偶数平均值,首先预设累加和变量s=0以及计数器n=0,然后通过一个执行100次的For循环来遍历整个数组,依次判断数组元素是否为偶数,若是偶数则将其加入累加变量s中以及令计数器加1,循环结束后用累加和除以计数器即得到平均值。同理编写odd过程用来求得数组中奇数的平均值,al1过程用来求得数组中所有数的平均值。
转载请注明原文地址:https://kaotiyun.com/show/EjUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的命令按钮,和一个名称为CD1的通用对话框,如图4所示。请在属性窗口
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画出包含三个命令按钮的控件数组,名称为cmd1,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示。通过属性窗
通用对话框Filter属性的作用是
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是
为了显示弹出式菜单,要使用
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:DimrAsSingle,flagAsIntegerPrivateSubTimer1_Time
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
随机试题
关于牵张反射的叙述,错误的是()。
下列行为不构成非法经营罪的是()。
下列高聚物加工制成的塑料杯中,哪种物质对身体无害?()
X线照片影像的要素不包括
生产、经营、储存、使用()的车间、商店、仓库不得与员工宿舍在同一座建筑物内,并应当与员工宿舍保持安全距离。
会计入员在处理业务过程中,要严格按事物的本来面目去反映,不掺杂个人主观意愿,不为他人意见所左右,公平正直,没有偏失,这体现了会计职业道德()的要求。
下列关于发放股票股利和股票分割的说法中,正确的有()。
我市有人不择手段仿造伪劣产品,这种坑害顾客、骗取钱财的不法行为,我们应该予以严厉打击。以上句子的语病类型是()。
设有两个事务Tl和T2,它们的并发操作如下所示,则正确的结论是一——。TlT2从DB读S从DB读SS=S-2S=S-4向DB回写S向DB回写S
ThewritingoftheConstitutionoftheUnitedStatesisanactofsuchgeniusthatphilosophersstillwonderatitsaccomplishme
最新回复
(
0
)