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

Case \ n1 = n1 + 1 Case \ n2 = n2 + 1 Case \ n3 = n3 + 1 Case Else

n4 = n4 + 1 End Select

Next i

Print \大写字母个数：\；n1；\小写字母个数：\；n2；\数字字符个数：\；

n3；\其他字符个数：\；n4

End Sub

八、矩阵(二维数组)

朱锦新 第 21 页 2013-4-21

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

对比图

四种矩阵的算法：(图形表示)

图① 图② 图③ 图④

例题：有一个4行4列二维数组，现随机生成16个两位整数，并将它们存入到二维数组中，现根据以上四种图形分别求主对角线、副对角线、外圈数据以及内圈数据之和。

第一种矩阵算法：(主对角线)

Private Sub Command1_Click()

Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4

a(i,j) = Int(Rnd*90) + 10 Next j Next i

For i = 1 To 4 For j= 1 To 4

If i = j Then '行下标和列下标相同 sum = sum + a(i,j) End If Next j Next i

Print \主对角线数据之和\；sum End Sub

第二种矩阵算法：(副对角线)

Private Sub Command1_Click()

Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4

a(i,j) = Int(Rnd*90) + 10 Next j Next i

朱锦新

第 22 页

2013-4-21

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

For i = 1 To 4 For j= 1 To 4

If i + j = 5 Then '行下标和列下标之和是一个定数 sum = sum + a(i,j) End If Next j Next i

Print \副对角线数据之和\；sum End Sub

第三种矩阵算法：(外圈数据)

Private Sub Command1_Click()

Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4

a(i,j) = Int(Rnd*90) + 10 Next j Next i

For i = 1 To 4 For j= 1 To 4

If i =1 Or i = 4 then sum1 = sum1 + a(i,j)

Elseif j =1 Or j = 4 Then

sum1 = sum1 + a(i,j)

End if

Next j Next i

Print \外围数据之和\；sum End Sub

第四种矩阵算法：(内圈数据)

Private Sub Command1_Click()

Dim a(4,4) As Integer ,i As Integer ,j As Integer

Dim sum1 As Integer，sum2 As Integer ,sum As Integer For i = 1 To 4 For j= 1 To 4

a(i,j) = Int(Rnd*90) + 10 Next j Next i

For i = 1 To 4 For j= 1 To 4

If i =1 Or i = 4 then

sum1 = sum1 + a(i,j)

Elseif j =1 Or j = 4 Then

朱锦新

第 23 页

2013-4-21

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

sum1 = sum1 + a(i,j)

End if

'上句为求周边元素和。

sum = sum + a(i,j) '数组所有元素之和。 Next j Next i

Print \内围数据之和\；sum-sum1 End Sub 九、文件读写操作

1、字符型读写数据

见概念分析篇的知识点12有详细说明。 2、数值型读写数据

见概念分析篇的知识点12有详细说明。 3、综合例题：

a.通用对话框和读写文件结合使用

在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；有一个名称为CD1的通用对话框；还有三个命令按钮，名称分别为C1、C2、C3，标题分别“打开文件”、“转换”、“存盘”，如图2-5所示。命令按钮的功能是：“打开文件”——弹出打开文件对话框，默认打开文件的类型“文本文件”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Text1中；“转换”——把Text1中的所有小写英文字母装换成大写；“存盘”——把Text1中的内容存入考生文件夹下的out5.dat文件中。在窗体中已经给出了部分程序，要求：

1) 请去掉程序中的注释符，把程序中的 ？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。

2) 编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。 注意：不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out5.dat文件中。

图2-5 运行界面

已有程序代码如下： Private Sub C1_Click() Dim a As String

CD1.Filter = \所有文件|*.*|文本文件|*.txt|Word文件|*.doc\ CD1.FilterIndex = 2

CD1.Action = 1 '打开通用对话框，此句也可以为：CD1.ShowOpen Open CD1.FileName For Input As #1 ' CD1.FileName是文件路径

朱锦新

第 24 页

2013-4-21