得分 评卷人 三、阅读程序题（共25分） 26. 27. 28. 29. 得 分 评卷人 四、完善程序题（共10分） 30.程序如下，请补充完整。 Private Sub Form_Load() [1] "Provider=Microsoft.Jet.OLEDB.4.0;Dataource =学生.mdb;Persist Security Info=False" End Sub Private Sub Command1_Click() Dim strSQL As String [2] [3] =ADOcn Dim ADOrs As New Recordset ADOrs.ActiveConnection ADOcn strSQL="Select米from学生基本情况Where学号="+Textl+"'" ADOrs.Open [4] If Not ADOrs.EOF Then MsgBox"学号已经存在，请重新输入！"，vbOKOnly,"信息提示" Text1.SetFocus Else strSQL="Insert Into学生基本情况（学号，姓名，籍贯）" strSQL strSQL +Values (Text 1 +","Text2+","+Text 3 +") [5] Execute strSQL 1367得分!评卷人 三、阅读程序题{共 26. 27. 28. 29. 得分|评卷人 四、完善程序题{共 30. 序如 下 Private Sub Form_Load() [IJ "Provider = Microsoft. Jet. OLEDB. 4. 0; Dataource =学生. mdb;Persist Security Info=False" End Sub Private Sub Commandl_ClickO Dim strSQL As String [ 2J [3J = ADOcn Dim ADOrs As New Recordset ADOrs. ActiveConnection = ADOcn strSQL = "S巳lect 祷from 学生 况Where 学号 '" + Textl + ADOrs. Open [4J If Not ADOrs. EOF Then MsgBox "学号已经存在，请重新输入!"，vbOKOnly , "信息提示" Textl. SetFocus Else II , II strSQL = "Insert Into 基本 " strSQL = strSQL + " Values ( '"十 ext +"','" + Text2 + "','" +在xt 3 + "')" [5J Execute strSQL 1367