首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Sha1的形状控件,然后建立一个菜单,标题为“形状”,名称为shapeO,该菜单有两个子菜单,其标题分别为“正方形”和“圆形”,其名称分
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Sha1的形状控件,然后建立一个菜单,标题为“形状”,名称为shapeO,该菜单有两个子菜单,其标题分别为“正方形”和“圆形”,其名称分
admin
2016-01-31
59
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个名称为Sha1的形状控件,然后建立一个菜单,标题为“形状”,名称为shapeO,该菜单有两个子菜单,其标题分别为“正方形”和“圆形”,其名称分别为shape1和shape2,如图3-64所示,然后编写适当的程序。程序运行后,如果选择“正方形”菜单项,则形状控件显示为正方形:如果选择“圆形”菜单项,则窗体上的形状控件显示为圆形。
注意:程序中不能使用变量,每个事件过程中只能写一条语句。保存时必须存放在考生文件灭下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 要实现本题中的功能,应在“正方形”菜单项的Click事件过程中,令Sha1的Shape属性为1,在“圆形”菜单项的Click事件过程中,令Sha1的Shape属性为3。 操作步骤 步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个名为Sha1的形状控件。 步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表4-37所示,设置建立菜单项。 [*] 步骤3:打开代码编辑窗口,编写菜单命令的单击事件过程。 参考代码: PriVate Sub Shape1_Click() He.Sha1.Shape=1 End Sub PriVate Sub Shape2_Click() Form1.Sha1=3 End Sub 步骤4:按要求将文件保存至考生文件夹中。 考点链接 图形控件、菜单。
解析
转载请注明原文地址:https://kaotiyun.com/show/OuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()Dima(5)Fori=0To4A(i)=i+1t=i+1
在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为()。
组合框控件是将()组合成一个控件。
在窗体上画一个命令按钮,名称为Command1,然后编写下列程序:PrivateSubCommand1_Click()Fori=1To2Forj=1ToiPrintString(i,"Hello")NextjPrintNe
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,YAsInteger)y=x*yIfy>0Then
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
软件危机出现于20世纪60年代末,为了解决软件危机,人们提出了______的原理来设计软件,这就是软件工程诞生的基础。
关于变量作用域,下列叙述中正确的是()。
随机试题
汽轮机防机组超速都是以关闭主汽门的方法来实现的。()
进出口商检的内容在法律上被界定为合格评定活动,合格评定程序包括哪些具体环节?
对脆弱类杆菌生物学特性的叙述,正确的是
对放疗高度敏感的肿瘤是
某病人胸廓呈桶状,胸廓活动度减弱,叩诊过清音,最可能是
排出管有室外排水管连接处的检查井,井中心距建筑物外墙不小于()m。
Newsweek(清华大学2013年研)
设随机变量X1,X2,X3,X4独立同分布,且Xi~(i=1,2,3,4),求X=的概率分布.
在面向对象方法中,类的实例称为【】。
"Equalpayforequalwork"isaphraseusedbytheAmericanwomenwhofeelthattheyareunfairlytreatedbysociety.Theysayi
最新回复
(
0
)