2. 计算机
  3. 在窗体上画1个文本框，名称为Text1(multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文

在窗体上画1个文本框，名称为Text1(multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文

admin2016-06-30  83
问题 在窗体上画1个文本框，名称为Text1(multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文件夹下的in5．txt文件中的所有英文字符放入Textl(MutiLine属性为True)中；单击“统计”按钮，找出并统计英文字母i，j，k，l，m，n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i到n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt5．vbp，窗体文件名保存为sjt5．frm。
选项
答案步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表1和表2。 [*] 步骤2：分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Commandl_Click() Dim a As String Dim 8 As String Open App．Path&”＼in5．txt”For Input As#1 Do While Not EOF(1) a=Input(1，#1) S=s&a Loop Close#1 Text1=S End Sub Private Sub Conunand2_Click() Dim str As String Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim n4 As Integer Dim n5 As Integer Dim n6 As Integer Dim i As Integer For i=l To Len(Text1) str=Mid(Text1，i，1) Select Case str Case"i"，“I” n1=n1+1 Case"j"，"J" n2=n2+1 Case"k"，“K” n3=n3+1 Case“l”．“L” n4=n4+1 Case“m”,“M” n5=n5+1 Case“n”,“N” n6=n6+1 End Select Next Text1=”字母i或I出现的次数为”＆Format(n1，“00”)&vbCrLf Text1=Textl&”字母j或J出现的次数为”&Format(n2，”00”)&vbCrLf Text1=Text1&”字母k或K出现的次数为”＆Format(n3，”00”)＆vbCrLf Text1=Text1&”字母l或L出现的次数为”&Format(n4，”00“)＆vbCrLf Text1=Text1&”字母m或M出现的次数为”＆Format(n5，”00”)&vbCrLf Text1=Textl&”字母n或N出现的次数为”&Format(n6，”00”) End Sub Private Sub Command3_Click() Open"out5．txt"For Output As#1 Print#1．Text1．Text Close 1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 Format()函数用于按指定格式返回字符串。
    在“统计”按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。
转载请注明原文地址:https://www.kaotiyun.com/show/4lLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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