首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,若在文本框Text1中输入一个字符串。若该字符串超过15个字符后,超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。 注
新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,若在文本框Text1中输入一个字符串。若该字符串超过15个字符后,超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。 注
admin
2009-03-17
21
问题
新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,若在文本框Text1中输入一个字符串。若该字符串超过15个字符后,超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。
选项
答案
(1)Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件,在窗体上创建两个文本框。双击文本框Text1,弹出代码窗口,添加如下代码: Private Sub Text1_Change() If Len(Text1.Text)>=15 Then Text2.SetFocus End If End Sub (3)按F5键运行程序。如图12所示。 (4)执行“文件”→“保存工程”命令,将工程文件命名为ylc4.vbp,窗体文件命名为 ylc4.fi-m。 [*]
解析
(4)第4小题中利用了SetFocus来控制焦点。当Text1窗口中的字符串超过长度时,焦点转移到文本框Text2中。
转载请注明原文地址:https://jikaoti.com/ti/nWq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
java.lang.object类中实现线程通信的两个方法是()。
利用E-R模型进行数据库的概念设计,可以分成3步:首先设计局部E-R模型,然后把各个局部E-R模型综合成一个全局的模型,最后对全局E-R模型进行()。
下面几种调试方法中不适合调试大规模程序的是()。
在编写JavaApplet程序时,若需要对发生的事件作出响应和处理,一般需要在程序的开头写上()语句。
下列各项中代表单精度浮点数的是()。
Java中对Applet设置了严格的安全限制。下列关于Applet在Java2中的安全限制叙述正确的是()。
下列关于线程调度的叙述中,错误的是()。
下列语句段将输出字符’*’的个数为()。inti=100;while(1){i--;if(i==0)break;cout<<’*’;}
在面向对象方法中,类之间共享属性和操作的机制称为【】。
具有3个结点的二叉树有()。
随机试题
患儿女性,12.5岁,因“反复皮肤出血点伴间断鼻出血5年余”入院。患儿5年前因“发热感冒”查血常规发现血小板计数(PLT)26.0×109/L,第2天发现面部、颈部和耳后少量出血点。骨髓穿刺涂片检查,除巨核细胞108个外,余大致均在正常范围内。2天后热退。
角化不良可见于下列何种细胞
对于材料已收到,但月末结算凭证仍然未到的业务,不能记入“原材料”账户核算。()
(2012年)关于对农产品实行保护价格的说法,正确的有()。
下面是一位同学准备的自编剧本中的一段:一位商人慕名来到了①文艺复兴的发源地英国,拜会了②文艺复兴的先驱莎士比亚,探讨了③但丁的悲剧《哈姆雷特》,他们还欣赏了④达.芬奇的名画《蒙娜丽莎》。你认为剧本中应修改的选项是()。
依据柯尔伯格的道德发展理论,具备“自我为中心、服从强权和权威、力避苦恼”特征的儿童道德发展处在()水平。
我国公安机关同外国警察机关之间开展刑事司法协助的根据是( )。
Aneweconomicspaperhassomeold-fashionedadviceforpeoplenavigatingthestressesoflife:Findaspousewhoisalsoyourb
给定程序中,函数fun的功能是:有N×N矩阵,将矩阵的外围元素顺时针旋转。操作顺序是:首先将第一行元素的值存入临时数组r,然后使第一列成为第一行,最后一行成为第一列,最后一列成为最后一行,临时数组中的元素成为最后一列。例如,若N=3,有下列矩阵
Perhapsallthisaddsuptoabeliefinwhathasbeencalledthehumanuseofhumanbeings.Wearesetofffromtherestofthe
最新回复
(
0
)