【正文】 lean, rn As VariantPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 7 Command1(i).Caption = Mid(追加更新刪除表首前翻后翻表尾返回, 2 * i + 1, 2)Next i Command1(3).Enabled = False: Command1(4).Enabled = False = 學(xué)號： : = 姓名： = 出生年月： : = 獎學(xué)金： = 性別（選中為男，否則為女） = 課程號： : = 課程名： = 學(xué)時數(shù)： : = 學(xué)分?jǐn)?shù)： = 開課學(xué)期：: = 考試考查標(biāo)志： = 學(xué)號： : = 課程號： = 成績 = “追加”、“刪除”或是修改操作完成之后必須按“更新”按鈕 Caption = 學(xué)籍信息瀏覽編輯 =(學(xué)號): =(課程號) =(學(xué)號): =(課程號) vlt = TrueEnd SubPrivate Sub Command1_Click(Index As Integer)Dim xh As String, kch As String, answer As ByteOn Error GoTo errshowSelect Case IndexCase 0 Select Case Case 0 : (學(xué)號) = 000000 Case 1 : (課程號) = 0000 Case 2 : (學(xué)號) = 000000 (課程號) = 0000 End SelectCase 1 Select Case Case 0: Case 1: Case 2: End SelectCase 2 answer = MsgBox(真的確定要刪除當(dāng)前記錄嗎？, 1 + 32, 刪除確認(rèn)) If answer = 1 Then Select Case Case 0 xh = (學(xué)號): Do 學(xué)號=39。 amp。 xh amp。 39。 If Not Then : Else Exit Do End If Loop : Case 1 kch = (課程號): Do 課程號=39。 amp。 kch amp。 39。 If Not Then : Else Exit Do End If Loop : Case 2 : End Select End IfCase 3 Select Case Case 0: Case 1: Case 2: End Select Command1(3).Enabled = False: Command1(4).Enabled = False Command1(5).Enabled = True: Command1(6).Enabled = TrueCase 4 Select Case Case 0 If Not And 1 Then Else Command1(3).Enabled = False: Command1(4).Enabled = False End If Case 1 If Not And 1 Then Else Command1(3).Enabled = False: Command1(4).Enabled = False End If Case 2 If Not And 1 Then Else Command1(3).Enabled = False: Command1(4).Enabled = False End If End Select Command1(5).Enabled = True: Command1(6).Enabled = TrueCase 5 Select Case Case 0 If Not And _ Then Else Command1(5).Enabled = False: Command1(6).Enabled = False End If Case 1 If Not And _ Then Else Command1(5).Enabled = False: Command1(6).Enabled = False End If Case 2 If Not And _ Then Else Command1(5).Enabled = False: Command1(6).Enabled = False End If End Select Command1(3).Enabled = True: Command1(4).Enabled = TrueCase 6 Select Case Case 0: Case 1: Case 2: End Select Command1(6).Enabled = False: Command1(5).Enabled = False Command1(4).Enabled = True: Command1(3).Enabled = TrueCase 7 Unload MeEnd SelectIf Not Then = (學(xué)號)If Not Then = (課程號)If Not Then = (學(xué)號) = (課程號)End IfExit suberrshow: MsgBox End SubPrivate Sub SSTab1_Click(PreviousTab As Integer)If Not Then = (學(xué)號)If Not Then = (課程號)If Not Then = (學(xué)號) = (課程號)End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Dim xh As StringIf KeyCode = vbKeyReturn Then rn = : 學(xué)號=39。 amp。 amp。 39。 If Then = rn: xh = (學(xué)號) (學(xué)號) = Do 學(xué)號=39。 amp。 xh amp。 39。 If Not Then (學(xué)號) = Else Exit Do End If Loop : SendKeys {tab} : vlt = True Else MsgBox 學(xué)號重號，重新輸入！, , 輸入驗證！ = rn : vlt = False: = 0 = Len() End IfEnd IfEnd SubPrivate Sub Text1_Validate(Cancel As Boolean)If vlt = True Then Cancel = FalseElse MsgBox 學(xué)號重號，重新輸入！, , 輸入驗證！Cancel = TrueEnd IfEnd SubPrivate Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)Dim kch As StringIf KeyCode = vbKeyReturn Then rn = : 課程號=39。 amp。 amp。 39。 If Then = rn: kch = (課程號) (課程號) = : Do 課程號=39。 amp。 kch amp。 39。 If Not Then (課程號) = Else Exit Do End If Loop : SendKeys {tab}: vlt = True Else MsgBox 課程號重號，重新輸入！, , 輸入驗證！ = rn: vlt = False: = 0 = Len() End IfEnd IfEnd SubPrivate Sub Text5_Validate(Cancel As Boolean)If vlt = True ThenCancel = False Else MsgBox 課程號重號，重新輸入！, , 輸入驗證！Cancel = TrueEnd IfEnd SubPrivate Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)Dim xh As StringIf KeyCode = vbKeyReturn Then 學(xué)號=39。 amp。 amp。 39。 If Not Then (學(xué)號) = : SendKeys {tab}: vlt = True Else MsgBox 學(xué)號不存在，重新輸入！, , 輸入驗證！ vlt = False: = 0: = Len() End If End IfEnd SubPrivate Sub Text11_Validate(Cancel As Boolean)If vlt = True Then Cancel = False Else MsgBox 學(xué)號不存在，重新輸入！, , 輸入驗證！Cancel = TrueEnd IfEnd SubPrivate Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)Dim kch As StringIf KeyCode = vbKeyReturn Then 課程號=39。 amp。 amp。 39。 If Not Then (課程號) = : SendKeys {tab}: vlt = True Else MsgBox 課程號不存在，重新輸入！, , 輸入驗證！ vlt=False:=0:= Len() End If End IfEnd SubPrivate Sub Text12_Validate(Cancel As Boolean)If vlt = True Then Cancel = False Else MsgBox 課程號不存在，重新輸入！, , 輸入驗證！: