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

admin2019-06-20  31

问题  在考生文件夹下有一个工程文件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://kaotiyun.com/show/LfUp777K
0

最新回复(0)