首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
admin
2019-08-21
58
问题
在窗体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://kaotiyun.com/show/4OUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_load()ShowText1.Text="":Text1.SetFocusEndSubPrivateSubForM_MouseUp(Bu
为了计算1+3+5…+99的值,某人编程如下:k=1:s=0whilek<=99k=k+2:s=s+kwendprints在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是
以下关于控件数组的叙述中,正确的是
下列选项中不属于面向对象程序设计特征的是
假定有以下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是
设x=4,y=8,z=7,则以下表达式的运算结果是()。x<yAnd(Noty>z)OrZ<X
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
在考生文件夹中有一个工程文件vbsj5.vbp(相应的窗体文件为vbsii5.frm)。窗体Form1上有两个名称为Labl和Lab2的标签,它们的标题分别为“密码"和“允许次数”;一个名称为Cmd1的命令按钮,其标题为“确定”;两个名称分别为Txt1和T
设数据结构B=(D,R),其中D={a,b,c,d,e,f}R={(f,a),(d,b),(e,d),(c,e),(a,c)}该数据结构为()。
随机试题
内部报酬率是指()
浅反射包括
患者,女,26岁。有"狂病"史。现常无名恐惧,胡乱猜疑,睡眠很少,面色晦暗,言语不清,头痛头晕,舌暗红有瘀斑,苔薄黄,脉细涩。现治疗选方宜
游离胆汁酸不包括
男性,68岁。进行性排尿困难已2年,不能自行排尿8小时,查体膀胱区膨隆,轻度压痛,首选的治疗方法应是
下列传动中,()能够自锁。
阅读以下文字。完成下列问题。①我们这些总有一死的人的命运是多么奇特呀!我们每个人在这个世界上都只做一个短暂的逗留,目的何在,却无所知,尽管有的自以为对此若有所感。但是不必深思,只要从日常生活就可以明白:人是为别人而生存的——首先是那样一些人,他们
代位求偿权,在财产保险中,由于第三者的过错致使保险标的发生保险责任范围内的损失的,保险人按照保险合同的约定给付保险金后,得在其赔付金额的限度内代位行使对当事人请求赔偿的权利,即代位求偿权。下列不属于行使代位求偿权的必要条件的是()。
活性期牙周炎的病理变化。
将考生文件夹下CREAM文件夹中的SOUP文件夹删除。
最新回复
(
0
)