首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Shape1的形状控件,添加两个名称分别为Command1、Command2,标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”,如图1所示。请编写适当的事件过程,使得程序在运行时,单击“圆形
在名称为Forml的窗体上添加一个名称为Shape1的形状控件,添加两个名称分别为Command1、Command2,标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”,如图1所示。请编写适当的事件过程,使得程序在运行时,单击“圆形
admin
2016-06-30
29
问题
在名称为Forml的窗体上添加一个名称为Shape1的形状控件,添加两个名称分别为Command1、Command2,标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”,如图1所示。请编写适当的事件过程,使得程序在运行时,单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮,将形状控件的边框颜色设为红色(&HFF&),如图2所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表2。 [*] 步骤2:编写程序代码。 Private Sub Commandl_Clitk() Shape1.Shape=3 End Sub Private Sub Command2_Click() Shape1.BorderColor=&HFF& End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意,通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。在单击命令按钮事件过程中,通过设置形状控件的BorderColor和Shape属性,将形状控件的边框颜色设为红色和将形状控件设为圆形。
转载请注明原文地址:https://kaotiyun.com/show/4vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
块结构条件语句中的必选项是______。
下列语句段在运行时的显示结果是______。Clsx=10.34+8PrintLen(x)
阅读程序:OptionBase1Dimart()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置并改正错误。
下列程序运行后的输出结果是______。PrivateSubf(k,s) s=1 Forj=1Tok S=S*j NextEndSubPrivateSubCommand1_
设有如下程序:OptionBase1PrivateSubCommand1_Click() Dima(10)AsInteger DimnAsInteger n=InputBox("输入数据")
系统符号常量的定义可以通过______获得。
双击窗体中的对象后,VisualBasic将显示的窗口是
以下各项中,VisualBasic不能接收的图形文件是
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和()。
随机试题
某被审计单位的出纳利用企业内部控制执行的缺陷贪污库存现金。下列有关说法中,正确的有()。
若零件在装配或更换时,不做任何选择,不需调整或修配,就能满足预定的使用要求,则其互换性的两种说法是________。
Task2A.aChristianpriestB.asecretadmirerorasimplehandmadecardC.theTowerofLondonD.messagesoflov
下列不属于专职抗原提呈细胞的是
中国大陆目前主要有所有权、使用权、租赁权、抵押权、典权、地役权。其中,使用权属于自物权,其余属于他物权。()
高压燃气必须通过调压站才能送入()。
重男,奉行“男士优先”,出门时妇女要让男子先走,男子不能主动与妇女握手的国家是()。
××省人民政府文件×政复[2013]52号——批复省环保厅:你厅《关于批准实施我省2013年度主要污染物总量减排计划的请示》(某环办[2013]96号)悉。经研究,批复如下:一、原则同意你厅编制的《××省2013年度主要污染物总量减排计划》,望抓
一般情况下,男人比女人长得要高一些,这是因为:
Asalways,Ihadtofightthe______totakewhatshewillinglyoffered.
最新回复
(
0
)