Location:
Search - picture1.print
Search list
Description: Option Explicit Private Sub Form_click() Dim T As Date T = -2.5 Picture1.Print T End Sub priva
Platform: |
Size: 866699 |
Author: 李三 |
Hits:
Description: Option Explicit Private Sub Form_click() Dim T As Date T = -2.5 Picture1.Print T End Sub priva-Option Explicit Private Sub Form_click() Dim T As Date T =-2.5 Picture1.Print T End Sub priva
Platform: |
Size: 866304 |
Author: 李三 |
Hits:
Description: vb编写的高斯消去法，通用函数，如有不好的地方，还请指教！-Dim a(), b(), n, k, l 定义必须的通用变量
Private Sub Command1_Click()
If k = n Then
Command1.Enabled = False
Text2.Enabled = False
Else
k = k+ 1
Text2 = ""
End If
End Sub
Private Sub Command2_Click()
If l = n Then
Text3.Enabled = False
Else
l = l+ 1
Text2 = ""
Text3 = ""
Command1.Enabled = True
Text2.Enabled = True
End If
End Sub
Private Sub Command3_Click() 求解方程组
Dim m()
ReDim m(1 To n, 1 To n)
For i = 1 To n- 1
For j = i+ 1 To n
m(j, i) = a(j, i)/a(i, i)
End Sub
Private Sub Form_Activate()
k = 1
l = 1
Picture1.Print "系数"
End Sub
Private Sub Text1_Change() 指定方程组元数
n = Val(Text1)
ReDim a(1 To n, 1 To n)
ReDim b(1 To n)
End Sub
Private Sub Text2_Change() 给方程组各系数Aij赋值
a(k, l) = Val(Text2)
Picture1.Print a(k, l) & ","
End Sub
Private Sub Text3_Change() 给方程组系数Bi赋值
b(l) = Val(Text3)
Picture1.Print b(l) & ","
End Sub
Platform: |
Size: 2048 |
Author: chubby |
Hits: