首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Shal的形状控件,然后建立一个菜单,名称为shape0,标题为“形状”,该菜单有两个子菜单,其名称分别为shape1和shape2,其标题分别为“正方形”和“圆形”,如图所示。然后编写适当的程序。程序运行后,如果选
在名称为Form1的窗体上添加一个名称为Shal的形状控件,然后建立一个菜单,名称为shape0,标题为“形状”,该菜单有两个子菜单,其名称分别为shape1和shape2,其标题分别为“正方形”和“圆形”,如图所示。然后编写适当的程序。程序运行后,如果选
admin
2016-06-30
45
问题
在名称为Form1的窗体上添加一个名称为Shal的形状控件,然后建立一个菜单,名称为shape0,标题为“形状”,该菜单有两个子菜单,其名称分别为shape1和shape2,其标题分别为“正方形”和“圆形”,如图所示。然后编写适当的程序。程序运行后,如果选择“正方形”菜单项,则形状控件显示为正方形;如果选择“圆形”菜单项,则窗体上的形状控件显示为圆形。
注意:程序中不能使用变量,每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为8jt2.frm。
选项
答案
步骤1:建立界面,并添加一个名称为Shal的形状控件,建立菜单的属性见表4。 [*] 步骤2:编写程序代码。 Private Sub shape1_Click() Sha1.Shape=1 End Sub Private Sub shape2_Crick() Shal.Shape=3 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意,选择“正方形”菜单项,则将形状控件Shape属性设置为1,显示为正方形;如果选择“圆形”菜单项,则将形状控件Shape属性设置为3,窗体上的形状控件显示为圆形。
转载请注明原文地址:https://kaotiyun.com/show/NlLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。PrivateSubCommand1_Click() Max=0 Min=10ForI=1To20 N=Val(
设已打开5个文件,文件号为1,2,3,4,5。要关闭所有文件,以下语句正确的是
VisualBasic程序设计采用的编程机制是
软件维护活动包括:改正性维护、适应性维护、______维护和预防性维护。
下列叙述中正确的是()。
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
使用ReDim/Preserve可以改变数组()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)F
下列叙述不正确的是()。
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
随机试题
局部兴奋的特征不包括()
下列哪项不符合持续性枕后位的临床表现
下列对酶的叙述正确的是
季某,男,13个月。12月26日就诊。患儿于诊前2小时出现发热(体温39.7℃)恶风,鼻塞流浊涕。10分钟前抽搐1次,持续30秒左右,就诊时抽搐已止,精神萎靡。舌质红苔薄白。治疗宜
擅长大补元气而为救脱要药,又善补脾肺之气而生津、安神、健脑益智性平味甘,不燥不腻,补气力缓,多用于脾肺气虚之轻症。又兼生津养血,可治津亏血虚之证
交流电动机空载试运行在无要求时如何测试?记录哪些数据?
在地形艰险及爆破量较小地段(如打水沟、开挖便道、基坑等),下列爆破方式中应优先选择的是()。
投保人和保险人订立保险合同,应当遵循______、______、______的原则,不得损害社会公共利益。( )
Mostyoungpeopleenjoyphysicalactivities,walking,cycling,football,ormountaineering.Thesewhohaveapassion【C1】___
A、Parentsneverasktheirchildrenforadvice.B、Parentsalwaysgivetheirchildrenconstructiveadvice.C、Mostteenagersseldom
最新回复
(
0
)