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

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

admin2015-06-30  51
问题 在窗体上画一个文本框，名称为Textl(Multiline属性为True)，然后再添加三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图所示。程序的功能是：单击“读数”按钮，则把考生文件夹下的in5．txt文件中的所有英文字符放入Text1中；单击“统计”按钮，找出并统计英文字母i，j，k，l，m，n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i到n出现次数的统计结果依次存到考生文件夹下的out5．txt中。
    注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt5．vbp，窗体文件名保存为sjt5．frm。
选项
答案【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.151和表3.152。 [*] 步骤2：分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1_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 #1 Text1 = s End Sub Private Sub Command2_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 = 1 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 = Text1 & "字母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 = Text1 & "字母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：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/OkQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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