首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计visual Basic应用程序(包括界面和代码)。 在名称为。Form1的窗体上从上到下画两个文本框,名称分别为Text1、Text2;再画一个命令按钮,名称为Command1,标题为“选中字符数是”。程序运行时,在Text1
请根据以下各小题的要求设计visual Basic应用程序(包括界面和代码)。 在名称为。Form1的窗体上从上到下画两个文本框,名称分别为Text1、Text2;再画一个命令按钮,名称为Command1,标题为“选中字符数是”。程序运行时,在Text1
admin
2019-05-28
51
问题
请根据以下各小题的要求设计visual Basic应用程序(包括界面和代码)。
在名称为。Form1的窗体上从上到下画两个文本框,名称分别为Text1、Text2;再画一个命令按钮,名称为Command1,标题为“选中字符数是”。程序运行时,在Text1中输入若干字符,选中部分内容后,单击“选中字符数是”按钮,则在Text2中显示选中的字符个数(如图3-121所示)。请编写按钮的Click事件过程。
要求:程序中不得使用变量,事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 要在Text2中显示Text1中选中的字符个数,需编写语句将Text1的SelLength属性返回值赋值给Text2。 操作步骤 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性, 步骤2:打开代码编辑窗口,编写以下事件过程: 参考代码: Private Sub Command1_Click() Text2.Text=Forrn1.Text1.SelLength End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 文本控件。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/UPUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4Forj=1To4a(i,j
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommond1_Click()DimnumAsInteger,xAsIntegernum=Val(InputBox("请输入一个正整数"))Select
如果将命令按钮的访问键设置为“D”,以下不会触发命令按钮Click事件的操作是
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是
为使文本框具有初始值“VB”,在设计阶段正确的操作是
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时,在文本框Text1中输入一个大于2的偶数,并单击“分解为”命令按钮,则可以将该偶数分解为两个素数之和,且要求其中一个素数是所能够分解出的最小的素数(一个偶数
随机试题
发电设备的检修方式分为哪几类?分什么等级?
奥美拉唑治疗消化性溃疡的作用机制是
按国家有关规定,核定新增固定资产价值时,建设单位的管理费是按()。
根据《合同法》的规定,合同的变更必须具备的要件包括( )。
结合小学生身体发展的基本特征,谈谈体育促进小学生身体发展应注意的问题。
右图是某生态系统中食物网简图。图中甲~庚代表各种不同的生物。请据图分析回答:(1)此生态系统中作为生产者的生物是______;作为次级消费者的生物是______。(2)若此生态系统受到重金属盐污染,那么在体内积存重金属污染物最多的生物是______。
欧洲俱乐部冠军联赛,共15个俱乐部球队参加。比赛时,先分成两个小组,第一组8个球队,第二组7个球队。各组进行主客场制,然后再由各组的前两名共4个队进行单循环赛,决出冠亚军。则该届欧冠联赛共需比赛多少场?
Theworldisgoingthroughthebiggestwaveofmergersandacquisitionseverwitnessed.TheprocesssweepsfromhyperactiveAmer
在μC/OS—Ⅱ系统中,可以采用的任务间通信机制有【69】、【70】、信号量、互斥信号量和事件标志组等。
Increasingly,overthepasttenyears,peopleespeciallyyoungpeoplehavebecomeawareoftheneedtochangetheireatinghab
最新回复
(
0
)