首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Line2。 请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Line2。 请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使
admin
2015-10-23
78
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Line2。
请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使其满足以下要求:
①圆的顶端距窗体Form1顶端的距离为360;
②圆的颜色为红色(红色对应的值为:&HOOOOOOFF&或&HFF&),如图所示。
程序运行时,Shape1将在Line1和Line2之间运行。当Shape1的底部到达Line2时,会自动改变方向向上运动;当Shapel的顶端到达Line1时,会自动改变方向向下运动。
文件中给出的程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容,使其实现上述功能。
注意:不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp.包含了所有控件和部分程序,如图所示。其功能如下:
①单击“读数据”按钮,可将考生义件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮,则根据从组合框Combol中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五人取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后。程序按原文件名存盘。
选项
答案
步骤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() Shape1.Move Shape1.Left,Shape1.Top+S If Shape1.Top<=Line1 Then s=-s End If If Shape1.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 E1se n=n+a(k)’奇数之和 p=P+1’奇数个数加1 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过形状控件的Move方法,实现形状的移动,通过Shape1.Top的值和Line1.Y1的值进行比较来判定圆形是否越过上界,通过比较Shape1.Top+Shapel.Height的值和Line2.Y1的值来判定圆形是否越过下界。
(2)通过文件操作,打开文件,把数值读入数组。通过循环语句遍历数组a(k),用If语句和Mod()函数判断是奇数还是偶数,先求出数组中元素的所有奇数和和所有偶数和,计算出平均数,通过Int()函数实现对结果的四舍五入取整,所有奇数和和所有偶数和的加和,求出所有数的和,用同样的方法得出平均数。Select Case语句判断组合框中选中的项目,实现函数的功能,在文本框中显示题目要求的平均值,并按题目要求存盘。
转载请注明原文地址:https://kaotiyun.com/show/DJLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列软件系统结构图的宽度为【】。
通过文本框的()事件过程可以获取文本框中输入字符的ASCII码值。
运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的()事件。
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger。则以下叙述中正确的是
下述关于数据库系统的叙述中正确的是______。
设A=2,B=-2,则表达式A/2+1>B+5OrB*(-2)=6的值是______。
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_T
相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和
随机试题
患者女性,45岁,以“间断腹泻10余年,加重2周”就诊,每日排便>10次,为黏液便,偶有脓血,伴有腹胀,纳差,近期体重明显减轻。查体:体温37.5℃,脉搏96/min,血压100/60mmHg,轻度贫血貌。便常规示:隐血(+),便内有脓细胞,红细胞。
对固定义齿基牙牙周健康有影响的是对固定义齿咀嚼功能有影响的是
A.少量雌激素B.雌、孕激素序贯用药(人工周期疗法)C.孕激素D.雌激素、孕激素及雄激素合并用药E.雄激素
治疗湿热腰痛,宜选
根据《中外合资经营企业法》的规定,合营企业的董事会应符合以下规定()。
埃里克森认为12到18岁儿童面临的发展任务是_______。
不属于学前教育课程实施途径的是()
下列关于地理方面知识的表述,不正确的是()。
After______seemedanendlesswait,itwasherturntoenterthepersonnelmanager’soffice.
有下列程序#include<stdio.h>#include<string.h>main(){charv[4][10]={"efg","abcd","mnopq","hijkl"},*p[4],*t;inti,j;for(i=0;i<4;i
最新回复
(
0
)