首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3-136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3-136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2019-05-14
44
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3-136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、1、k、1、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,如表4-80所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base 1 Dim sum(6) As Integer Private Sub Command1_Click( ) pen App.Path &"\in5.txt" For Input At #1 Text1.Text=Input(LOF(1),#1) CioSe #1 End Sub Private Sub Command2_Click( ) For i=1 To 6 sum(i)=0 Next i If Len(Text1.Text)=0 Then MsgBox "请先使用“读数”功能!" Else For i=1 To Len(Text1.Text) C=LCase(Mid(Text1.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_Click( ) 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/uTUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Formal、标题为“电影制作”的窗体上画1个名称为Cmbl、初始内容为空的下拉式组合框(可以输入文本)。下拉列表中有“音频效果”、“视频效果”和“视频过渡”
在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件(如图3—82所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,.则计算出大于该数的第一个素数,并
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Labell、标题为“回文的个数为”的标签和一个名称为Textl,初始值为空的文本框,如图3一15所示。程序功能如下:①单击“读数据”按
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图3.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的二维数组a中,并按5行显示在Textl文本框内;单击“统计"按钮,则计算每行中小于50的数之和,及这
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul一1jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为.Forml的窗体上建立一个二级下拉菜单(菜单项见表3.2),运行时的窗体如图3.98所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,
(1)在考生文件夹下有一个工程文件sit3.vbp,相应的窗体文件为sit3.frm,包含了所有控件和部分程序,如图3—90所示。要求如下:①利用属性窗口向列表框添加四个项目:VisualBasic、TurboC、C++、Java。②请编写适当的程
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。要求:通过属性窗口设置适当的属性
随机试题
SleepDeprivationNegativeeffectsofsleepdeprivation.oncognitiveperformance—cause【T1】________—interfe
化脓性骨髓炎骨性包壳形成的组织来源是()
医务人员共同的义务和天职是
慢性再生障碍性贫血治疗错误的是
下列人员中,属于应取得中国证券业执业证书的是()。I.证券公司总部从事基金销售业务管理的人员Ⅱ.商业银行总行从事基金销售业务管理的人员Ⅲ.商业银行各级分行从事基金销售业务管理的人员Ⅳ.证券投资咨询营业网点从事基金销售业务管理的人员
个人出售自有住房并在出售后1年内按市场价格重新购房的,下列规定正确的有()。
江山东方地质公园内的“海底世界”华石林,有世界上最大的“象形石动物园”的美称。()
中国近代史上第一部诉讼法草案是()。
Accordingtothepassagethepreferencetestwasconductedinorderto______.Itissuggestedinthefirstparagraphthat____
WorkersrecentlyarrestedinfederalraidsfiledaracketeeringlawsuitaccusingWal-Martofconspiringwithcontractorsinacr
最新回复
(
0
)