首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框,名称为Text1,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个文本框,名称为Text1,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如
admin
2018-10-29
56
问题
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个文本框,名称为Text1,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如图1-31 所示)。请编写适当事件过程,使得在运行时,单击命令按钮,则把文本框中文字的字体改为“宋体”。程序中不得使用任何变量。
注意:保存时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上画一个图片框,名称为P1,高为1800,宽为1600,并放入文件名为pic1.bmp 的图片(如图1-32 所示)。请编写适当的事件过程,使得在运行时,如果双击窗体,则图片框中的图片消失。程序中不得使用任何变量。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置相应属性。 步骤2:打开代码编辑窗口,编写命令按钮的单击事件过程。 参考代码: Private Sub C1_Click() Me.Text1.Font.Name = "宋体" End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,编写窗体的双击事件过程。 参考代码: Private Sub Form_DblClick() P1.Picture = LoadPicture("") End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/RtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下选项中,不合法的VisualBasic的变量名是( )。
支持子程序调用的数据结构是( )。
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click() StaticyAsIntege
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
随机试题
导致窜货的原因包括()
男性,60岁,上腹隐痛,巩膜、皮肤发黄和瘙痒近两个月;纳差,稀便,乏力,体重减轻月余。查体:消瘦,巩膜、皮肤明显黄染,腹壁无扩张静脉,腹平软,肝肋下6cm,边钝,质中,无结节,无触痛,触及胀大胆囊,无移动性浊音,恰当的治疗是
患者,因外伤急性失血,血压降至60/40mmHg,尿量明显减少,其尿量减少的原因主要是
建筑高度超过()m且标准层面积超过()m2的公共建筑,在屋顶宜设直升飞机停机坪或供直升机救助的设施。
电信业务经营许可证的发证机关为()。
()是人力资源管理理论的基本前提和基础。
下列不属于民事诉讼法中表述的诉讼参与人的是()。
中国共产党在新民主主义革命的不同时期建立过不同政权形式,而对地主阶级态度差别最大的两种政权形式是:
Atthefootofthemountain______.
Supposeyouaredrivingoffahighwaywiththreelanesgoinginyourdirectionandyoucomeuponatellplazawith.sixtollboo
最新回复
(
0
)