首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
admin
2019-08-21
84
问题
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设置为选中状态。
要求:编写适当的事件过程,使得程序运行时,单击不同的单选按钮,能将形状控件中的形状设置成选中的单选钮对应的形状,程序运行示意图如图所示。
选项
答案
步骤1:新建一个窗体,在窗体上添加一个Shape控件,并按照表4设置控件的相关属性。 [*] 步骤2:向窗体中添加一个单选按钮控件,然后复制两次创建控件数组,按照表5设置相关属性。 [*] 步骤3:双击其中一个单选按钮,打开代码编辑窗口,在代码编辑窗口的指定位置输入以下代码(画横线部分是需要填入的内容)。 Private Sub Olotion1_Click(Index As Integer)
Shape1.Shape=Index
End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
新建一个窗体,在窗体上添加一个Shape控件,并设置控件的Shape:属性为0-Rectangle;再添加一个名称为Option1的单选按钮控件数组,包含3个单选按钮,下标分别为0、1、2,其Caption属性分别为“矩形”“正方形”“椭圆”,且标题为“矩形”的单选按钮的Value属性为True;最后为单选按钮控件数组的Click事件添加代码。
转载请注明原文地址:https://www.kaotiyun.com/show/4OUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i=strL/2
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()Dima(4)AsInte
下列描述中,不符合良好程序设计风格要求的是
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下:in3.dat文件中的100个正整数读入数组a中;②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方,那么它
设x=4,y=8,z=7,则以下表达式的运算结果是()。x<yAnd(Noty>z)OrZ<X
下面叙述不正确的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
层次型、网状型和关系型数据库划分原则是()。
设数据结构B=(D,R),其中D={a,b,c,d,e,f}R={(f,a),(d,b),(e,d),(c,e),(a,c)}该数据结构为()。
随机试题
腹内斜肌参与构成了腹直肌鞘的()。
生产过程中产生的静电电压的最高值能达到()以上。
退休公务员可享受在职时的
犬发生急性支气管炎时,血液学检查可见
关于IgM的描述,哪项是错误的
肾小球有效滤过压等于()。
根据国家财税制度规定,不能作为偿还贷款资金来源的是()
【2016年】2015年12月31日,某企业应收账款账面余额为1200万元,预计未来现金流量现值为600万元;计提坏账准备前,企业坏账准备贷方账户余额为350万元,不考虑其他因素,当日该企业应计提的坏账准备为()万元。
注册会计师在确定应收账款的函证时间时,如果下列四种决策是适当的,所依据的重大错报风险评估水平最低的是()。
利用移动互联网、物联网技术与智能手机的结合,中国的共享单车公司______出共享单车的“无桩”模式,用手机应用扫描二维码完成解锁和支付,不仅提高了自行车使用和共享的效率,还能获得______的商业回报。填入画横线部分最恰当的一项是:
最新回复
(
0
)