首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2013-11-29
46
问题
在窗体上画1个文本框,名称为Textl(multiline属性为True),然后再添加三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Textl(Mutiline属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sjt5.frm。
选项
答案
Format()函数用于按指定格式返回字符串。在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本榧中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计剑6个变量中。最后在文本框中按指定的格式显示统汁结果,为使每个结果各占一行,可在每个结果后面加一个叫印换行符vbCrLf。 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 Option Explicit Private Sub Commandl_Click() Dim a As String Dim S As String Open App.Path&“\in5.txt”For Input As#1 Do While Not EOF(1) a=Input(1,#1) S=S&a Loop Close#l Textl=S End Sub Private Sub Command2_Click() Dim str As String Dim nl As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i AS Integer For i=1 To Len(Textl) str=Mid(Textl,i,1) Select Case str Case“i”.“1” nl=nl+1 Case“j”,“J” n2=n2+1 Case“k”.“K” n3=n3+1 Case“l”.“L” n4=n4+1 Case“m”.”M” n5=n5+1 Case“n”.“N” n6=n6+l End Select Next Textl=“字母i或l出现的次数为”&Format(nl,”00”)&vbCrLf Textl=Textl&“字母j或J现的次数为”&Format(n2,“00”)&vbCrLf Textl=Textl&”字母k或K出现的次数为”&Format(rL3,“00”)&vbCrLf Textl=Textl&“字母l或L出现的次数为”&Format(n4,“00’’)&vbCrlf Textl=Textl&“字母m或出现的次数为”&Format(n5,“00”)&vbCrlf Textl=Textl&“字母n或N出现的次数为”&Format(n6,“00”) End Sub Prirate Sub Command3_Click() Open“out5.txt” For Output As#1 Print#1.Textl.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/hXQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PubficFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertstr=“”strL=Len(xStr)i=1DoWhilei
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:optionBase1PdvateSubCommandl_Click()Dimaa=Array(1,2,3,4)J=1Fori=3To1Step-1s=s+a(
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd*100)PrintNum;SelectCas
执行下列语句s~Input=InputBox(”请输入字符串”,”字符串对话框”,”字符串”)将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是
设窗体上有一个列表框控件Listl,含有若干列表项。以下能表示当前被选中的列表项内容的是
(1)在名称为Forml的窗体中画一个名称为Textl的文本框,其标题为“0”;再添加一个名称为Timerl的计时器。请设置适当的控件属性,并编写适当的事件过程.使得在运行时,每隔1秒钟文本框中的数字加1,当达到10时,在窗口上打印“10”,然后重新从O开
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的,在窗体上有两个名称分别为Textl和Text2的文本框,一个名称为Commandl,标题为“登录”的命令按钮。其中Textl文本框用来输入用户名,Text2文本框用来
在考生文件夹下有一个工程文件sj5.vbp,其窗体上有4个标签Labell、Lable2、Label3和Label4,标题分别为“用户名”、“密码”、“剩余次数”和“5”;一个命令按钮Commandl、标题为“登录”;两个文本框名称分别为Textl和Tex
(1)在名称为Forml的窗体上画一个名称为Checkl的复选框数组,它含4个复选框,它们的标题依次为“Iteml”、“Item2”、“Item3”和“Item4”,其索引号分别为0,l,2,3。初始状态下,“Iteml”和“Item4”为选中状态。程序运
(1)在窗体上绘制一个列表框,名称为Listl;一个文本框,名称为Textl;一个命令按钮,名称为C1,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为“Iteml”、“Item2”、“Item3”和“Item4”。如果选择列表框中的一
随机试题
国际法制计量组织的宗旨有哪些?
“气盛则身以前皆热”是指何经
在Excel图表中,()是一个独立的数据部分,它是工作表的一个单元格中的数据。
新民主主义革命的中心内容是()
Learningaforeignlanguagerequiresaction.Herearesome【B1】______foryoutofollow.Themostimportantfactorforsuccessis
男,20岁,以转移性右下腹痛10小时之主诉入院,右下腹有固定压痛点,临床诊断为急性阑尾炎,其提示后位阑尾的特殊体征是
春天的梦黎明,窗外飘着雪花,静静地,静静地……啊,多像梦的使者。蓦地,几行诗句涌上心头:闪亮的雪花,轻柔晶莹,每一片都是一个温馨的梦。让树枝看见了新绿,让街道看见了浓阴。哦,在这落雪的早晨,我忽地闻到了丁香的芬芳,听见了蜜蜂的歌唱…
2013年上半年,建材工业完成主营业务收入28186亿元,同比增长16.7%,增速提高2.8个百分点,规模以上建材工业增加值占全国的6.61%,提高0.3个百分点。主要产品产量创历史新高,水泥10.96亿吨,同比增长9.7%,水泥熟料产量6.47亿吨,增长
[2014年第43题]若一个管理者是某领域优秀的专家学者,则他一定会管理好公司的基本事务;一位品行端正的管理者可以得到下属的尊重;但是对所有领域都一知半解的人一定不会得到下属的尊重。浩瀚公司董事会只会解除那些没有管理好公司基本事务者的职务。根据以上信息,可
设二维正态随机变量(X,Y)的概率密度为f(χ,y),已知条件概率密度fX|Y(χ|y)=和fY|X(y|χ)=B.试求:(Ⅰ)常数A和B;(Ⅱ)fX(χ)和fY(y);(Ⅲ)f(χ,y).
最新回复
(
0
)