首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。 要求:程序中不得使用变量,每个事
(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。 要求:程序中不得使用变量,每个事
admin
2017-09-22
47
问题
(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其设置为圆形。画一个名称为List1的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将所选的值作为形状控件的填充参数。例如,选择3,则形状控件中被竖线填充。如图3.79所示。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
(1)步骤1:新建一个“标准EXE”工程,在窗体Form1中画一个命令按钮,设置相关属性,其属性及值如表4-49所示。 [*] 步骤2:打开代码编辑窗口,编写按钮的Click事件过程中。参考代码: Private Sub C1_Click() Form1.BackColor=&HFF& End Sub 步骤3:按要求将文件保存至考生文件夹中。 (2)步骤1:新建一个“标准EXE”工程。 步骤2:在窗体Form1中加入一个列表框和一个形状控件,并分别如表4-50设置它们的相关属性。 [*] 步骤3:打开代码编辑窗口,编写列表框的Click事件过程。参考代码: Private Sub List1_Click() Shape1.FillStyle=List1.Text End Sub 步骤4:按要求将文件保存至考生文件夹中。
解析
(1)本题需在命令按钮的单击事件过程中,通过语句设置窗体的BackColor属性值为“&HFF&”。
(2)当形状控件的Shape属性值是3时显示为圆;形状控件的填充色样式通过FillStyle属性设置,其中0为实线、1为透明、2为水平线、3为垂直线、4为向上对角线、5为向下对角线、6为交叉线、7为对角交叉线,缺省值为1。要通过单击列表框中的项目,来改变形状控件的填充样式,需在列表框的Click事件过程中,用语句将列表框中所选的值(通过其Text属性返回)作为形状控件的填充参数。
转载请注明原文地址:https://kaotiyun.com/show/akGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击窗体上的命令按钮Command1,程序的输出为【】。PrivateSubCommand1_Click()a="AbC"b="dEF"c=UCase(A)+LCase(B)PrintAsc(C)End
VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是()。
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
随机文件使用Put语句写数据,使用【】语句读数据。
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3al
随机试题
设A是三阶实对称矩阵,E是三阶单位矩阵,若A2+A=2E,且丨A丨=4,则二次型xTAx的规范形为().
蒸汽吞吐也是注蒸汽采油的一种方法,与蒸汽驱油不同的是在()按周期注入蒸汽。
女性,26岁,因阴道间断血性分泌物和气短2周就诊。体检发现:阴道左侧壁红褐色肿物一个,直径约3cm,质地松脆,触之易出血。胸片显示两肺散在多数直径2~3cm大小结节。阴道肿物活检,病理切片检查发现如下:肿瘤由合体滋养层样细胞和细胞滋养层样细胞构成,细胞异型
A.桂枝茯苓丸B.血府逐瘀汤C.失笑散D.膈下逐瘀汤E.桃红四物汤治疗子宫肌瘤气滞血瘀证,应首选()
根据中国人民保险公司的海洋运输货物的保险条款的规定,货物在运输过程中由于自然灾害和运输工具发生意外事故造成被保险货物的实际全损,由于运输工具遭遇搁浅、触礁、沉没、互撞等情况造成保险货物的全部和部分损失,是属于____险别的保险范围。
在任何产量上的长期总成本决不会大于该产量上由最优生产规模所决定的短期总成本。这句话()。
下列各句中没有语病的一句是()。
中国农学会_______“献身、创新、求实、协作”的宗旨,始终不渝地坚持以推动农业科技进步、促进农村发展为己任,大力开展学术交流和科技普及,积极_______和举荐人才,为提高广大农民科技素质、加快农业科技进步作出了重要贡献。填入划横线部分最恰当的一项是(
十八届三中全会指出,市场在资源配置中作用是()
ManyUnitedStatescompanieshave,unfortunately,madethesearchforlegalprotectionfromimportcompetitionintoamajorline
最新回复
(
0
)