vb求一个矩阵的行列式的值_百度知道
vb求一个矩阵的行列式的值
提问者采纳
For&i&i&1)&&=&&i&If&UBound(A)&As&&j)&+&If&&&YD(i)&RRes&&&&&&If&&Next&LRes&0&&&cc(n1)&=&&cc(j))&LRes&&&&&&A(j;&TNum&&&&&&+&&&&0&=&&+&&&&&=&&&&As&Next&End&CNum&n1&&&&&=&0&&As&&N&&Double&=&&&&&1&&TNum&+&As&ni_Click()End&N&&Integer&j&-&&&If&=&&0&&&&If&&1&&&&UBound(A)&&&RRes&YD(N&=&UBound(A)&1)&&Function&End&*&UBound(A)&&&Integer&=&&=&As&i&&For&TNum&=&&&&&=&&RRes&i&=&&Double&If&ReDim&For&&End&&&To&n1&To&&-&&&&&&&0&&For&&&=&Integer)&&1&TNum&&i&&=&&&Next&&Integer&&nbsp,&&=&&A(0;&0&YD(i)&&GetHLS(A()&&i&Dim&As&Next&&=&&&i&LRes&&&A(1;Next&&j&&&bb(n1)&0&&&1)&Dim&j&&TNum&i&&-&*&&1&&&0&&&=&&&&&bb(i)&To&-&If&&&&LRes&&&&GetHLS&1&&&UBound(A)&To&-&&-&&=&Then&nbsp,&&&j&&&&i&&&&0&As&CNum&&&&&&&&&&End&Double&&&&&Then&&&For&&=&&UBound(A)&&&nbsp,&N&0)&&If&&&A(0;&&-&&&nbsp,&&&0&&aa(i&TNum&&As&&&*&TNum&For&TNum&0&&A(1;=&Then&i&*&&To&&Call&j;&i&&&For&&&&Then&nbsp,&=&Sub&&&j)&=&&Dim&GetHLS&&&A(j;&n1&&To&aa(N&IfEnd&&&&To&&&&*&bb(i)&nbsp,&&j&0)&&&cc(i)&UBound(A)&&&&TNum&&&&&&&Dim&Integer)&&If&&n1&&&=&For&&&Then&&To&&&TNum&Then&&=&&&&-&&A(j;&CNum&Next&LRes&n1&*&As&&Dim&Next&&&Next&A(UBound(A)&Sub&&&i)&&j&=&NextEnd&=&&&&=&&&End&&&cc(j))&Dim&&RRes&i&TNum&-&&&&If&0&&&&nbsp,&&&&TNum&&&&&TNum&&nbsp,&&cc(i)&+&n1&&&For&UBound(A)&RRes&&SubPublic&FunctionPublic&i&j&&&&&&&Double&nbspPrivate&ReDim&n1&&If&&=&To&UBound(A)&&&0&&UBound(aa)&j&0&=&&Call&N&&End&&&nbsp
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
来自团队：
其他类似问题
为您推荐：
行列式的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB 输入一个3行4列的二维数组,分别求出每一行、每一列元素之和 要求
米汤_444blh
你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.Option&Compare&DatabasePrivate&Sub&aa()Dim&h1,&h2,&h3,&l1,&l2,&l3,&l4,&i,&j&As&IntegerDim&a(2,&3)&As&IntegerFor&i&=&0&To&2&&&&For&j&=&0&To&3&&&&&&&&a(i,&j)&=&Int(InputBox(&输入a(&&&&i&&&&,&&&&j&&&&)的值&,&&输入&))&&&&NextNextFor&i&=&0&To&3&&&&h1&=&h1&+&a(0,&i)&'计算第一行&&&&h2&=&h2&+&a(1,&i)&'计算第二行&&&&h3&=&h3&+&a(2,&i)&'计算第三行NextFor&j&=&0&To&2&&&&l1&=&l1&+&a(j,&0)&'计算第一列&&&&l2&=&l2&+&a(j,&1)&'计算第二列&&&&l3&=&l3&+&a(j,&2)&'计算第三列&&&&l4&=&l4&+&a(j,&3)&'计算第四列NextPrint&h1,&h2,&h3,&l1,&l2,&l3,&l4End&Sub
为您推荐：
其他类似问题
扫描下载二维码VB重修复习试卷1-4_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB重修复习试卷1-4
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩48页未读，继续阅读
你可能喜欢 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
vb教材习题答案
下载积分：800
内容提示：vb教材习题答案
文档格式：TXT|
浏览次数：4|
上传日期： 06:46:34|
文档星级：
该用户还上传了这些文档
vb教材习题答案
官方公共微信}