将c语言程序转化为vb格式,我要个题要各位大侠帮忙请把下面这个VB程序改成C语言谢谢了！? 爱问知识人...

Private Sub Command1_Click()

Const K = 10, N = 10, Z = 0.01

Dim i As Integer, j As Integer, M As Single

Dim T(K, N) As Single

M = (

Private Sub Command1_Click()

Const K = 10, N = 10, Z = 0.01

Dim i As Integer, j As Integer, M As Single

Dim T(K, N) As Single

M = (1 / N) ^ 2 / (Z * 5 / K)

For i = 0 To K

T(i, 0) = 100

T(i, K) = 100

Next i

For j = 1 To N

T(0, j) = 0

T(0, N) = 100

Next j

For i = 0 To K - 1

For j = 1 To N - 1

If j < N Then

T(i + 1, j) = 1 / M * (T(i, j + 1) + T(i, j - 1)) + (1 - 2 / M) * T(i, j)

End If

Next j

Next i

Print " "

Print " "

For i = 0 To K

Print ""

Print Tab(3); i * 5 / K; "时刻温度为:"; Tab(20);

For j = 0 To N

T(i, j) = Format(T(i, j), "0.00")

Print T(i, j); Tab(10 * j + 30);

Next j

Print

Next i

End Sub

展开

全部