saishing的博客

目录 第一章行列式1 第二章矩阵及其运算17 第三章矩阵的初等变换与线性方程组33 第四章向量组的线性相关性48 第五章相似矩阵及二次

VB计算器程序源码 Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer Dim a100 As Double Dim num As Single Private Sub Command1_Click() If Plus = True Then Plus = False Text1.Text = "1" Else Text1.Text = Text1.Text & "1" End If End Sub Private Sub Command2_Click() If Plus = True Then Plus = False Text1.Text = "2" Else Text1.Text = Text1.Text & "2" End If End Sub