ply222
ply222
关注数: 5
粉丝数: 17
发帖数: 139
关注贴吧数: 8
请教各位，深圳有没有一个科技研发项目需求和回复的公共平台？ 听说深圳有个科技信息网站，可以在上面发布需求，厂家都可以在上面回复。有没有人知道有个这个网站？
VB里for 循环怎么成死的了，大神求助啊！！ For t = 1 To n - 1 Step 1 chng = Abs(a(t, t)) imax = t For i = (t + 1) To n If Abs(a(i, t)) > chng Then chng = Abs(a(i, t)) imax = i End If Next i If chng = 0 Then MsgBox "第" & t & "列主元为0，程序退出", 16, "错误" End End If '交换当前行与主元所在行的数据 For j = 1 To n chng = a(imax, j) a(imax, j) = a(t, j) a(t, j) = chng Next j chng = d(imax) d(imax) = d(t) d(t) = chng '高斯消去 For i = (t + 1) To n a(i, t) = a(i, t) / a(t, t) For j = (t + 1) To n a(i, j) = a(i, j) - a(i, t) * a(t, j) Next j d(i) = d(i) - a(i, t) * d(t) Next i Next t 程序就一直在 for t 和next t 之间循环，找不出bug在哪里啊。看了好多遍了，哪位大神能搭救一下啊！而且这段代码在另一个程序好好的，粘贴到这边就鬼了。。。搞不懂啊
1
下一页
