2012年计算机二级VB上机试题及解题思路第50套

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%

　　在窗体上画1个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Command1，Command2和Command3，标题分别为“读数”，“统计”和“存盘”，如图所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击“统计”按钮，找出并统计英文字母i，j，k，l，m，n(不区分大小写)各自出现的次数;单击“存盘”按钮，将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，多行显示(MultiLine属性)设为True。画三个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2和Command3，标题(Caption属性)分别设为"读数"、"统计"和"存盘"。

　　单击"读数"按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　Open App.Path & "\in5.txt" For Input As #1

　　Text1.Text = Input(LOF(1), #1)

　　Close #1

　　End Sub

　　单击"计算"按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　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 "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

　　单击"存盘"按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　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

　　为使数组的下标从1开始，需在声明部分加入语句：

　　Option Base 1

　　数组变量sum存放统计和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入

　　语句：

　　Dim sum(6) As Integer

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总