首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
admin
2019-08-21
40
问题
在窗体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://jikaoti.com/ti/RYN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下变量声明语句:Dima,bAsBolean则下面叙述中正确的是
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
表达式5Mod3+3\5*2的值是
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:PrivateSubCommandl_Click()CD1.Filter="AllFile|*.*|TextFile|*.txt|PPT|*.p
在窗体上有1个名为Cd1的通用对话框,为了在运行程序是时打开保存文件对话框,则在程序中应使用的语句是
设有如下事件过程:PrivateSubForm_Click()x=0Whilex<10x=x+1:x=x*xWendPrintxEndSub运行程序,单击窗体,输出结果是
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
可以产生30~50(含30和50)之间的随机整数的表达式是()。
设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为()。
随机试题
新生儿病理性黄疸的特点()
口腔内缝线打结应打()
《中华人民共和国药品管理法实施条例》规定,国家将非处方药分为甲、乙两类是根据非处方药品的
下列项目按水平投影面积1/2计算建筑面积的有()。
影响商品需求的最关键因素是()。
下列各种行为哪项实行数罪并罚?()。
Notevery______mansion,church,battlesits,theater,orotherpublichallcanbepreserved.
MosteconomistsintheUnitedStatesseemcaptivatedbythespellofthefreemarket.Consequently,nothingseemsgoodornormal
Theneedforasatisfactoryeducationismoreimportantthaneverbefore.Nowadays,withoutaqualificationfromareputablesch
Divorcedoesn’tnecessarilymakeadultshappy.Buttoughingitoutinanunhappymarriageuntilitturnsaroundjustmightdo,a
最新回复
(
0
)