首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in
admin
2019-05-14
58
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Cornmand1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、1、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.tim。
选项
答案
【操作步骤】 步骤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) Close #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 Closee #1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/8HUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下
阅读下面程序代码:PrivateSubCommand1_Click()DimtempAsIntegera=Array(2,7,4,10,0,1,8,5,3,9,6)Fori=7To4Step-1Forj=3Toi-1If
VisualBasic6.0不支持的图形文件是()。
在名称为Form1的窗体上添加一个名称为Image1的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。要求:
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必须存放在考生文
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序PrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TmeEndSubPrivateSubTime
现有程序如下:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)
随机试题
测定乳及乳制品中膳食纤维的含量时,高脂肪样品脂肪的质量分数大于10%,用石油醚去脂。
A、15%B、20%C、40%D、60%正常人体细胞外液约占体重的
A.70μW/cm2B.80μW/cm2C.90μW/cm2D.100μW/cm2E.180μW/cm2新购进的紫外线灯管其辐照强度不得低于()
患儿,3岁。平时体弱,经常感冒发热。曾多次因患“肺炎”住院。化验:血IgG、IgM、leA总量为300mg/L。E一玫瑰花环形成试验、淋巴母细胞转化试验分别为0.60、0.65,为减少反复感染,给患儿下列哪项处理最为需要
两人轻声谈话的声强级为40dB,热闹市场上噪声的声强级为80dB,市场上噪声与轻声谈话的声强之比为()。
背景某单位施工承包一建设单位的二级干线硅芯管管道建设工程,开工后第5天,建设单位向省质量监督机构办理了质量监督申报手续。省质量监督机构确定了该工程的质量监督负责人,制定了质量监督工作方案。在进行工程现场质量监督检查时,负责人发现施工单
下列各项中,属于需提示承兑的汇票有()。
安徽省某市居民王先生和太太2015年以30万元购买一套54平方米的住房用作结婚新房,2017年8月生子后,为改善住房条件,以73.5万元(发票注明价款70万元,增值税3.5万元)购买了第二套88平方米的住房,则王先生一家两次共缴纳契税()万元。
下列有关科技常识的表述中,不正确的是()。
常模编制中,常用的导出分数有
最新回复
(
0
)