vb的一些过程代码.doc

Adodc1.ConnectionString Adodc1.ControlSource Private Sub CommandButton1_Click() Sheet1.Activate Dim i As Integer Dim j As Integer For i = 1 To 10 For j = 1 To 10 Sheet1.Cells(i, j) = i * j Next j Next i End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 18: y = 15 Call value(x, y) Print x=; y=; y End Sub Private Sub value(ByVal m As Integer, ByVal n As Integer) m = m + 2: n = n + 5 Print m=; m, n=; n End Sub Private Sub Command1_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else Data1.Recordset.MoveFirst End If End Sub Private Sub commandp_click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else If Data1.Recordset.BOF Then MsgBox 这是第一条记录 Data1.Recordset.MoveFirst Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst MsgBox 这是第一条记录 End If End If End If End Sub Private Sub Form_Load() Data1.Connect = access Data1.DatabaseName = App.Path + \class.mdb Data1.RecordSource = 学院表 End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Command3_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Delete End Sub Private Sub Command1_Click() Text3.Text = Text1.Text + Text2.Text End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox this is last content End If End Sub Private Sub CommandButton1_Click() Sheet1.Activate Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10 Sheet1.Cells(i, j) = i * j Next j Next i End Sub Private Sub UserForm_Click() Dim i As Integer, j As Integer i = 1: j = 2 Print j; Do While i = 100 Print i; t = i i = i + j j = t Loop End Sub Private Sub Form_Activate() Print 窗体1的activate时间被激发 End Sub Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Me.Caption = 更改标题 End End Sub Private Sub Form_Activate() Print 窗体1的activate时间被激发 End Sub Private Sub Command1_Click() Form2.Hide Fo