首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
admin
2019-03-14
88
问题
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Textl(可多行显示);单击”统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击”存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.st中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
步骤1:新建一个”标准EXE”工程,如表3-4在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base 1 Dim sum(6) As Integer Prirate Sub Command:C1ick( ) Open App.Path&”\in5.txt”For Input As#1 Text1.Text=Input(LOF(1),#1) Close#1 End Sub Private Sub Command2 C1ick( ) For i=1 To 6 sum(i)=0 Next i If Len(Textl.Text)=0 Then NsgBox”请先使用_”读数”_功能!” Else For i=1 To Len(Textl.Text) c=LCase(Mid(Textl.Text,i,1)) Select Case c Case”i” SUm(1)=Sum(1)+1 Case”j” Sum(2)=sum(2)+1 Case”k” sum(3)=sum(3)+1 Case”1” sum(4)=sum(4)+1 Case”m” sum(5):sum(5)+1 Case”n” sum(6)=sum(6)+1 End Select Next i End If End Sub Private Sub Command3 C1ick( ) Open App.Path&”\out5.txt”For Output As#1 For i=1 To 6 Print #1,sum(i) Next i Close #1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/RBUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的ScrollBar设置为2,文本框中却没有垂直滚动条,其原因可能是
若要使文本框能够输入多行文本,应该设置的属性是
下列工具中,不属于结构化分析的常用工具的是()。
数据库技术的根本目标是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(A)所示。通过属
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
下列选项中不属于结构化程序设计原则的是
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Textl的文本框。若希望把Forml上文本框中的内容复制到Form2上的文本框中,应进行的操作是
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndc<=dOr2*a>c.
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asing
随机试题
中外文化第二次交汇的特点是()
某试点城市的国有企业于2014年2月1日被债权人申请破产,2014年4月1日人民法院依法宣告其破产,4月10日成立清算组,企业破产时管理的财产和债权人申报的债权情况如下:(1)企业破产时经营管理的财产评估变现价值如下:①第1号房屋价值3
审查施工组织设计的基本要求有( )。
根据刑事法律制度的规定,下列有关徇私舞弊不征、少征税款罪的表述,正确的是()。(2011年)
2019年2月,某市税务机关拟对辖区内某房地产开发公司开发的房产项目进行土地增值税清算。该房地产开发公司提供房产开发项目的资料如下:(1)2016年8月支付政府8000万元土地出让金(取得合规的财政票据),取得用于该房地产开发项目的土地,并缴纳契税。(
同样的产品贴上不同的品牌标识,会产生悬殊的价格,体现了品牌的()。
党取得新民主主义革命胜利的三大法宝是:
下列属于居民财产性收入的是()。
目前个人网上募捐的行为越来越盛行,但却屡现骗局。请你谈谈如何有效加强网络监管,发挥网络募捐的作用。
WelcometoVirginiaPleasecometofeelthewarmthofaVirginiawelcomefromtheBlueRidgeMountainstotherollingAtlant
最新回复
(
0
)