首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下: ①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本,单击“统计”按钮,
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下: ①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本,单击“统计”按钮,
admin
2015-08-12
37
问题
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下:
①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。
②在Text1中选取部分文本,单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述功能。
*注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码如下: option Base 1 Dim s Ad string Private Sub Command1_C3ick() Open App.Path&"\in4?dat"For Input As #1 s=Input(LOF(1),#1) Close#1 Text1.Text=s End Sub Private Sub Command2_Click() Dim m As Integer ’If Len(s)=?Then MsgBox"请先使用‘读数据’功能!" Else ’If Text1.?=0 Then MsgBox"请先选中文本!" Else t="" For i=1 To Text1.SelLength c=Mid(Text1.SelText,i,1) If c<>""Then t=t+c Else ’If?="the" Then m=m+1 End If t="" End If Next i ’?=Str(m) End If End If End Sub 参考答案: 第1个?处填入:0 第2个?处填入:SelLength 第3个?处填入:kase$(t) 第4个?处填入:Text2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
单击“读数据”按钮,运用文件操作将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2_Click事件过程中,否则运用Len()函数判断文本框中是否有字符,如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’功能!”,否则运用SelLength属性判断文本框中是否有字符被选中,如果SelLength属性0,那么弹出MsgBox对话框“请先选中文本!”。
在Text中选中部分文本,并单击“统计”按钮,通过LCase函数使统计不区分大小写字母,判断选中文本中是否出现单词“the”,并统计这个单词的出现的次数,将结果显示在Text2文本框内。
转载请注明原文地址:https://kaotiyun.com/show/bSQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为a="ABBACDDCBA"ForI=6To2Step-2x=Mid(a,I,I)y=Leh(a,I)z=Right(a,I)z=x&y&
任何控件都有______属性。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
执行如下两条语句后,窗体上显示的是a=8596PrintFormat(a,"$00,00.00")
下列程序段的执行结果为DimM(10)Fork=1To10M(k)=11-kNextkx=6PrintM(2+M(x))
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
决定控件上文字的字体、字形、大小、效果的属性是______。
以下控件可以用来实现定时地执行某段代码的是______。
随机试题
陆游《关山月》:___________,三十从军今白发。
A、药品生产质量管理规范B、中药材生产质量管理规范C、药品经营质量管理规范D、药品临床试验管理规范E、药品非临床研究质量管理规范GMP是哪种规范的英文缩写
全科医生提供预防服务的途径不包括
下列关于立法体制的表述,正确的是__________。
植树节某班20名同学在一段直线公路一侧植树,每人植一棵,相邻两棵树相距10米,开始时需将树苗集中放置在某一树坑旁边,现将树坑从1到20依次编号,为使各位同学从各自树坑前来领取树苗所走的路程总和最小,树苗可以放置的最佳坑位的编号为:
记者招待会
执行下列语句后,c3中的值为【】 intc1=1,c2=2,c3;c3=1.0/c2*c1;
A不知B今天的航班C准时D到达?
Whatdidthemandolastweekend?
Doyouwakeupeverydayfeelingtootired,orevenupset?Ifso,thenanewalarmclockcouldbejustforyou.Theclock,c
最新回复
(
0
)