矩阵的乘法运算

沈阳航空航天大学课程设计

学号2009040603045

班级94060302

姓名崔建国

指导教师刘学平

2011年7 月 6 日

沈阳航空航天大学

课程设计任务书

学院：机电工程学院专业：车辆工程班级：94060302 学号：2009040603045 题目：矩阵的乘法运算

一、课程设计时间

2011年6月27日~7月1日（第17周），共计1周。

二、课程设计内容

在“file05_矩阵相乘.txt”文件中存放了两个矩阵，请读取这两个矩阵进行乘法运算，并显示结果矩阵。

三、课程设计要求

程序质量：

✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。

✧用户界面中的菜单至少应包括“读取矩阵”、“开始计算”、“显示结果”、“退

出”4项。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

✧课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提

供的模板。

四、指导教师和学生签字

指导教师：刘学平学生签名：崔建国

五、成绩

六、教师评语

目录

一、需求分析 (4)

二、设计分析 (4)

三、关键技术 (6)

四、总结 (10)

五、完整的源程序 (11)

六、参考文献 (13)

一、需求分析

矩阵乘法运算是通过读取文本文件的资料，将两个矩阵进

行乘法运算，并显示结果。要求：

①学生会编程读取文本文会运open

②会运用Do while loop 的循环语句

③懂得矩阵运算的法则.

二、设计分析

(1) 基本原理：运用打开顺序文件

open 文件名For Input/ output/ As # 文件号，

在文本文件中读取数据矩阵相乘采用二维数组For 循环

结构。矩阵相乘是将每个数字赋予一个字符，然后把字符

用公式写出来，进而进行计算，将得出的结果按矩阵的形

式打印在窗体上。

(2) 总体设计：

（3）详细设计：

显示文本文件

Option

Base 1 Do

读取数据

计算

显示结果

退出

（4）界面设置：

界面设置一定要美观得体，如果窗体比较多，就会显得比较乱，要便于操作与观察以便很快理解。

关键技术

1建立读取文本文件的连接代码如下

Option Base 1

Private Type Mytype

a As String '声明变量属性

b As String

c As String

d As Integer

e As Integer

f As Integer

g As Integer

End Type

Dim rows() As MyType

Private Sub Command1_Click()

（二）打开顺序文件

open 文件名For Input/ output/ As # 文件号

Dim i As Integer, pos As Integer

i = 1

Open "c:\file05_矩阵相乘.txt" For Input As #1

Do While i = 1

ReDim Preserve rows(i) '动态数组定义列

Input #1, rows(i).a

i = i + 1

Loop

Do While i < 4 And i > 1 用Do While Loop形式

Do 【Whil 条件表达式】

语句块（循环体）

Loop

ReDim Preserve rows(i) '

Input #1, rows(i).a, rows(i).b, rows(i).c

i = i + 1

Loop

Do While i = 4

ReDim Preserve rows(i)

Input #1, rows(i).a

i = i + 1

Loop

Do While i < 8 And i > 4

ReDim Preserve rows(i)

Input #1, rows(i).a, rows(i).b

i = i + 1

Loop

（三）关闭文件Clos [ [#] 文件号]

Close #1

For i = 2 To 3

Picture1.Print rows(i).a; Tab(4); rows(i).b; Tab(8); rows(i).c

Next i

Print

For i = 5 To 7

Picture2.Print rows(i).a; Tab(4); rows(i).b

Next i

Print

Print

End Sub

Private Sub Command2_Click()

Picture4.Print rows(2).a; "×"; rows(5).a; "+"; rows(2).b; "×"; rows(6).a; "+"; rows(2).c; "×"; rows(7).a; "="

Picture4.Print rows(2).a; "×"; rows(5).b; "+"; rows(2).b; "×"; rows(6).b; "+"; rows(2).c; "×"; rows(7).b; "="

Picture4.Print rows(3).a; "－"; rows(5).a; "+"; rows(3).b; "×"; rows(6).a; "+"; rows(3).c; "×"; rows(7).a; "="

Picture4.Print rows(3).a; "×"; rows(5).b; "+"; rows(3).b; "×"; rows(6).b; "+"; rows(3).c; "×"; rows(7).b; "="

End

Sub