首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
admin
2019-05-14
53
问题
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim stepy As Integer ’纵向移动增量 Dim stepx As Integer ’横向移动增量 Const LEFT_BUTTON=1 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AsSingle,y As Single) Dim x0 As Integer,y0 As Integer,a AsSingle,radius As_Integer radius=Shape1.Width/2 ’圆的半径 If Button=LEFT_BUTTON Then ’单击鼠标左键移动 x0=Shape1.Left+radius’圆心的x坐标 y0=Shape1.Top+radius’圆心的y坐标 If x=x0 Then’垂直移动 stepy=Sgn(y-y0)*50 stepx=
0
Else’倾斜移动 a=(y-y0)/(x-x0)’斜率 stepx=Sgn(x-x0)*50
stepy
=a*stepx ’通过stepx确定stepy的值 If Abs(stepy)>Abs(stepx)Then stepy=Sgn(y-y0)*50 stepx=Stepy/a End If End If
Timer1.Enabled
=True’单击鼠标左键则触发Timer事件 Else
Timer1.Enabled
=False’单击鼠标右键则停止Timer事件 End If End Sub Private Sub Timer1_Timer() Shape1.Move Shape1.Left+stepx,Shape1.Top+
stepy
’移动shapel End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/4UUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Textl中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算mm的值。在给出的窗体文件中已经有了全部控件,但程
在考生目录下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此2数相乘,若乘积
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,在窗体上有一个命令按钮(名称为Commandl,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图3—8所示。程序运行后,单击命令按钮,即可计算
(1)在考生文件夹下有一个工程文件vbsi3.vbp,相应的窗体文件名为vbsi3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为.CDl的通用对话框,通过属性窗口设置CDl的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图3.125所示。
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生目录下的图片文件picljp
随机试题
下列关于最高最佳使用假设应用的说法中,错误的是()。
以下属于资金占用费的是()
已知D(X)=25,D(Y)=36,X与Y的相关系数ρXY=0.4,则D(X+Y)=________
申请证券上市交易,应当向()提出申请,由其依法审核同意,并由双方签订上市协议。
在教育教学活动中,对学生的不良行为视而不见、不问不管或对学生讽刺、挖苦、实施体罚或变相体罚,这都是明显的违犯师德的行为,违犯的是现行中小学教师职业行为规范要求中的()。
目前中国基础教育教学中使用的课程主要是()
下列各项中属于黑盒测试方法的是()。
TrafficisaperennialprobleminHongkong.Overtheyearsmanysuggestionshavebeen【1】toeasetransportdifficulties.Thesein
WhenIwasabout11,Iinheritedmyolderbrother’spaperroute.Itwasagoodjob,thoughitmeanswakingupatthecrackofd
Twentyyearsagothisweek,theBritishinventorTimBerners-Leecreatedtheworldsfirstwebpage.Itisworth【B1】______theex
最新回复
(
0
)