首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
37
问题
(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全国计算机二级
相关试题推荐
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
随机文件使用Put语句写数据,使用【】语句读数据。
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
在窗体上面一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima(4,4)Fori=
要把一个命令按钮设置成无效,应设置属性______的值为False。
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
随机试题
A.乳头状腺癌B.滤泡状腺癌C.未分化癌D.髓样癌E.转移癌分泌大量降钙素的甲状腺癌是
女性,32岁,进行性膀胱刺激症状,经抗生素治疗不见好转,且伴有右侧腰部胀痛及午后潮热。为了解患肾功能及形态的病理改变,最有价值的检查是
肠内抗阿米巴药对肠内和组织内阿米巴滋养体均有杀灭作用
伤寒沙门菌的致病特点是
建筑钢材伸长率越大,说明钢材的()。
下列边坡支挡中属于路基边坡支挡的主要有()。
根据城镇土地使用税的有关规定,下列表述正确的有()。
关于标准和标准化,下列说法不正确的是()。
2008年,山东省全面推进素质教育,基础教育课程及考试评价制度改革顺利进行。职业教育发展良好,校企结合、工学结合加快,建立了6个省级职教集团。普通高等教育招生规模首次超过50万人,其他各类教育协调发展。全省拥有各种艺术表演团体119个,艺术表演场
采用IEEE802.11b标准将两栋楼内的局域网互连为一个逻辑网络,应使用的无线设备是()。
最新回复
(
0
)