首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Shapel的形状控件,在属性窗口中将其形状设置为圆形。添加一个名称为Listl的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将其值作为形状控件
在名称为Forml的窗体上添加一个名称为Shapel的形状控件,在属性窗口中将其形状设置为圆形。添加一个名称为Listl的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将其值作为形状控件
admin
2020-04-08
52
问题
在名称为Forml的窗体上添加一个名称为Shapel的形状控件,在属性窗口中将其形状设置为圆形。添加一个名称为Listl的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将其值作为形状控件的填充参数。例如,选择3,则形状控件中被竖线填充,如图所示。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
【操作步骤】 步骤1:建立界面,将窗体FonM的Caption属性设置为“图形控制”,然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表4.60。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Listl_Click() Shapel.FillStyle=Listl.Text End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过形状控件的Name和Shape属性设置形状控件的名称和形状,通过列表框的Name和List属性设置列表框的名称和列表项,单击列表框中的某一项,通过List]的Text属性确定选中的值,并将其值作为形状控件的填充参数,FilIStvIe属性用于返回/设置一个形状控件的填充样式。
转载请注明原文地址:https://www.kaotiyun.com/show/nATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
通用对话框Filter属性的作用是
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框PrivateSubCommandl一Click()Text1.Text=“程序设计”Text1.SetFocusEndSubPriv
某系统总体结构图如下图所示:该系统总体结构图的深度是( )。
随机试题
下列不符合恶性纤维组织细胞瘤的描述是
最有利于协助判断性情变化原因的检查是有助于精神症状缓解的治疗不包括
清肺热,养肺阴宜用敛肺生津宜用
慢性肝炎是指肝发生炎症及肝细胞坏死持续
A.神经官能症B.左心衰竭C.喘息型慢性支气管炎D.气胸E.喉水肿呼气性呼吸困难
根据《环境影响评价技术导则一总纲》,哪些项目需进行资源利用合理性分析。()
防止引燃煤尘爆炸的措施有()。
某高校副校长对学生说:“看到老人摔倒了你就去扶。他要是讹你,法律系给你提供法律援助。要是败诉了。学校替你赔偿!”这段话得到广大网友的力挺,并在网络上迅速蹿红,被称为“撑腰体”。请你谈谈对于“撑腰体”蹿红这一现象的看法o
计算机中所有信息的存储都采用
DWINDLE:
最新回复
(
0
)