首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
admin
2019-05-14
30
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/RNN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序代码段中,在单击命令按钮调用SelMid函数时,其运行结果为()。PrivateFunctionSelMid(aStrAsString)AsStringDimtempAsStringDimsLe
数据库系统的核心是()。
在考生目录下有一个工程文件vbsj5.vbp,用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
(1)在考生文件夹下有一个工程文件sit3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;2)从名称为List1的列表框中选中一项(如图3-6
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Commandl(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组Optionl,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4”,初始状态下,“选择1”
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Combol的组合框,其宽度为1200,其类型如图3.102所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入“北
请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生目录下的图片文件picljp
在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按
随机试题
克服组织变革阻力的方法不包括()
设函数f(x)=是连续函数,试求a,b的值.
甲家盖房,邻居乙、丙前来帮忙。施工中,丙因失误从高处摔下受伤,乙不小心撞伤小孩丁。下列哪些表述是正确的?()(14年司考.卷三.多66)
下列各项中,不属于流转税的是()。
下列关于水平型利率期限结构说法中,正确的是()
青年教师职业道德包括()。
如图所示,在AABC中,AB=AC,AB=8,BC=12,分别以AB、AC为直径作半圆,则图中阴影部分的面积为().
结合材料,同答问题:材料1在五千年的历史长河中,作为民族精神的核心,爱国主义始终是中华民族团结统一的精神纽带,始终是凝聚力和向心力的基本源泉,始终是推动中国社会发展进步的巨大力量。这种精神,寄托着对民族命运的拳拳之心,倾注了对中华大地的
设X=10,语句?VARTYPE("X")的输出结果是
ThelargestuniversityinCanadais______
最新回复
(
0
)