(VB程序)高斯-赛德尔迭代法解线性方程组.docx

高斯-赛德尔迭代法解线性方程组VB程序参考教材：《数值分析》数值分析(李庆扬、王能超、易大义)1、窗体文件（fram1.frm）Option ExplicitOption Base 1Private Sub Command1_Click()Dim i%, j%, rows%, cols%Dim A!(), b!(), rootDim coef_arr, import_filename$import_filename = get_import_filenameIf import_filename = Then Exit Sub MsgBox 未选择路径:Call importdata(coef_arr, import_filename)rows = UBound(coef_arr, 1)cols = UBound(coef_arr, 2) - 1ReDim A(rows, cols), b(rows)For i = 1 To rows For j = 1 To cols A(i, j) = coef_arr(i, j) 矩阵A Next j b(i) = coef_arr(i, cols + 1) 最后一列为矩阵bNext iCall Gauss_Seidel(root, A, b)For i = 1 To UBound(root) Text1.Text = Text1 root(i) vbCrLfNext iEnd Sub2、模块文件（model1.bas）Option Explicit*********************************************************************获取需要打开的文件路径输入：无输出：需要打开的文件路径*********************************************************************Function get_import_filename$()On Error GoTo ErrHandler CancelError 为 True。 Form1.CommonDialog1.InitDir = App.Path Form1.CommonDialog1.Filter = 文本文件(*.txt])|*.txt 设置过滤器。 Form1.CommonDialog1.ShowOpen 显示“打开”对话框。 get_import_filename = Form1.CommonDialog1.filename 调用打开文件的过程ErrHandler: Exit Function 用户按“取消”按钮。End Function*********************************************************************导入数据输入：无输出：数据集合voxel_data*********************************************************************Sub importdata(coef_arr, filename$)Dim i%, j%, k%, rows%, cols%Dim ObjString$, CharArray, model%Dim strs, arr, cntmodel = 1CloseOpen filename For Input As #1 Line Input #1, ObjString arr = Split(ObjString, ;) rows = arr(0) cols = arr(1)Close #1ReDim coef_arr(rows, cols)Open filename For Input As #1 Do While Not EOF(1) Line Input #1, ObjString cnt = cnt + 1 If cnt = 2 Then 第1行存储了系数矩阵的行和列，跳过 arr = Split(ObjString, ) For i = 1 To cols coef_arr(cnt - 1, i) = Val(arr(i - 1)) Next i End If LoopClose #1End Sub****************************************