vb源代码VB程序源代码

VB源码大全

这是用来球现行回归方程的 Option Explicit Public c As Integer, xi As Single, sumxy As Single, yi As Single, sumx2 As Single, sumx As Single, sumy As Single, ii As Integer Public xba As Single, yba As Single, b As Double, a As Single Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Static i As Integer xi = Val(Text1.Text) yi = Val(Text2.Text) sumxy = sumxy + xi * yi sumx = sumx + xi sumy = sumy + yi sumx2 = sumx2 + xi * xi i = i + 1 ii = i End Sub Private Sub Command2_Click() xba = sumx / ii yba = sumy / ii b = Round((sumxy - ii * xba * yba) / (sumx2 - ii * xba ^ 2), 4) a = Round(yba - b * xba, 4) Label3.Caption = "y=" & a & "+" & b & "x" End Sub

VB程序源代码

Private Sub Command1_Click() If Text1.Text = "abc" And Text2.Text = "123" Then MsgBox "欢迎你， abc用户！" Else MsgBox "你输入的密码错误！" Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Command2_Click() End End Sub