首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序
admin
2015-06-30
27
问题
在考生文件夹下有一个工程文件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 As Single, y As Single) Dim x0 As Integer, y0 As Integer, a As Single, 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 = ? Else a = (y - y0) / (x - x0) ’斜率 stepx = Sgn(x - x0) * 50 ’ ? = a * stepx If Abs(stepy) > Abs(stepx) Then stepy = Sgn(y - y0) * 50 stepx = stepy / a End If End If ’ ? = True Else ’ ? = False End If End Sub Private Sub Timer1_Timer() ’ Shape1.Move Shape1.Left + stepx, Shape1.Top + ? End Sub 程序结束 参考答案 第1个?处填入:0 第2个?处填入:stepy 第3个?处填入:Timer1.Enabled 第4个?处填入:Timer1.Enabled 第5个?处填入:stepy 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/rfQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()MsgBoxStr(123+321)EndSub程序运行后,单击命令按钮,则在信息框中显示的提示信息为
如果A为整数且|A|>=100,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是
在软件生产过程中,需求信息的给出是()
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
下面不属于静态测试方法的是
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
在磁盘C的根目录下有一个名为Sco.dar的文件,内容为姓名、英语成绩、物理成绩、数学成绩,现依此文件在根目录中建立一个名为Aver.dat的文件,内容为姓名及三门课的平均成绩,但程序不完整,请在______处补充。Open"C:\Sco.dat"
执行以下语句过程,在窗体上显示的内容是OptionBase0PrivateSubCommand3_Click()Dimdd=Array("a","b","c","d"
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数:如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
随机试题
依照我国《公务员法》,下述情况,可录用为公务员的人员是()。
甲、乙系夫妻。在婚姻关系存续期间,二人共有存款8万元,另有甲获得的劳动报酬1万元,乙获得的稿费收入3万元。某日,甲突发心脏病死亡,其遗产共计()
ItusedtotakeRedwoodCity,Californiapolicehourstolocategunfire.Now,theyhaveanewtoolthathelpsthemfindthegunf
膝关节外侧副韧带损伤______。
医疗保健机构严禁采用技术手段进行胎儿
A.阿胶B.枳壳C.鹿茸D.薄荷E.当归江苏的主产药材是()
资本公积和盈余公积均可以用来转增资本,都是从税后利润中提取的有专门用途的资金。()
实现套利的经济学原理是“一价定律”,实现的条件有()。Ⅰ.两个市场无交易成本Ⅱ.两个市场无税收和无不确定性存在Ⅲ.两个市场之间不存在价差Ⅳ.两个市场间的流动和竞争必须是无障碍的
【2014年山东省属】自我效能感是指人们对自己能否成功地进行某一成就行为的主观判断。班杜拉认为,影响自我效能感的因素有()。
( )的隐蔽性和公开性,决定了公安工作的隐蔽性和公开性。
最新回复
(
0
)