资源描述：
《vb矩阵相乘实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB.NET应用开发实验报告四题目：矩阵相乘学生姓名：YQY完成时间：2012年11月07日41.问题描述编程实现两矩阵相乘，要求：1.界面输入矩阵A和B的行列数；2.矩阵元素值由随机函数生成，随机函数取值范围由界面录入；3.点击“计算”按钮，程序首先判断两矩阵是否满足矩阵相乘条件，若满足，则将矩阵A、B和结果矩阵C显示在下方label中（注意格式对齐）；若不满足，需给出提示信息，并清空相关textbox。2.关键代码ImportsSystem.MathPublicClassForm1Privat
2、eSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox6.Text=""TextBox7.Text=""EndSubPrivateSubButton1_Click(ByValsenderAsSystem
3、.Object,ByValeAsSystem.EventArgs)4HandlesButton1.ClickDimi,j,m,n,x,y,k1,k2,k3AsIntegerDimsc1(10,10),sc2(10,10),sc3(10,10)AsIntegerRandomize()i=TextBox1.Textj=TextBox2.Textm=TextBox3.Textn=TextBox4.Textx=TextBox5.Texty=TextBox6.TextIfj<>mThenMsgBox("两个
4、矩阵无法进行相乘，请重新输入",,"警告")ElseFork1=1ToiFork2=1Tojsc1(k1,k2)=Int(Rnd()*(Abs(y-x)+1)+Min(x,y))TextBox7.Text&=sc1(k1,k2)&Space(4)NextTextBox7.Text&=vbCrLfNextFork1=1TomFork2=1Tonsc2(k1,k2)=Int(Rnd()*(Abs(y-x)+1)+Min(x,y))TextBox7.Text&=sc2(k1,k2)&Space(4)Ne
5、xtTextBox7.Text&=vbCrLfNextFork1=1ToiFork2=1TonFork3=1Tojsc3(k1,k2)+=sc1(k1,k3)*sc2(k3,k2)Nextk3TextBox7.Text&=sc3(k1,k2)&Space(4)Nextk2TextBox7.Text&=vbCrLfNextk1EndIfEndSubEndClass4结果显示如下：1.问题总结及心得体会首先判断两个矩阵能否相乘，当第一个矩阵的列数不等于第二个矩阵的行数时，两个矩阵无法进行相乘，这时弹出
6、一个messagebox，说明两个矩阵无法进行相乘，当两个矩阵可以相乘时，用随机函数rnd()生成矩阵的每一个元素，并用for语句显示在textbox中，并且控制换行，当进行计算时，用三个for循环控制矩阵相乘，最外层的循环是结果矩阵的行数，中间的循环是结果矩阵的列数，最内层的循环是第一个矩阵的列数（即第二个矩阵的行数），这样就计算出两个矩阵的乘积，再用for循环控制结果矩阵的输出即可，这样就实现了两个矩阵的相乘。4
