2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框，如图所示。 程序功能如下： ①单击“读数据”按钮，则将考生文件夹下in5．dat

在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框，如图所示。 程序功能如下： ①单击“读数据”按钮，则将考生文件夹下in5．dat

admin2019-06-20  70
问题  在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框，如图所示。
    程序功能如下：
    ①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中(此过程已给出)。
    ②在Text1文件框中选中内容后，单击“统计”按钮，则统计选中文本中出现次数最多的字母(不区分大小写)，以大写形式将这些出现次数最多的字母显示在Text2文本框内。
    请将“统计”按钮Click事件过程中的注释符去掉，最后将程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim x As String, max n As Integer Private Sub Command1_Click() Open App.Path & "\in5.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim a(26) As Integer ’ sl = ? st = Text1.SelText Text2 = "" If sl = 0 Then 　　 MsgBox "请先选择文本" Else 　　 For i = 1 To sl 　　　　c = Mid(st, i, 1) 　　　　If c <> " " Then 　　　　　　n = Asc(UCase(c)) - Asc("A") + 1 ’　a(n) = ? 　　　　End If 　　 Next i 　　 max n = a(1): n = 1 ’　 For j = ? To 26 ’　If ? Then 　　　　　max n = a(j) 　　　　End If 　　 Next j 　　 For i = 1 To 26 ’　If ? Then 　　　　　Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) 　　　　End If 　　 Next i End If End Sub 程序结束 参考答案 第1个？处填入：Text1.SelLength 第2个？处填入：a(n) + 1 第3个？处填入：1 第4个？处填入：max_n < a(j) 第5个？处填入：a(i) = max_n 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/LfUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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