首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设
admin
2019-08-21
83
问题
在窗体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
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
编写如下程序:PrivateSubCommandl_Click()DimnAsLong,SAsStringn=InputBox("输入一个数")DoWhilen<>0S=S&nMod10:s=s&n\
以下关于控件数组的叙述中,正确的是
为使文本框具有初始值“VB”,在设计阶段正确的操作是
表达式Str(Len("123"))+Str(77.7)的值是()。
在菜单编辑器中建立如下图所示的菜单,并为每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是()。
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
设非空二叉树的所有子树中,其左子树上的结点值均小于根结点值,而右子树上的结点值均不小于根结点值,则称该二叉树为排序二叉树。对排序二叉树的遍历结果为有序序列的是()。
随机试题
保卫我们城市的传统王澍近二十多年来,我们在城市建设方面流于简单地向西方学习,建设高楼大厦。这种现象和中国近代以来长期处于落后形成的追赶心态有关。很多人希望
患儿,1岁。发热,流涕,咳嗽3天就诊,体温39.5℃,耳后发际处可见红色斑疹,疹间皮肤正常,流泪,结膜充血。对该患儿采取的隔离措施中正确的是
下列增感屏的使用注意事项中,不准确的是
冠状动脉粥样硬化最常发生在( )。
计日工通常适用于在现场发生的()计价。
某二级公路挡土墙施工,发生质量事故,造成工程质量低劣,达不到合格标准,加固补强后达到合格,该事故属于()。
下列各项中,按税法规定免交所得税,在计算应纳税所得额时应予以调整的内容是()。
城市学校
DBF为扩展名的文件是______。
Zoosareamongmankind’soldestinstitutions,datingbackatleast4500years,andprobablymore.Acrosstheworldtheyhavebr
最新回复
(
0
)