首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小
admin
2016-01-31
41
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小”,如图3-1所示,编写适当的事件过程。程序运行后,每单击Command1命令按钮一次,文本框中文本的字体扩大1.2倍;每单击Command2单选按钮一次,文本框中文本的字体缩小1.2倍。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
选项
答案
审题分析 要实现题目要求的功能,只需在两个命令按钮的Click事件过程中,分别设置文本框的FontSize属性为指定值。 操作步骤 步骤1:新建一个“标准EXE”工程,在窗体Form1中加入一个文本框和两个命令按钮,其相关属性设置如表4-1所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Command1_Click() Text1.FontSize=Text1.FontSize * 1.2 End Sub Private Sub Command2_Click() Text1.FontSize=Text1.FontSize/1.2 End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 字体与字形。
解析
转载请注明原文地址:https://jikaoti.com/ti/rVJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
以下关于文件的叙述中,错误的是()。
当一个复选框被选中时,它的Value属性的值是()。
在窗体上添加一个文本框Text1,然后编写下列Load事件过程,则程序运行结果是()。PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFork=1To5t=t*kNextkT
系统符号常量的定义可以通过______获得。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
结构化程序所要求的基本结构不包括
有一个数列,它的前3个数为0,1,1,此后的每个数都是其前面3个数之和,即0,1,1,2,4,7,13,24,……要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下:PrivateSubForm_C
下列关于数据库设计的叙述中,正确的是
随机试题
胃痛常伴有的症状是( )
A.VP方案B.VLP方案C.DA方案D.VLDP方案哪一项诱导缓解治疗方案能使儿童急性淋巴细胞白血病(急淋)患者完全缓解率达到80%~90%?
下列关于社会医学特点的描述,不正确的是
商业银行有效防范和控制操作风险的前提是()。
民族资本主义经济的特点有
[A]Nutritionhighlights[B]Typesofberries[C]Bodybenefits[D]Shoppingandstoragetips[E]Fuelforthebrain[F]Evidenc
对长度为8的线性表进行冒泡排序,最坏情况下需要比较的次数为______。
Takingphotographsisstrictly_____here,asitmaydamagethepreciouscavepaintings.
ConversationalSkillsPeoplewhousuallymakeusfeelcomfortableinconversationsaregoodtalkers.Andtheyhavesomething
Wehadtogotoworkbytaxiyesterdaybecauseourcar(repair)______atthegarage.
最新回复
(
0
)