首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1,标题为“矩形与直线”的窗体上画一个名称为Linel的直线,其X1、Y1属性分别为200、100,X2、Y2属性分别为2200,1600。再画一个名称为Shape1的矩形,并设置适当属性,使Linel成为它的对角线,如图3.19所示
(1)在名称为Form1,标题为“矩形与直线”的窗体上画一个名称为Linel的直线,其X1、Y1属性分别为200、100,X2、Y2属性分别为2200,1600。再画一个名称为Shape1的矩形,并设置适当属性,使Linel成为它的对角线,如图3.19所示
admin
2017-09-22
29
问题
(1)在名称为Form1,标题为“矩形与直线”的窗体上画一个名称为Linel的直线,其X1、Y1属性分别为200、100,X2、Y2属性分别为2200,1600。再画一个名称为Shape1的矩形,并设置适当属性,使Linel成为它的对角线,如图3.19所示。
注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjtl.frm,工程文件名为sjtl.vbp。
(2)在名称为Form1,标题为“列表框练习”的窗体上,画一个名称为List1的列表框,并输入若干列表项,再画一个标题为“删除”,名称为Command1的命令按钮,如图3-20所示。请编写适当的事件过程,使得单击“删除”按钮,就删除选中的列表项;双击某个列表项,则把该列表项内容添加到列表的最后。
注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。要求程序中不得使用变量,每个事件过程中只能写一条语句。
选项
答案
(1)步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个Shape形状和直线。按表4-13设置其相关属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个命令按钮和列表框。按表4.14设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写命令按钮的Click事件和列表框的双击DblClick事件代码。 参考代码: Private Sub Command1_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub List1_DblClick() List1.AddItem List1.Text End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
(1)根据题目要求,在窗体上放置一个Shape形状和一条直线,并将直线设置为Shape矩形的对角线,即矩形的Left、Top属性和直线的X1、Y1属性值相同,矩形的Width、Height分别是直线的X2.X1、Y2.Y1。
(2)根据题目要求在窗体上加入一个列表框,并设置属性。列表框控件(ListBox)用于显示可供单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意:每输入完一项后按
键换行再输入下一项),也可在程序运行时使用Addltem方法加入,删除列表框里面的项使用Removeltem方法。
单击命令按钮和双击命令按钮实现对列表框的删除和添加操作,因此需要编写命令按钮的Click和DblClick事件响应过程。
转载请注明原文地址:https://kaotiyun.com/show/CjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使命令按钮(名称为Command1)右移200,应使用的语句是
下列代码运行后输出结果是DefstrB-EPrivateSubCommand1_Click()B$="123"C="456"PrintB+C$EndSub
以下程序计算自然数e的值,要求精确到1015,阅读下列程序。已知e的计算公式为:e=1+1/1!+1/2!+…+1/n!。请在【】和【】处填上正确内容。PrivateSubCommandl_Click()【】n=0:term
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
决定一个窗体有无控制菜单的属性是______。
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
随机试题
A.真虚假实B.真热假寒C.虚实夹杂D.表热里寒心悸胸闷,气短乏力,心前区刺痛频频发作,舌淡紫脉涩者,属
前三角洲地区,河流带来大量(),为生物提供了大量的养料,使生物更加繁盛,所以这种地理环境中的沉积物具有丰富的有机物。
家庭访视的目的不包括()
本病例诊断为本病的特异性体征为
患者,女,13岁。左上前牙突然出现明显的咬合痛、自发痛3天。口腔检查:恒牙列,牙周检查(-),叩诊(++),舌面窝处深龋,探诊(-)。最可能的病因是
保证公正司法,提高司法公信力,一个重要的方面是加强对司法活动的监督。下列哪一做法属于司法机关内部监督?
项目在开工建设之前要切实做好各项准备工作,其主要内容包括()。
Ifyouhad______(听从了我的劝告,你就不会陷入麻烦).
《国家中长期教育改革与发展规划纲要(2010—2020年)》明确提出,学校一切工作的出发点和落脚点是()。
高语境交流是指说话者的言语或行为意义来源于或内在化于说话者当时所处的语境,他所表达的东西往往比他所说的东西要多,许多意思都包括在语境之中,不需要每一点都明白无误地讲出来。低语境交流和高语境交流相反,即需要表达的主要讯息都通过外在的语言方式进行传达。根据上述
最新回复
(
0
)