24小时热门版块排行榜

返回列表

本帖产生 1 个程序强帖，点击这里进行查看

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

magic7004

金虫 (职业作家)

程序强帖: 2
应助: 0 (幼儿园)
金币: 444
红花: 4
帖子: 3278
在线: 156.2小时
虫号: 482895
注册: 2007-12-26
性别: GG
专业: 化学工程

[交流] 【交流】VC++, C#, VB答疑专贴已有69人参与

帖主寄语

其实我是业余爱好者，不搞研究也不写论文，专业和工作都和编程基本没关系。只是喜欢胡搞瞎搞而已，所以对Windows编程比较熟悉，数值计算之类的就不懂了。

比较熟悉Windows编程，常用VB、VC++、C#。关于语言、语法和编译的问题，欢迎大家一起来交流讨论~.~

[ Last edited by 波不动 on 2010-1-8 at 19:44 ]

回复此楼

» 本帖已获得的红花（最新10朵）

飞虎

bbettry

谭留香

» 猜你喜欢

拟解决的关键科学问题还要不要写已经有11人回复
救命帖已经有5人回复
限项规定已经有5人回复
为什么nbs上溴没有产物点出现呢已经有9人回复
招博士已经有3人回复
存款400万可以在学校里躺平吗已经有35人回复
最失望的一年已经有18人回复
求推荐博导已经有4人回复
求推荐英文EI期刊已经有5人回复
疑惑？已经有5人回复

流氓不可怕，可怕的是流氓有文化，有文化又BH的流氓无敌~~！

1楼 2009-11-18 14:12:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

溪行有声

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 56.2
散金: 10
帖子: 36
在线: 17.8小时
虫号: 2501264
注册: 2013-06-08
性别: GG
专业: 岩土与基础工程

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

楼主大神您好，我正在学VB，在学习利用VB进行雅克比迭代解线性方程组是卡住了，求帮忙，另外VB解矩阵实在烦，学VB可以绕过这些，利用matlab

Private Sub Form_Click()
Dim a%(3, 3), b%(3), x#(3), y#(3), k#(3), s As Double, e#, Max
e = Val(InputBox("请输入精度e"

)
For i = 0 To 3
x(i) = Val(InputBox("请任意输入一个数X"

)
Next i
For i = 0 To 3
For j = 0 To 3
a(i, j) = Val(InputBox("请输入A"

)
Next j
b(i) = Val(InputBox("请输入B"

)
Next i
t = 0

Do
For i = 0 To 3
For j = 0 To 3
If i <> j Then
  s = s + a(i, j) * x(j)
  End If
  y(i) = (b(i) - s) / a(i, i)
  t = t + 1
Next j
Next i
For i = 0 To 3
k(i) = Abs(x(i) - y(i))
Next i
Max = k(0)
For i = 1 To 3
If Max < k(i) Then Max = k(i)
Next i

For j = 0 To 3
x(j) = y(j)
Next j

Loop Until Max < e Or t < 100
For i = 0 To 3
Print Tab(4 * j); y(i);
Next i
For i = 0 To 3
For j = 0 To 3
  Print Tab(5 * j); a(i, j);
Next
Next
For i = 0 To 3
Print Tab(5 * j); b(i);
Next
Print t
End Sub
如解我多周之疑惑，将不胜感激