首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2017-03-27
19
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后再画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图3—136所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
步骤1:新建一个“标准EXE”工程,如表4—80所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写相应事件过程。 参考代码: Option Base1 Dim sum(6)As Integer Private Sub Command1_Click() pen App.Path&"\in5.txt"For Input As#1 Text1.Text;=Input(LOF(1),#1) Close#1 End Sub Private Sub Command2_Click() For i=1To6 sum(i)=0 Next i If Len(Text1.Text)=0Then MsgBox"请先使用“读数”功能!" ElSe For i=1To 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"l" 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=1To6 Print#1,sum(i) Next i Close#1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
程序设计思路:在“读数”按钮的单击事件过程中,用Open语句以Input方式打开数据文件in5.txc,并用Input()函数读出所有字符后显示在文本框中;在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出文本框中的字符并转换成小写,用Select Case语句对取出的字符进行检查,并用窗体数组变量sum(1)~sum(6)记录字母i、j、k、l、m、n出现的次数。
在“存盘”按钮的单击事件过程中,用Open语句以Output方式打开数据文件out5.txt,并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://jikaoti.com/ti/cOy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p
要设置窗体为固定对话框,并包含控制莱单栏和标题栏,但没有最大化和最小化控钮,设置的操作是
复选框的Value属性为0时,表示该复选框()。
Sub过程与Function过程最根本的区别是
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)
设在窗体上有个文本框,然后编写如下的事件过程。PrivateSubText1_KeyDown(KeyCodeAsIntegef,ShiftAsInteger)ConstAlt=4ConstKey_F2=
下列叙述中正确的是()。
随机试题
左旋咪唑增强免疫的机制是
与TAM的疗效有关的因素是
此患者最可能的诊断为明确诊断应进一步检查
新生儿ABO血型不合溶血症是属于
前磨牙楔状缺损应选用的最佳充填材料是()
为治寒饮伏肺之要药的中药是
航道整治工程应根据国家相关规定,针对()制定生产安全事故和突发事件应急预案。
某企业在遭受洪灾后,对其受损的财产物资进行的清查,属于()。
影响投掷远度的因素有()。
甲在生产作业期间,违反操作规程造成供电线路短路,引起火灾,烧毁厂房,致3名工人死亡,造成直接经济损失1千万元。甲的行为构成()。
最新回复
(
0
)