首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
在窗体上画一个文本框,名称为Textl(Multiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文
admin
2015-06-30
37
问题
在窗体上画一个文本框,名称为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://jikaoti.com/ti/Yd60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。Private
要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBars属性设置为()。
软件需求分析阶段的工作,可以分为4个方面:需求获取、需求分析、编写需求规格说明书以及()。
数据库系统的核心是()。
如果存在如下过程:PrivateFunctionFMax(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsIntegerFirst=
下面运行程序后,单击命令按钮,输出出的结果是【】。PrivateSubCommand1_Click()Dima%(1To5),i%,s#Fori=1To5
有如下函数过程。FunctionUNC(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0S=x/yx=yy
下面程序执行的结果是______。PrivateSubForm_Click()A$=“123”:B$=“456”C=Val(A$)+Val(B$)Print
下面程序段的功能是______。A=10.5B=Int(A=0.6)Debug.PrintB
随机试题
什么叫催化重整?
与传统CT比较,滑环技术改进的核心是
薄荷醇
某建筑公司承建A工程,工期两年,工程开工时预计A工程的总成本为980万元,第一年年末A工程的预计总成本为1000万元。第一年年末,该建筑公司的“工程施工-A工程”账户的实际发生额为680万元。其中:人工费150万元,材料费380万元,机械使用费100万元,
财务顾问受托向中国证监会报送申报文件,应当在财务顾问报告中作出的承诺包括( )。
______认为学科基本结构包括基本原理、基本态度、基本概念和基本方法。
艾宾浩斯遗忘规律表明学习应进行()。
已知方程组有解,证明:方程组无解。
下列叙述中正确的是()。
Forhigh-riskpropositionsyieldinghighreturns,thereisnothingtobeatthehandfulcompaniesmarketingeternallife.(31)th
最新回复
(
0
)