首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1(可显示多行),然后冉画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计’,和“存盘”,如图2.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
在窗体上画一个文本框,名称为Text1(可显示多行),然后冉画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计’,和“存盘”,如图2.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5
admin
2016-12-29
18
问题
在窗体上画一个文本框,名称为Text1(可显示多行),然后冉画三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计’,和“存盘”,如图2.67所示。程序的其功能是:单击“读数”按钮,则把考生目录下的in5.txt文件中的所有英文7符放入Text1(可多行显示);单击“统计”按钮,找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数;单击“存盘”按钮,将字母i~n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名为sjt5.frm。
选项
答案
【操作步骤】 步骤1:新建一个“标准EXE”工程,如表3.39所示,在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编弓相应事件过程。 参考代码: Option Base 1 Dim sum(6)As Integer Private Sub Commandl C1ick() Open App.Path&”\in5.txt”For InputAs#1 Textl.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 MsgBox”请先使用“读数”功能!” E1se 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)+l 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/anGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准是模块的()。
若在某窗体模块中有如下事件过程:PrivateSubCommandlClick(IndexAsInteger)EndSub则以下叙述中正确的是()。
如果在程序中要将a定义为静态变量,且为整型数,则应使用的语句是()。
窗体上有从左到右4个单选按钮组成的控件数组Optl,下标从0开始。程序运行时,单击命令按钮“选择”(名称为Commandl),则在标签Labell中显示所选中的信息,如图所示。以下是完成上述功能的程序,请填空。PrivateSubCommandl
窗体上有一个名称为Commandl的命令按钮,并有如下程序:PrivateSubCommandlClick()DimrrlASInteger,nAsIntegerm=InputBox(”输入第一个数”)
阅读程序:Subp(b()AsInteger)Fori=1To4b(i)=2(iNextiEndSubPrivateSubCommand1_Click()
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
如果要改变窗体的标题,需要设置窗体对象的______属性。
线性表若采用链式存储结构时,要求内存中可用存储单元的地址
随机试题
“睹物思人”、“爱屋及乌”说的是()
下列哪些属于骨盆底浅层肌肉:
男性,27岁,3年来多次发作心悸不适,无明显诱因,发作突发突止,近1个月来发作频繁入院。查体:血压120/70mmHg,脉搏72次/min,心率72次/min,律齐,未闻及杂音。该患者最可能的诊断是
李女士,28岁,曾患慢性肾炎,现停经59天,门诊检查诊断为早孕。该女士宜选择终止妊娠的方法是
预应力混凝土桥梁用锚具、夹具静载锚固性能试验,为保证各根钢绞线受力一致,其初应力一般取钢材标准抗拉强度的()。
“六艺”教育包括的内容是诗、书、礼、易、乐、春秋。()
支票簿新闻(北大2009年研)
有人说,彻底的无私包含两个含义:第一,无条件地实行为他人服务;第二,拒绝任何他人的服务。下述哪项是上述观点的逻辑推论?
以下关于过程及过程参数的描述中,错误的是( )。
【B1】【B7】
最新回复
(
0
)