全国计算机等级考试VB经典必考资料，知识点总结(9)

“全国计算机等级考试”考试要点

Input #1, a Close #1

Text1.Text = a End Sub

Private Sub C3_Click()

CD1.FileName = \

CD1.Action = 2 '保存通用对话框，此句也可以为：CD1.ShowSave

Open CD1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub

考生需编写的代码： Private Sub C2_Click()

Text1.Text=Ucase(Text1.Text) '小写字母转换成大写字母的过程 End Sub

b.输入数据、计算与存盘

在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作：在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”(如图16-5)所示。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素除以10并截尾取整后相乘，其结果放入第三个数组中(即：把第一个数组的第n个元素除以10并截尾取整，再把第二个数组的第n个元素除以10并截尾取整，两者相乘后的结果作为第三个数组的第n个元素，这里的n为1、2、3??20)，最后计算第三个数组中各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹的dataout.txt文件中。

注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中。最后把修改后的文件以原来的文件名存盘。

图16-5 运行界面

已有程序代码如下： Option Base 1

Dim Arr1(20) As Integer Dim Arr2(20) As Integer Sub ReadData1()

Open App.Path & \ For i = 1 To 20

Input #1, Arr1(i) Next i

朱锦新

第 25 页

2013-4-21

“全国计算机等级考试”考试要点

Close #1 End Sub

Sub ReadData2()

Open App.Path & \ For i = 1 To 20

Input #1, Arr2(i) Next i Close #1 End Sub

Sub WriteData(Filename As String, Num As Integer) Open App.Path & \ Print #1, Num Close #1 End Sub

考生需编写的程序代码： Dim sum As Integer Private Sub C1_Click() ReadData1 ReadData2 End Sub

Private Sub C2_Click()

Dim i As Integer, Arr3(20) As Integer For i = 1 To 20

Arr3(i) = Int(Arr1(i) / 10) * Int(Arr2(i) / 10) sum = sum + Arr3(i) Next i Print sum End Sub

Private Sub C3_Click()

WriteData \sum End Sub

注意：本题中的sum为模块级变量。 c.英文字母出现次数统计

朱锦新

第 26 页

2013-4-21

“全国计算机等级考试”考试要点

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别为“读数据”和“统计”的命令按钮和初始值为空、名称分别为Text1和Text2的二个文本框，如图12-5所示。程序功能如下：

1) 单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中(此过程已给出)；

2) 在Text1文本框中选中内容后，单击“统计”按钮，则统计选中文本中出现次数最多的字母(不区分大小写)，以大写形式在Text2文本框中显示这些出现次数最多的字母。

请将“统计”按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。

注意：不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 已有程序代码如下： Option Base 1

Dim x As String, max_n As Integer Private Sub Command1_Click()

Open App.Path & \ s = Input(LOF(1), #1) Close #1

Text1.Text = s End Sub

Private Sub Command2_Click() Dim a(26) As Integer sl = Text1.SelLength st = Text1.SelText Text2 = \ If sl = 0 Then

MsgBox \请先选择文本\ Else

For i = 1 To sl

c = Mid(st, i, 1) If c <> \

n = Asc(UCase(c)) - Asc(\出现某字母的编号 a(n) = a(n)+1 '出现某字母的次数 End If

Next i

max_n = a(1): n = 1 '先设\与\字母的次数a(1)为最多 For j = 2 To 26

If max_n < a(j) Then max_n = a(j) End If Next j

For i = 1 To 26

If max_n = a(i) Then

Text2.Text = Text2.Text + \ End If

朱锦新

第 27 页

2013-4-21

“全国计算机等级考试”考试要点

Next i End If End Sub

注：本例中n=Asc(UCase(c))-Asc(\+ 1是用来计算所取字母的编号，\与\均为1；\与\均为2；\与\均为3；其余类推

朱锦新 第 28 页 2013-4-21

“全国计算机等级考试”考试要点

朱锦新第 29 页 2013-4-21