首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。 要求:请去掉程序中的注释
admin
2019-05-14
57
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框()。PrivateSubCommandlClick()Text1.Text=“程序设计”Text1.SetFocusEndSub
在考生文件夹下有一个工程文件sit5.vbp,窗体如图3.25所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果湿示在相应的文本框中。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Picturel的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Imagel的图像框(Jmag
(1)在考生文件夹下有一个工程文件sit3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3.100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
请根据以下各小题的要求设计Visual.Basic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架练习”的窗体上画一个名称为Framel、标题为“字体”的框架控件;在框架中画两个单选按钮,名称分别为Optionl、Option2,标题分
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Combol的组合框,其宽度为1200,其类型如图3.102所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入“北
请根据以下各小题的要求设计’VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel,且没有标题的框架。框架内含有两个单选按钮,名称分别为Opt1和Opt2、标题分别为“字体”、“大小”
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图3.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的二维数组a中,并按5行显示在Textl文本框内;单击“统计"按钮,则计算每行中小于50的数之和,及这
(1)在名称为Forml的窗体上画一个名称为Ll的标签,标题为“口令”;画两个文本框,名称分别为Text1、Text2,都没有初始内容;再画三个命令按钮,名称分别为C1、C2、C3,标题分别为“显示口令”、“隐藏口令”、“复制口令”,在开始运行时,向Tex
随机试题
(2013年4月)简述五四运动爆发的时代条件和社会历史条件。
按照《特种设备安全监察条例》的定义,特种设备包括锅炉、压力容器、压力管道等8类设备。下列设备中,不属于特种设备的是()。
女,30岁。因下肢水肿2周就诊。体检:血压27/13kPa(200/100mmHg),尿蛋白(+++),红细胞10/HP~15/HP,血Cr150μmol/L。对本例诊断和鉴别诊断帮助最大的检查是()
产后三急是指()
最为重要的外部存储设备是( )。
利润表中的“营业收入”项目填列的依据有()。
In1999,thepriceofoilhoveredaround$16abarrel.By2008,ithad(21)______the$100abarrelmark.Thereasonsforthe
简述唐律的特点和历史地位。
下列各组类型声明符中,含义相同的一组是()。
TheUseofChildren’sLiteratureinEnglishTeachingI.Acase:the【T1】______inchildren’sliteraturehelpingthemlearnEnglish
最新回复
(
0
)