首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2015-06-30
79
问题
在窗体上画一个文本框,名称为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全国计算机二级
相关试题推荐
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
通过文本框的()属性可以获得当前插入点所在的位置。
只能用来显示文本信息的控件是()。
在文本框中输入字符时,通过()事件过程可以得到字符的ASCII码值。
下列子过程语句的说明正确的是()。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在以下横线处合适的语句是()。PrivateSubForm_Cli
设有如下过程;Subff(x,y,z)x=y+ZEndSub下列选项中所有参数的虚实结合都是传址方式调用的是()。
某二叉树中度为2的结点有18个,则该二叉树中有______个叶子结点。
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
如果在立即窗口中执行以下操作:______。a=8(是回车键,下同)b=9printa>b则输出结果是______。
随机试题
企业从银行取得借款直接偿还应付购货款,属于()。
有机磷酸酯类中毒机理是:
可存放于相邻药斗中的药物是
不可用糖皮质激素治疗的疾病是
下列属于基础货币的有()。存款乘数与货币乘数非常相似,并可以相互推导,两者所不同的是()。
甲公司于2011年12月1日购入一项设备,取得成本为600万元,会计上采用年限平均法计提折旧,使用年限为10年,净残值为零,计税时按双倍余额递减法计提折旧,使用年限及净残值与会计相同。甲公司适用的所得税税率为25%。假定该企业不存在其他会计与税收处理的差异
根据信息加工过程理论,()对整个信息加工过程起调控作用,目的就是为了提高信息加工的效率。
某商品定价80元,预计可销售60件,若每降价1元,则预计可多销售3件,已知预计降价10%销售时所获得的利润同未降价销售时所获得的利润相同,则该商品的成本是()元。
N名学生的成绩已在主函数中放入一个带头节点的链表结构中,h指向链表的头节点。请编写函数fun,它的功能是:求出平均分,由函数值返回。例如,若学生的成绩是:85,76,69,85,91,72,64,87,则平均分应当是:78.625。注意
RenewableEnergy[A]Inthepastcentury,ithasbeenseenthattheconsumptionofnon-renewablesourcesofenergyhascausedmo
最新回复
(
0
)