首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2019-06-20
63
问题
在窗体上画1个文本框,名称为Text1(multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Text1(MutiLine属性为True)中;单击“统计”按钮,找出并统计英文字母i,j,k,1,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sit5.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1_Click() Dim a As String Dim S As Stfing Open App.Path&”\in5.txt”For Input As #1 Do While Not EOF(1) a=Input(1,#1) s=s&a Loop Close#1 Text1=s End Sub Private Sub Command2_Click() Dim str As String Dim n1 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(Text1) str=Mid(Text1,i,1) Select Case str Case"i"."I" nl=n1+1 Case"j","J" n2=n2+1 Case"k"."K" n3=n3+1 Case"1"."L" n4=n4+1 Case"m","M" n5=n5+1 Case"n"."N" n6=n6+1 End Select Next Text1="字母i或I出现的次数为"&Format(n1,"00")&vbCrLf Text1=Text1&"字母j或J出现的次数为"&Format(n2,"00")&vbCrLf Text1=Text1&"字母k或K出现的次数为"&Format(n3,"00")&vbCrLf Text1=Text1&"字母l或L出现的次数为"&Format(n4,"00")&vbCrLf Text1=Text1&"字母m或M出现的次数为"&Format(n5,"00")&vbCrLf Text1=Text1&"字母n或N出现的次数为"&Format(n6,"00") End Sub Private Sub Command3_Cliek() Open"Out5.txt" For Output As #1 Print #1.Text1.Texl Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Format()函数用于按指定格式返回字符串。
在“统计”按钮的事件过程中,可用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其题为英文字母i,j,k,l,m或n(不区分大小写),并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果,为使每个结果各占一行,可在每个结果后面加一个回车换行符vbCrlf。
转载请注明原文地址:https://kaotiyun.com/show/20Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。PrivateSubCheck
窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml,标题为“考试”的窗体上画一个名称为Combol、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)住名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属
请根据以下各小题的要求设讣VisualBasic应川程序(包括界面和代码)。(1)在名称为Forml的窗体上建市一个二级下拉菜单(菜单项见表2-2),运行时的窗体如图2-98所示。注意:存盘时必须存放在考生文件夹下,上程文件名为si
实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是()。
以下关于局部变量的叙述中错误的是()。
某二叉树中度为2的结点有10个,则该二叉树中有()个叶子结点。
以下数据结构中,属于非线性数据结构的是()。
随机试题
治疗冷积便秘可选用的方剂是()(2008年第160题)
下列关于有效沟通技巧的说法错误的是()
被告人阮某,男,23岁,农民。被告阮某于一日晚利用看麦场的机会以暴力手段将来麦场取农具的同村女青年林某强奸。林某被害后即到乡政府告发,乡政府以通奸做出结论,责成被害人做出检讨。被害人不服告到县公安局,公安局以乡政府已做出处理为由不予受理。被害人又告到县检察
锇酸-α萘胺染色法的结果错误的是
最易耗气伤津的是
A公司于2011年1月1日采用分期收款方式销售大型设备,合同价格为15000万元。分5年于每年年末等额收取。假定该大型设备不采用分期收款方式时的现销价格为12637.08万元,商品已发出,成本为9000万元。假定每期收到货款时分别开出增值税专用发票,实际利
甲公司采用“应收款项余额百分比法”核算坏账损失,坏账准备的提取比例为5%。有关资料如下:(1)2004年12月1日应收账款期初余额为215万元,坏账准备余额10.75万元;(2)12月5日,向乙公司销售产品105件,单价1万元,增值税税
下列不属于利润中心业绩报告所应披露的业绩考核指标是()。
Ahundredyearsagoitwasassumedandscientifically"proved"byeconomiststhatthelawsofsocietymakeitnecessarytohave
A、Yes,please.B、Noidea.C、Yes,Ican.D、Goodluck.A本题考查主动向别人提出帮助的一般疑问句及回答。回答分为肯定和否定两种情况:肯定回答一般为Thankyou/Thanks/Thankyouso
最新回复
(
0
)