首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2015-06-30
44
问题
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件夹下的in5.txt文件中的所有英文字符放入Text1中;单击“统计”按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i到n出现次数的统计结果依次存到考生文件夹下的out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt5.vbp,窗体文件名保存为sjt5.frm。
选项
答案
【操作步骤】 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.151和表3.152。 [*] 步骤2:分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1_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 #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" n1 = n1 + 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 + 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_Click() Open "out5.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/OkQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于图片框控件的语句中不正确的是()。
在文本框中输入密码时,要求在文本框中只显示(*)号,则应当设置此文本框的()属性。
下列不属于软件工程3个要素的是()。
设有如下程序PrivateSubSearch(a()AsVariant,ByValkeyAsVariant,index%)DimI%ForI=LBound(A)ToUBound(A)
设有如下过程;Subff(x,y,z)x=y+ZEndSub下列选项中所有参数的虚实结合都是传址方式调用的是()。
要使单击命令按钮与按下<Esc>键实现相同的作用,则应设置()属性为True。
在窗体中放置控件,对该控件的操作错误的是()。
执行以下程序段后,变量c$的值为______。a$=“VisualBasicPrograming”b$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$,(a$,11)
数据库的物理设计是为一个给定的逻辑结构选取一个适合应用环境的______的过程,包括确定数据库在物理设备上的存储结构和存取方法。
下面不属于软件设计原则的是
随机试题
案例(纯属虚构):出口商甲与进口商乙订立买卖合同并提供样品,由乙开出以甲为抬头的信用证,又由甲与制造商丙订立与买卖契约内容完全相同的合同,厂商丙订货后自行包装交货,而甲因与乙、丙的合同内注明:“以制造厂检验为准”,同时甲与丙的合同内也订明如规格品
在实际业务中,承担信用证审证任务的当事人是()
ManypeoplewhoworkinLondonprefertoliveoutsideit,andtogototheiroffices,factoriesorschoolseverydaybytrain,c
对支原体无效的药物是()。
甲对乙说:如果你在三年内考上公务员,我愿将自己的一套住房或者一辆宝马轿车相赠。乙同意。两年后,乙考取某国家机关职位。关于甲与乙的约定,下列哪一说法是正确的?(2009/3/9)
已知第一道工序定额工时为60小时,第二道工序定额工时为40小时,两道工序平均完成50%,则第二道工序完工率是()。
我国现行宪法在规定“公有财产神圣不可侵犯”的同时,又规定“公民的合法的私有财产不受侵犯”。宪法这一规定有助于()。
分布式数据库需要对数据按照一定的方法进行分片,下列说法正确的是()。
Whatdoesthespeakermentionaboutthepass?
Whichofthefollowinghasmostprobablybeendiscussedintheparagraphthatgoesbeforethepassage?Itisgoodforlocalpeo
最新回复
(
0
)