首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体图3一132所
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体图3一132所
admin
2017-09-22
26
问题
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体图3一132所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Form1的窗体上画一个名称为Shal的形状控件,然后建立一个菜单,标题为“形状”,名称为shape0,该菜单有两个子菜单,其标题分别为“正方形”和“圆形”,其名称分别为shapel和shape2,如图3—133所示,然后编写适当的程序。程序运行后,如果选择“正方形"菜单项,则形状控件显示为正方形;如果选择“圆形”菜单项,则窗体上的形状控件显示为圆形。
注意:程序中不能使用变量,每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
(1)步骤1:新建一个“标准EXE”工程,表4-77在窗体中用“复制”和“粘贴”画出控件数组并设置属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个名为Sha1的形状控件。 步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表4.78所示,设置建立菜单项。 [*] 步骤3:打开代码编辑窗口,编写菜单命令的单击事件过程。参考代码: PriVate Sub Shape1_Click() Me.Shal.Shape=1 End Sub PriVate Sub Shape2_Click() Form1.Shal=3 End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
(1)本题只需按题目要求画出含三个元素的按钮数组,并分别设置Caption属性。
(2)要实现本题中的功能,应在“正方形”菜单项的Click事件过程中,令Shal的Shape属性为1,在“圆形”菜单项的Click事件过程中,令Shal的Shape属性为3。
转载请注明原文地址:https://jikaoti.com/ti/UWy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设组合框Combo1中有3个项目,则以下能删除最后一项的语句是______。
下列是一个循环结构的程序,循环体内的语句将执行的次数是k=0Fori=1to100 Forj=1to10 k=k+1 NextNext
下面()语句执行后,窗体Forml从内存退出。
【】的功能是用于显示当前过程中的有关信息,当测试一个过程时,可在其中输入代码并立即执行。
有如下函致:Functionfact(xAsInteger)AsLongDimpAsLong,iAsIntegerp=1Fori=1Toxp=p*1Nex
软件(程序)调试的任务是
执行下面的语句后,所产生的信息框的标题是【】。a=msgbox("AAAA",,"BBBB","",5)
DIMa(3,-3to0,3to6)ASSTRING语句定义的数组元素有【】个。
下面有关标准模块的叙述中,错误的是
随机试题
A.连理汤B.桃花汤合真人养脏汤C.黄连阿胶汤合驻车丸D.乌梅丸虚寒痢,治宜当选
急性阑尾炎发病的最重要原因是()。
原发性肾病综合征,最常出现
胰胆管造影时应协助患者采取的体位是
布置设计就是通过对系统物流、人流、信息流进行分析,对()做出有机的组合与合理配置,达到系统内部布置最优化。
“三严三实”专题教育活动的意义是什么?你怎么践行该项活动?
关于亚洲政坛女性首脑,下列说法错误的是()。
Hewaschargedwithbeingan______tothecrime.
Thenewbridgewill______theislandtothemainland.
Theadditional2billiondollarswillmainlybeusedto______.
最新回复
(
0
)