首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Shape1的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
在名称为Form1的窗体上添加一个名称为Shape1的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
admin
2018-06-20
22
问题
在名称为Form1的窗体上添加一个名称为Shape1的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp.窗体文件名保存为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为HS的水平滚动条,最大值为100,最小值为1。再添加一个名称为List1的列表框,在属性窗口中输入列表项的值,分别是1000、1500、2000,如图所示。请编写适当的程序,使得运行程序时,将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
(1)【操作步骤】 步骤1:按题目要求添加控件,并设置其属性。程序中用到的控件及属性见表1。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:程序中用到的控傣及属性见表2。 [*] 步骤2:编写程序代码。 Private Sub List1_Click() HS.Width=List1.Text End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/o4Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了暂时关闭计时器,应把它的一个属性设置为False,这个属性是
设窗体上有一个名称为Listl的列表框和一个名称为Checkl的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。PrivateSubC
为了删除列表框中的一个列表项,应使用的列表框方法是
文本框接受的最长字符数由文本框的()属性确定。
在窗体上画一个名为Commandl的命令按钮,编写如下程序:PrivateSubCommandl_Click()DimM(10)AsIntegerFork=1To10M(k
可以产生30~50(含30和50)之间的随机整数的表达式是
设a=2,b=3,c=4,d=5,表达式Nota
随机试题
2013年,全国商品房销售面积130551万平方米,比上年增长17.3%,增速比1~11月份回落3.5个百分点,比2012年提高15.5个百分点;其中,住宅销售面积增长17.5%,办公楼销售面积增长27.9%,商业营业用房销售面积增长9.1%。商品房销售额
建筑基地应与道路红线相邻接,确定其连接部分最小宽度的因素不包括下列哪项?[2007年第62题]
业主与某监理单位签订了某钢筋混凝土办公楼项目施工阶段的监理合同,监理部设总监理工程师一人和专业监理工程师若干人,专业监理工程师例行在现场检查、旁站实施工作。在监理过程中,发现以下一些问题:1.某层钢筋混凝土墙体,由于绑扎钢筋困难无法施工,施工单位未
关于利用猎头公司进行招聘的说法,错误的是()。
江郎山的“三绝”不包括()。
甲公司委派业务员张某去乙公司采购大蒜,张某持盖章空白合同书以及采购大蒜授权委托书前往。甲、乙公司于2010年3月1日签订大蒜买卖合同,约定由乙公司代办托运,货交承运人丙公司后即视为完成交付。大蒜总价款为100万元,货交丙公司后甲公司付50万元货款,货到甲公
“组纵文化能指导员工的价值取向趋于一致”说的是组织文化的哪项功能?()
Theyareregardedaschoresbybothsexes,butfalldisproportionatelyononlyone.ThelatestsurveyoftimeuseinAmericasug
在sQL语言中,实现事务的提交的语言是——。
某人编写了下面的程序:PrivateSubCommand1=1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数")b=InputBox("请输入
最新回复
(
0
)