首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为FormI的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为FormI的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图
admin
2016-12-29
94
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为FormI的窗体上画一个文本框,名称为Textl,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图2.168所示)。请编写适当事件过程,使得在运行时,单击命令按钮,则把文本框中文字的字体改为“宋体”。程序中不得使用任何变量。
注意:保存时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体卜画一个图片框,名称为P1,高为1800,宽为1600,并放入文件名为picl.bmp的图片(如图2.169所示)。请编写适当的事件过程,使得在运行时,如果双击窗体,则图片框中的图片消失。程序中不得使用任何变量。
注意:保存时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sit2.frm。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表3.89在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写命令按钮的单击事件过程。 参考代码: Private Sub Cl—Click() Me.Textl.Font.Name=“宋体” End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表3-90在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写窗体的双击事件过程。 参考代码: PriVate Sub Form—Db].Click() P1.Picture=LoadPicture(“”) End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/E9Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic对象可以分为两类,分别为_________和________。
数据库系统其内部分为三级模式,即概念模式、内模式和外模式。其中,________是用户的数据视图,也就是用户所见到的数据模式。
如果在程序中要将a定义为静态变量,且为整型数,则应使用的语句是()。
执行x$一InputBox(“请输人x的值”)时,在弹出的对话框巾输入123,在列表框Listl中选中一个列表项(数据为456),使结果为123456的语句是()。
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
关系数据库中能实现的专门关系运算包括__________、连接和投影。
目录列表框Path属性所表示的含义是()。
设有如下通用过程:PublicSubFun(a()AsInteger,xAsInteger)Fori=1TO5x=x+a(i)
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存在方式是______。
随机试题
瑞典社会保障制度的模式是()
依照我国《婚姻法》的规定,下列属于结婚形式要件的是()
工程建设项目实施阶段造价控制的核心是()。
某化工厂发生氯气泄漏事故后,应急救援的首要任务是抢救中毒人员和人员疏散,另外一项重要任务是()。
“钢材表面已发生锈蚀且部分氧化皮已经剥落”属于钢材表面锈蚀等级的()级。
预应力混凝土连续梁合龙顺序一般是()。
甲:你不能再抽烟了。抽烟确实对你的健康非常不利。乙:你错了。我这样抽烟已经15年了,但并没有患肺癌,上个月我才做的体检。有关上述对话,以下哪项如果是真的,最能加强和支持甲的意见?()
对于循环队列,下列叙述中正确的是()。
在商场购物中,实体顾客和实体商品之间的联系是()。
Lookatthenotesbelow.Someinformationismissing.YouwillhearamantelephoningHumanResourcesaboutdetailsofo
最新回复
(
0
)