《visual_basic程序设计基础》陈庆章_课后习题参考答案.pdf

Visual Basic程序设计基础教材习题参考答案第1章Visual Basic 6.0程序设计概述一、判断题1.V 2.V3.X 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。4.J 5.X 6.V13.X 14.J 15.X9.J18.J7.X 8.V16.V 17.V10.X 11.J 12.V19.J 20.J二、选择题1.C 2.B 3.D 4.C 5.B6.A 7.D8.A 9.B10.A 11.C 12.D三、填空题1.对象、事件4.对象7.网格2.属性、方法、事件5.Left、Top8.Forml3.控件、屏幕（Screen）6.属性、对象名.属性名=表达式9.Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10.Activate、Deactivate四、程序设计题程序1.界面设计参看图10-1、10-2以及表表10-1实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Labell)Caption（我的第一个VB程序”）标签控件2Name(Label2)Caption（请输入你的姓名”）FontUnderLine(True)Fontltalic(True)命令按钮1Name(Command 1)Caption(确定(&O)”)命令按钮2Name(Command2)Caption(结束(&X)”)过程设计如下：Private sub Form_Click()Command2.Enabled=FalseEen SubPrivate Sub Commandl_Click()Label2.Visible=FalseLabe 11.Caption=Text 1.Text+:欢迎使用”+Label 1.CaptionText1.Visible=FalseCommandl.Enabled=False:Command2.Enabled=TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2.界面设计略，过程设计如下:Private Sub Commandl_Click(),字体变大Forml.FontSi ze=Forml.Fontsize+3Forml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command2_Click()字体变小Forml.FontSize=Forml.Fontsize-3Forml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command3_Click()Forml.FontBoId=TrueForml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command4_Click()Forml.FontBoId=FalseForml.Cis:Print”欢迎使用 VB”，字体加粗，字体不加粗End Sub运行时，不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。程序3.界面设计略，过程设计如下(窗体Height值的计量包括标题、边框，而ScaleHeight 值仅与窗体有效绘图区域的高度有关)：Private Sub Form_Load()Text 1.Text=Visual Basic 程序设计”End SubPrivate Sub Form_Resize()Text 1.Top=0:Text1.Left0Text 1.Width=Forml.ScaleWidth/2 1用 Forml.SealWidth效于用Forml WidthText 1.Height=Forml.ScaleHeight/2 用 Forml SealHeight 优于用 Forml HeightCommandl.Top=Forml.ScaleHeight-Commandl.HeightCommandl.Left=Forml.ScaleWidth-Commandl.WidthEnd Sub第2章程序设计基础一、判断题1.V 2.X 3.X 4.X 5.6.X 7,V8.J 9.J 10.X二、选择题1.B 2.D3.A 4.C 5.C 6.B三、填空题1.String 2.43.aaa 4.1455.67.A6.38.D 9.C 10.A7.18 8.False9.(x Mod 10)*10+x 10 10.10+Int(Rnd*90)11.a*b Mod c12.Log(x)+Sin(3.141593/6)13.ConstPI=3.141592614.日期 15.Int(x)+1四、程序设计题程序L界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径Private Sub Commandl_Click()Dim x As Singlex=Text 1.TextLabe11.Caption=x*x*3.141593End Sub方法二、用InputBox函数输入圆的半径Private Sub Commandl_Click()Dim x As Single，若要求计算结果具有15位有效位数，声明x为Doubl类型x=工nputBox(r=,输入圆的半径”)Labe11.Caption=x*x*3.141593End Sub程序2.略。第3章结构化程序设计与数组一、判断题1.V 2.X二、选择题1.A 2.D3.V3.C4.X 5.V 6.X 7.X4.C 5.D 6.B8.V 9.X10.V三、填空题1.If xy Then t=y:y=x:x=t 2.IS3.For i=0 to 9:B(i)=InputBox(B(&i&)=):Next i4.Dim 5.String 6.8四、程序阅读题（写出下列程序的运行结果）程序1.0 5 程序2.20程序 3.2 4 7 11 16程序 4.1 4 9 16 25程序5.W WWW W WWW W WWWWWWW WWWWWWWww WWWWWWWWWWw2程序6.33445五、程序填空题1.(1)q*i(2)s+p*i/q(3)Next i2.(1)r=0(2)m Mod n3.(1)i+j-1(2)7-i(3)Print4.(1)10+Int(Rnd*90)(2)i+1 To 30(3)a(i)=a(j)(4)a(i)Mod 2=1六、程序设计题程序1.界面设计略，过程设计如下:Private Sub Form_Click()Dim x As Integer,y As Integerz z As IntegerDim max As Integer,middAs Integer,min As Integerx=工nputBox（”请输入x的值：”）y=工nputBox（请输入y的值：”）z=nputBox（”请输入z的值：”）If x y Then max=x Else max=yIf z max Then max=zIf x y Then min=x Else min=yI f z 3 Theny=x+3Elself x=1 Then y=x*xElself x 0 Then y=Sqr(x)Elsey=0End IfPrint yEnd Sub程序3.界面设计略，过程设计如下：Private Sub Form_Click()Dim i As Integer,j As IntegerFor i=1 To 9For j=1 To 9Print Tab(j-1)*4);i*j;Next j PrintNext iEnd Sub程序4.界面设计略，过程设计如下：Private Sub Form_Click()Dim x As Single,s As Single,t As Single Dim i As Integer,n As Integerx=工nputBox(请输入x的值：”)n=工nputBox(请输入n的值：”)t=x/2:s=tFor i=3 To n t=t*x/i s=s+tNext iPrint sEnd Sub程序5.界面设计略，过程设计如下：Private Sub Form_Click()Dim e As Single,t As Single,i As Integer e=2:t=1:i=1While t=0.0001i=i+1:t=t/i:e=e+tWendPrint eEnd Sub程序6.界面设计略，过程设计如下：Option Base 1Private Sub Form_Click()Dim n As Integer,a(9,9)As Integer,i As Integer,j As Integer On Error GoTo k，下列代码中若出现错误，转到标号为K的语句执行。n=工nputBox(请输入 n,0n10)For i=1 To n:a(iz 1)=1:a(i,i)=1:Next i For i=3 To nFor j=2 To i-1a(if j)=a(i-1,j-1)+a(i-1,j)Next j,i For i=1 To nPrint Tab(30-2*i);For j=1 To iPrint Space(4-Len(Trim(Str(a(i,j);Trim(Str(a(i,j);Next j Print Next i Exit Subk:MsgBox 输入n值小于1或大于10,数组下标超界。End Sub第4章函数与过程一、判断题1.X 2.V3.X 4.X 5.V6.X 7.X8.J二、填空题1.按地址传送2.b()As Long 3.64.按值传递5.按地址传递6.Public x As Single 7.Static x As Integer8.Form2.y三、程序阅读题（写出下列程序的运行结果）程序1.s=2 程序2.1程序 3.1 1 2 1 1 2122 223s=511s=912 113 3 114 6 4 1四、程序填空题1.(1)Bye Vai(2)kModi(3)k=ki(4)Call pp(i)2.(1)a()Aa Double(2)n-1(3)a(j)Abs(xmax)Then xmax=x(i,j):ki=i:kj=j Next j,iEnd Sub第5章常用控件一、判断题1.X 2.X3.X 4.V5.X 6.J7.X 8.J 9.J10.V19.V11.X20.X12.X21.J13.J22.X15.X24.X16.X25.J17.X 18.V14.J23.J二、选择题1.C 2.D3.B 4.B5.B6.C 7.B 8.B9.B10.A11.D 12.C13.B14.B15.A16.D17.B18.B 19.B 20.A三、填空题1.上、下、左、左2.堤、无关3.&、+4.Enabled5.MaxLength6.Textl.SetFocus7.MultiLine8.Visible9.Alignment10.AutoSize11.ForeColor12.0或 113.True14.115.Additem16.1 17.List 1.Clear 18.文本框、列表框19.下拉式组合框、简单组合框、下拉式列表框20.Scroll21.Value22.Change23.定时器不起作用24.Timer25.65535四、程序阅读题程序1.116程序 3.2345134512程序2.8程序4.小，你好!小李，你好!程序5.您好欢迎使用Visual Basic!程序6.李子 苹果 橘子 葡萄 柚子 香蕉程序7.y=6y=14程序8.n=1n=3n=5五、程序填空题1.(1)a(i)=Mid(strl,i,1)或 a(i)=Mid(Textl.Text,i,1)(2)p=j(3)a(i)=a(p)(4)Command2.Enabled=True2.(1)1 To2*i-1(2)Command2.Enabled=True(3)Command2.Enabled=False3.(1)Text2.Enabled=False(2)p=2(4)Val(Textl.Text)2 或 Val(Textl.Text)10 ThenLabell.Caption=差！重新开始“：Call Form_LoadElseIf m num ThenLabell.Caption=Str(m)&“大了！”Elself m num ThenLabell.Caption=Str(m)&“小了！”ElseIf rec 0 ThenLabell.Caption=选择了“&n&”个字，请选择下一步操作！”Commandl(0).Enabled=True:Commandl(1).Enabled=TrueElseLabell.Caption=End IfEnd Sub程序6.界面设计如图10-4所示，过程设计如下:Private Sub Form_Load()Labell.Caption=当前日期：:Text 1.Text=DateOptionl(0).Caption=显示日期：Optionl(1).Caption=显示时间Optionl(0).Value=True:Commandl.Caption=退出End SubPrivate Sub Optionl_Click(Index As Integer)Select Case IndexCase 0Labell.Caption=当前日期：:Text 1.Text=DateCase 1Labell.Caption=当前时间：:Text 1.Text=TimeEnd SelectEnd SubPrivate Sub Commandl_Click()EndEnd Sub程序7.过程设计如下：Private Sub Form_Load()Labell.Caption=当前日期:Text 1.Text=DateOptionl(0).Caption=显示日期“：Optionl(1).Caption=显示时间”Optionl(0).Value=True:Commandl.Caption=退出”Combol.Additem 年一月一日:Combol.Additem”月一日一年”Combol.Additem”日一月一年:Combol.Text=年一月一日”End SubPrivate Sub Combol_Click()Dim n As StringSelect Case Combol.List IndexCase 0:n=nyyyy-mm-ddnCase 1:n=Hmm-dd-yyyynCase 2:n=ndd-mm-yyyynEnd SelectText1.Text=Format(Date,n)End SubPrivate Sub Optionl_Click(Index As Integer)Select Case IndexCase 0:Labell.Caption=当前日期：“：Text 1.Text=DateCase 1:Labell.Caption=当前时间：:Text 1.Text=TimeEnd SelectEnd SubPrivate Sub Commandl_Click()EndEnd Sub程序8.界面设计如图10-5所示，过程设计如下：Private Sub Form_Load()List1.Additem happy”:List1.Additem apple”List 1.Additem nstudentn:List 1.Addltem computer End Sub Private Sub Commandl_Click()List1.Addltem Text1.Text:Text1.SetFocusText 1.SelStart=0:Textl.SelLength=Len(Text1.Text)End Sub Private Sub Command3_Click()List 1.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command2_Click()If Listl.Listindex -1 Then Listl.Removeitem List 1.List Index End Sub9.界面设计如图10-6所示，过程设计如下：Private Sub Form_Load()Optionl(O).Caption=八进制：Optionl(1).Caption=十六进制”Optionl(2).Caption=二进制”End SubPrivate Function tran(k As Long,n As Integer)As StringDim x As Integer,y As String*1,kl As Long tran=11 n:kl=Abs(k)Do While kl 0 x=kl Mod nIf x=10 Then y=Chr(Asc(HA)+x-10)Else y=CStr(x)tran=y+tran kl=kl nLoopIf k=72 Then Timerl.Enabled=False End Sub第6章图形控件和图形方法一、判断题1.V 2.X 3.J 4.X 5.V 6.X 7.X 8.X 9.J 10.J二、选择题1.C 2.B 3.C 4.A 5.A 6.C 7.A 8.C 9.C 10.B11.A 12.B 13.B 14.C 15.C三、填空题1.Circle(ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2),8002.LoadPicture 3.AutoSize、Stretch、False、False 4.选中、属性5.形状、矩形 6.Picturel.Picture=LodePicture(C:WindowsCloud上mp)7.图片框、其他控件 8.堤、SclaeMode 9.颜色10.颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1.转动一条红色直线，其轨迹形成一个圆程序2.在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。程序3.在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。五、程序填空题1.(1)Combo 1.Listindex(2)Shape 1.BorderStyle(3)Combo2.Additem Str(i)2.(1)Call pic(2)False(3)n=n+1(4)LoadPicture(c:windowsl.bmp)(4)LoadPicture(fn)六、程序设计题程序1.界面设计略，过程设计如下：Private Sub Form_Load()Picturel.ScaleMode=3End SubPrivate Sub Commandl_Click()Dim xl As Single,yl As Single,x2 As Single,y2 As Singlexl=InputBox(xl=):y1=InputBox(yl=)x2=InputBox(x2=):y2=InputBox(y2=)Picturel.Line(xl,yl)-(x2,y2),B End Sub 程序2.界面设计略，过程设计如下：Private Sub Form_click()Dim r As Single,xo As Single,yo As SingleIf Forml.ScaleHeight CommonDialogl.ShowColor6.提示信息、对话框类型、对话框标题 7.Click8.工具 9.代码窗口、Click 10.相同、正四、程序阅读题程 序1.显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。程序 2.显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的 消息框。五、程序填空题1.(1)Int(Rnd*100)(2)Str(i)(3)Exit For2.(1)False(2)Date(3)CommonDialogl.Color(4)ml六、程序设计题程序1.界面设计略，过程设计如下：Private Sub Commandl_Click()CommonDialogl.ShowOpenList1.Additem CommonDialogl.FileNameEnd Sub程序2.界面设计略，过程设计如下：Private Sub Commandl_Click()CommonDialogl.ShowSaveList 1.Additem CommonDialogl.FileNameEnd Sub程序3.界面设计如图10-9、表10-2所示，过程设计如下:Private Sub Sqr_Click()Shapel.Shape=1End SubPrivate Sub Rec_Click()Shapel.Shape=0End SubPrivate Sub Oval_Click()Shapel.Shape=2End SubPrivate Sub Circle_Click()Shapel.Shape=3End SubPrivate Sub Rrec_Click()Shapel.Shape=4End SubPrivate Sub RSqr_Click()Shapel.Shape=5End SubPrivate Sub Shp_Click()Shapel.FillStyle=2End SubPrivate Sub Shzh_Click()Shapel.FillStyle=3End SubPrivate Sub Xiex_Click()Shapel.FillStyle=4End SubPrivate Sub ShPJ_Click()Shapel.FillStyle=6End SubPrivate Sub XJ_Click()Shapel.FillStyle=7End SubPrivate Sub FillColor_Click()CommonDialogl.ShowColorShapel.FillColor=CommonDialogl.ColorEnd SubPrivate Sub Exit_Click()EndEnd Sub第8章文件一、判断题1.X 2.V9.J 10.V3.X 4.J11.X 12.X5.V13.V6.X 7.V14.X 15.X8.X二、选择题1.A 2.C3.B 4.B5.A 6.C 7.C8.B10.B 11.D 12.B 13.B9.C三、填空题1.ChDir 2.FileLen3.Change四、程序阅读题程序1.y=1a=1程序2.NO.13y=3a=2NO.24y=6a=3NO.37y=10a=4NO.411程序4.程序5.窗体上显示内容:：20文件中内容：46 810 124.EOF5.Line Input程序3.窗体:36 25 16 9 4文件：1 4 9 16 25 361程序6.1221 233 31 2 344 4 455 5 55五、程序填空题1.(1)Dim n As Integer2.(1)For Output As#23.(1)Open e:dataout.txt(2)tl Mod t2=0(2)C:windowscalc.exe(2)0For Output As#1(3)If flag Then(3)Output(4)End(3)temp.dat As c:al.dat(4)Print coun六、程序设计题程序L界面设计如图10-10所示，过程设计如下:Dim fn As StringPrivate Sub Drivel_Change()Dirl.Path=Drivel.DriveEnd SubPrivate Sub Dirl_Change()Filel.Path=Dirl.PathEnd SubPrivate Sub Filel_Click()If Right(Filel.Path,1)=Thenfn=Filel.Path+Filel.FileNameElsefn=Filel.Path+”+Filel.FileName End IfEnd SubPrivate Sub Commandl_Click()Dim yesno As Byte yesno=MsgBox(确认要删除吗？“，vbYesNo,删除文件”)If yesno=vbYes Then Kill fnFilel.RefreshEnd Sub程序2.建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按 钮追加该记录到磁盘文件d:student.dato过程设计如下：Private Sub Commandl_Click()Dim b As Date,m As Byte,e As ByteOpen d:student.dat For Append As#1 b=Text2.Text:m=Text3.Text:e=Text4.Text Write#1,Textl.Text,b,m,eText 1.Text=:Text2.Text=:Text3.Text=:Text4.Text=Close#1End Sub程序3.界面设计如图10-11所示，过程设计如下：Private Sub Form_Load()Dim ss As StringOpen e:student.txt”For Append As#1，如文件不存在则先建立该文件Close#1Open Hd:student.datH For Input As#1，将文件中所有记录在列表框中显示 While Not EOF(1)Line Input#1,ss:List1.Additem ssWendClose#1，在选中表项之前“删除”、“修改”按钮不可用Command2.Enabled=False:Commands.Enabled=False End SubPrivateSubListl_Click(),选中表项后可删除”或“修改”，不可“追加”。Commandl.Enabled=False:Command2.Enabled=TrueCommands.Enabled=True:Textl.Text=List1.Text End SubPrivate Sub Commandl_Click()，追力口记录If Trim(Text 1.Text)Then Listl.Additem Text 1.TextText1.Text=End SubPrivate Sub Command2_Click()，修改记录Listl.Additem Text 1.Text,Listl.ListindexListl.RemoveItem Listl.ListIndexCommandl.Enabled=True:Command2.Enabled=FalseCommands.Enabled=False:Textl.Text=，修改后，不可删除、修改End SubPrivate Sub Command3_Click()册！JI除己录Listl.Remove Item Listl.Li st Index，删除后，不可删I除、修改Commandl.Enabled=True:Command2.Enabled=FalseCommands.Enabled=False:Text 1.Text=End SubPrivate Sub Command4_Click()，保存文件，将列表框中所有表项输出到文件Dim i As IntegerOpen d:student.dat For Output As#1For i=0 To Listl.ListCount-1:Print#1,Listl.List(i):Next iClose#1End SubPrivate Sub Command5_Click()退出之前先保存文件Call Command4_Click:EndEnd Sub第9章数据库与数据访问技术一、判断题1.V2.J3.X4.J5.X6.X7.J8.J9.X10.x11.J12.V13.J14.V15.J16.X17.X18.X19.J20.J21.V22.X二、选择题l.A2.D3.C4.B5.C6.A7.C 8.D9.D10.Cll.A12.D13.A14.B15.B 16.C三、程序设计题程序1.(1)数据访问控件以及数据绑定控件的相关属性设置如下Datal：Connect(Access)DatabaseName(d:学籍.mdb)、Recordsource(学生)Text1：DataSource(Datal )DataField(学号)Text2：DataSource(Datal)DataField(姓名”)Checkl：DataSource(Datal)DataField(性另ij)Text3：DataSource(Datal )DataField(出生日期)Text4：DataSource(Datal)DataFielU(奖学金)Text5：DataSource(Datal )DataField(简历”)OLE1：DataSource(Datal)DataField(照片)Adodcl：Connectionstring(Provider=Microsoft.Jet.OLEDB.4.0;_Data Source=E:GYHVB学籍 lb.mdb;Persist Security Info=False)CommandType(1-adCmdText)Recordsource(select*from 成绩”)DataGridl：DataSource(Adodcl)(2)主要事件过程代码Option ExplicitPrivate Sub Form_Load()Caption=学籍信息编辑浏览”Labell.Caption=学号：:Label2.Caption=姓名：Label3.Caption=出生年月：”:Label4.Caption=奖学金：”Label5.Caption=简历：:Label6.Caption=照片：Checkl.Caption=性别(选中表示男，否则为女)”Label?.Caption=成绩信息查询显示：Adodcl.Visible=FalseEnd SubPrivate Sub Datal_Reposition()Adodcl.Recordsource=select成绩.课程号,课程名，成绩from学生，课程，成绩_&where学生.学号=成绩.学号and&成绩.课程号=课程.课程号and&_”成绩.学号=，&Datal.Recordset(学号)&order by 成绩.课程号”Label?.Caption=Trim(Data 1.Recordset()&成绩信息查询显不“Adodcl.RefreshEnd Sub程序2.(1)数据访问控件以及数据绑定控件的相关属性设置如下：Adodcl：ConnectionString(Provider=Microsoft.Jet.OLEDB.4.0;_Data Source=E:GYHVB学籍 lb.mdb;Persist Security Info=FalseCommandType(1-adCmdText)Recordsource(select*from 学生)DataGridl：DataSource(Adodcl)(2)主要事件过程代码Option ExplicitPrivate Sub Form_Load()Dim i As IntegerCaption=学籍信息查询浏览：Adodcl.Visible=FalseLabell.Caption=选择查询方式：Combol.Text=全部都显示“Label2.Caption=全部表文件数据浏览表格：:Label3.Visible=False Textl.Visible=False:Text 1.Text=For i=0 To 2Combol.Additem Mid(全部都显示按学号查询按姓名查询，5*i+1,5)Next iEnd SubPrivate Sub Combol_Click()Select Case Combol.ListindexCase 0Textl.Visible=False:Label3.Visible=FalseAdodcl.Recordsource=select*from 学生”Label2.Caption=全部表文件数据浏览表格：:Adodcl.RefreshCase 1Label3.Caption=输入查询条件(学号)：”:Textl.Visible=TrueLabe13.Visible=True:Textl.SetFocusCase 2Labe 13.Caption=输入查询条件(姓名)：:Textl.Visible=TrueLabe13.Visible=True:Textl.SetFocusEnd SelectEnd SubPrivate Sub Textl_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=vbKeyReturn ThenIf Combo1.List Index=1 ThenAdodcl.Recordset.MoveFirstAdodcl.Recordset.Find 学号&Text 1.Text&*HIf Adodcl.Recordset.EOF ThenAdodcl.Recordsource=select*from 学生”Label2.Caption=全部表文件数据浏览表格：”Adodcl.Refresh:MsgBox”查无止匕人！”ElseAdodcl.Recordsource=select*from 学生”&nwhere _学号&Text 1.Text&Label2.Caption=学生”+Text 1.Text+”的数据*刘览表格：”End IfElseAdodcl.Recordset.MoveFirstAdodcl.Recordset.Find”姓名&Text 1.Text&If Adodcl.Recordset.EOF ThenAdodcl.Recordsource=select*from 学生”Label2.Caption=全部表文件数据浏览表格：”Adodcl.Refresh:MsgBox”查无止匕人！”ElseAdodcl.Recordsource=select*from 学生”&_ Hwhere 姓名=7，&Text 1.Text&End IfEnd IfAdodcl.RefreshEnd I fEnd Sub程序3.(1)数据访问控件以及数据绑定控件的相关属性设置如下：Adodcl(xs)：Connectionstring(Provider=Microsoft.Jet.OLEDB.4.0;_ Data Source=E:GYHVB学籍 lb.mdb;Persist Security Inf o=Falsen)CommandType(n2-adCmdTablen)、Recordsource(“学生”)Adodc2(kc)：Connectionstring(nProvider=Microsoft.Jet.OLEDB.4.0;_Data Source=E:GYHVB学籍 lb.mdb;Persist Security Inf o=False)CommandType(n2-adCmdTablen)、Recordsource(“课程”)Adodc3(cjcx)：Connectionstring(Provider=Microsoft.Jet.OLEDB.4.0;_Data Source=E:GYHVB学籍 lb.mdb;Persist Security Info=False)C