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

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

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

二级VB

NCRE全国计算机二级

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