首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1、标题为“输入”、最大化按钮和最小化按钮都失效的窗体上画一个名称为Frame1的框架控件,其标题内容为“选择兴趣”;再向框架内画两个名称分别为Check1和Check2、标题文字分别为“游泳”和“唱歌”的复选框。程序执行时,窗体自动
(1)在名称为Form1、标题为“输入”、最大化按钮和最小化按钮都失效的窗体上画一个名称为Frame1的框架控件,其标题内容为“选择兴趣”;再向框架内画两个名称分别为Check1和Check2、标题文字分别为“游泳”和“唱歌”的复选框。程序执行时,窗体自动
admin
2019-05-21
37
问题
(1)在名称为Form1、标题为“输入”、最大化按钮和最小化按钮都失效的窗体上画一个名称为Frame1的框架控件,其标题内容为“选择兴趣”;再向框架内画两个名称分别为Check1和Check2、标题文字分别为“游泳”和“唱歌”的复选框。程序执行时,窗体自动显示在屏幕正中央,Check2复选框呈选中状态。其画面如图所示,请设置相应属性。
存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在窗体Form1上,画一个名称为Shape1的形状控件,将其形状设置为矩形;再向窗体上画3个单选按钮控件,并将它们设置成一个名称为Option1的控件数组,它们的下标分别为0、1、2,标题分别为“矩形”、“正方形”和“椭圆”,且将标题为“矩形”的单选按钮设置为选中状态。
要求:编写适当的事件过程,使得程序运行时,单击不同的单选按钮,能将形状控件中的形状设置成选中的单选钮对应的形状,程序运行示意图如图所示。
存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
选项
答案
(1)【操作步骤】 步骤1:新建一个窗体,根据表5.1设置窗体的相关属性。 [*] 步骤3:向框架中添加2个复选框,根据表5.3设置复选框的相关属性,结果如图5.2所示。 [*] 步骤4:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:新建一个窗体,在窗体上添加一个Shape控件,并按照表5.4设置控件的相关属性。 [*] 步骤2:向窗体中添加一个单选按钮控件,然后复制两次创建控件数组,按照表5.5设置相关属性,结果如图5.3所示。 [*] 步骤3:双击其中一个单选按钮,打开代码编辑窗口,在代码编辑窗口的指定位置输入以下代码(画线部分是需要填入的内容)。 Private Sub Option1_Click(Index As Integer)
Shapel.Shape=Index End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)新建一个窗体,设置窗体的Caption属性、MinButton属性、MaxButton属性和StartUpPosition属性;然后向窗体添加一个框架控件,设置框架的Caption属性;最后在框架里添加两个复选框控件,设置每个复选框的Caption属性及Check2的Value属性。
(2)新建一个窗体,在窗体上添加一个Shape控件,并设置控件的Shape属性为0一Rectangle;再添加一个名称为Option1的单选按钮控件数组,包含3个单选按钮,下标分别为0、1、2,其Caption属性分别为“矩形”“正方形”“椭圆”,且标题为“矩形”的单选按钮的Value属性为True;最后为单选按钮控件数组的Click事件添加代码。
转载请注明原文地址:https://jikaoti.com/ti/jSN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("请输入一个正整数="
假定计时器控件Timerl的Enabled属性为True,Interval属性为1000,并编写如下程序代码:PrirateSubTimer1_Timer()DimxAsIntegerFori=1To100x=x+1Nexti
下面描述中不属于数据库系统特点的是
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
下面控件中,没有Caption属性的是
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性。该属性为
以下不可以作为“容器”的控件是
现有程序如下:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)
设有下面的程序段iX=InputBox("请输入一个整数")ReDima(x)Fork=xTo0Step-1a(k)=kNextk一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
随机试题
下列哪项不是白色海绵状斑痣的特点
通过国内渠道购买进口汽车的用户在报检时应提供口岸检验检疫机构签发的进口机动车辆随车检验单和海关出具的进口货物证明的正本及复印件。( )
UCITS三号指令要求管理公司资本在任何情况下不能低于()的“固定经营成本”。
某社区居民彭某因房子漏水与楼上居民覃某发生纠纷。虽然覃某已经整修了漏水管道,也维修了彭某受损房屋,但是彭某坚持要求覃某拆除管道并为其住房进行重新全面装修。此事经居委会、物业多次组织协调未果。社区民警小谢了解这一情况后,找到彭某进行沟通和劝解。下列说法不恰当
在回答“抗日战争为什么是持久战?最后胜利为什么是中国的呢?根据在什么地方呢?”等问题时,毛泽东指出:“中日战争不是任何别的战争,乃是半殖民地半封建的中国和帝国主义的日本之间在二十世纪三十年代进行的一个决死的战争,全部问题的根据就在这里。”毛泽东所说的“全部
Whenshopkeeperswanttolurecustomersintobuyingaparticularproduct,theytypicallyofferitatadiscount.Accordingtoa
YouaregoingtostudyabroadandshareanapartmentwithJohn,alocalstudent.Writehimane-mailtotellhimaboutyourli
下列语句中使用的布局管理器,当改变容器大小,组件大小不会随着一起改变的选项是()。
Likemanypeople,I’vealwaysseentheOlympicsasthe"main"sportingeventheldeveryfouryears—theheadlineact—andthePara
【S1】【S5】
最新回复
(
0
)