2. 计算机
  3. 在窗体上画一个文本框，名称为Textl(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图1．5所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．t

在窗体上画一个文本框，名称为Textl(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图1．5所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．t

admin2010-09-02  35
问题 在窗体上画一个文本框，名称为Textl(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图1．5所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Textl(可多行显示)；单击“统计”按钮，找出并统计英文字母i、j、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5．vbp，窗体文件名为sjt5．frm。
选项
答案【操作步骤】 步骤l：新建一个“标准EXE”工程，如表2-4在窗体中画出控件并设置其相关属性。 [*] 步骤2：打开代码编辑窗口，编写相应事件过程。 参考代码： Option Base 1 Dim sum(6)As Integer Private Sub Commandl C1ick() Open App．Path&"＼in5．txt"For Input As#1 Textl．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(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)+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：按要求将文件保存至考生文件夹中。
解析 程序设计思路：在“读数”按钮的单击事件过程中，用Open语句以Input方式打开数据文件in5．txt，并用Input()函数读出所有字符后显示在文本框中：在“统计”按钮的单击事件过程中，通过For循环用Mid函数逐一取出文本框中的字符并转换成小写，用Select Case语句对取出的字符进行检查，并用窗体数组变量sum(1)~sum(6)记录字母i、j、k、l、m、n出现的次数。
    在“存盘”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://kaotiyun.com/show/7Ump777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)