《Visual Basic程序設計基礎》浙江科學技術出版社 陳慶章主編課后習題答案(包括程序設計題)

《程設基》材習參答第1章VisualBasic6.0程設計概述一、判斷題．2．．說明：同類控件（如兩個標簽）相互重疊，設計時可以設“置前、置屬性。．5．．7．．9√10．11√．13×．15×16．√17．18．19√20．二、選擇題2.BD5ADAB10A1112三、填空題．對象、事件2．屬性、方法、事件3控件、屏幕Screen．對象．、Top．性<對名>.<性>=<表達>．網(wǎng)格．Form1．或或Resize或Activate自動執(zhí)行的先后順序也按此排列）10Activate、四、程序設計題程序．界面設計參看圖、10-2以表10-1。表實2各件的主屬性設置控件屬（屬性值）屬性（屬性值）標簽控件Caption("我的第一個VB程")標簽控件Caption("請入你的姓名)FontItalic(True)命令按鈕命令按鈕

Caption("定(&O)")Caption("束(&X)")過程設計如下：PrivateForm_Click()Command2.Enabled=EenSubPrivateCommand1_Click()=FalseLabel1.Caption=Text1.Text+":歡使用"+Text1.Visible=FalseCommand1.Enabled==TrueEndPrivateCommand2_Click()EndEnd程序．界面設計略，過程設計如下：PrivateCommand1_Click()'字體變大1

Form1.FontSizePrint歡迎使用VB"EndPrivateCommand2_Click()字體變小Form1.FontSize-3Print歡迎使用VB"EndPrivateCommand3_Click()'字體加粗Form1.FontBold=Print歡迎使用VB"EndPrivateCommand4_Click()'字體不加粗Form1.FontBold=Print歡迎使用VB"End運行時不連續(xù)過次單擊字變小按鈕因為當FontSize屬值小于產(chǎn)生適時錯誤。程序．界面設計略程設計如下（窗體Height值計量包括標題、邊框值僅與窗體有效繪圖區(qū)域的高度有關PrivateText1.Text"Visual序設計"EndPrivateText1.TopText1.Left=0=Form1.ScaleWidth/2用效優(yōu)于用Text1.HeightForm1.ScaleHeight/2用于用=-=Form1.ScaleWidth-End第2章程序計基礎一、判斷題．．3×．5√6．7．．9．．二、選擇題．2D3．A．5．C．．A8．C．A三、填空題．2．4345．6．37．False．Mod*10+\1010．Int(*90)．*bMod1213．14日期．Int(x)+1四、程序設計題程序．界面設計略，過程設計如下：方法一、用文本框控件輸入圓的半徑PrivateCommand1_Click()DimxAsx=2

Label1.Caption=*x*3.141593End方法二、用函數(shù)輸入圓的半徑PrivateCommand1_Click()DimxAs'若要求計算結果具有位效位數(shù)聲明x為Double類x=入圓的半徑"Label1.Caption=*x*3.141593End程序．略。第3章結化程序設計與數(shù)組一、判斷題．2．3√．5．．．8．9．．二、選擇題．A2．3．C4．5D6．B三、填空題．Ifx>yTheny=x:x=t2．i=0B(i)=InputBox("B("&i&")="):i．Dim5．String．四、程序閱讀題（寫出下列程序的運行結果）程序1.程序2.程471116程序4.9程序5.五、程序填空題）q*i）=0

程序6.（2）p*i/q（）i（2）mMod）i+j-1（2）7-i

（3））*（2）i+1To30（3）a(i)=a(j)（）a(i)Mod2=六、程序設計題程序．界面設計略，過程設計如下：PrivateForm_Click()DimxAsyAsInteger,AsDimAsInteger,middInteger,minAsx=InputBox("輸入的值：")y=InputBox("輸入的值：")z=InputBox("請輸入的：")Ifx>y=xElse=If>Ifx<y=xmin=If<minThenminzmidd=x+y+z-minmax;midd;minEnd程序．界面設計略，過程設計如下：3

PrivateForm_Click()DimxAsSingle,yAsx=InputBox("輸入的值：")Ifx>y=+x>=1y=*xx>0y=y=0EndIfEnd程序．界面設計略，過程設計如下：PrivateForm_Click()DimiInteger,jFori=To9Forj=To9Tab((j-*i*j;NextjNextiEnd程序．界面設計略，過程設計如下：PrivateForm_Click()DimxAsSingle,sAsSingle,tDimiInteger,nAsIntegerx=InputBox("輸入的值：")InputBox("輸入n的：")t=/s=tFori=Tont=t*x/is=s+tNextisEnd程序．界面設計略，過程設計如下：PrivateForm_Click()DimAstie=ti1Whilet>=i=i+1:tt/i:et4

eEnd程序．界面設計略，過程設計如下：1PrivateForm_Click()DimnAsa(9,AsInteger,iInteger,jOnErrork下列代碼中若出現(xiàn)錯誤，轉到標號為K的句執(zhí)行。InputBox("輸入nFori=Toa(i,=a(i,i)=1:NextiFori=TonForj=Toi-1a(i,j)=j-+a(i-1,j)Nextj,iFori=TonTab(30-*i);Forj=Toi-Len(Trim(Str(a(i,j)))));NextjNextiExitSubk:"輸入值小于大于10數(shù)組下標超界。"End第4章函與過程一、判斷題．2√3．4．5√6．7．．二、填空題．按地址傳送．b()AsLong．6．值傳遞5按地址傳遞．PublicxAs7．StaticxAs．Form2.y三、程序閱讀題（寫出下列程序的運行結果）程序1.s=程序1s=1s=1131441四、程序填空題

程序1212223）ByeVal

（2kModi

（）k=k\i

（4）pp(i)）a()AaDouble（2）

（3）a(j)<）a()AsDouble,As

（）=t*x

（3）f五、程序設計題程序．界面設計略，過程設計如下：Privatefsum(x()nAsAsDoubleDimiFori=Ton5

=+x(i)Nexti=/End程序．界面設計略，過程設計如下：Privateff(a()AsSingle,nAsInteger)DimiInteger,xFori=Ton\2x=a(n-i+a(n-i+=a(i):xNextiEnd程序．界面設計略，過程設計如下：Privatefind(x()Single,Asbyte,nByte,_xmaxAsByte,kj）xmax=ki=kj=1Fori=ToForj=TonIfAbs(x(i,j))>xmax=x(i,j):ki=i:kj=jNextj,iEnd第5章常控件一、判斷題．2．．4．．．7．．9√10√．．．．．16．17．18．19√．．22．．24．25．二、選擇題CD．．BCB8B9BADCB14BA16DB18B．A三、填空題．上、下、左、左2．緹、無關3&45MaxLength．．MultiLine8Visible．Alignment．．120或13．．1．AddItem16117．List1.Clear18文本框、列表框19下拉式組合框、簡單組合框、下拉式列表框2021．Value22Change23定時器不起作用24Timer25四、程序閱讀題程序1.116程序8程序3.程序4.小你好！程您好

小李，你好！歡使VisualBasic!程序6.李子

程序y=

程序8.1蘋果橘子

y=14n56

葡萄柚子香蕉五、程序填空題）a(i)=Mid(str1,i,1)或a(i)=Mid(Text1.Text,i,（2）p=j

（3=a(p)

（）Command2.Enabled=True）1（）=（3）Command2.Enabled=）=False

（）p（）i（4）Val(Text1.Text)<或Val(Text1.Text)1（5）KeyAscii=）List1.ListCount）=True

（2I（）x\3600

（3）=i+1（3）(xMod\或(x-*\60（4xx+1）Label1.Left六、程序設計題程序1.界設計略，過程設計如下：PrivateCommand1_Click()IfCommand1.Caption="顯示"

（2）Label1.Left=-Label1.Width"歡迎使用VisualBasic":="清除"Command1.Caption顯示"EndIfEndPrivateCommand2_Click()EndEndPrivateCommand1.Caption"顯示":退出"End程序．界面設計略，過程設計如下：PrivateText1.MaxLength=1:=""EndPrivateText1_KeyPress(KeyAsciiLabel1.Caption=End程序．界面設計略，過程設計如下：As預設密碼為PrivateCommand1_Click()Cls:"歡迎進入！EndPrivate進入"=FalsewText1.Text"":Text1.PasswordChar="*"End7

PrivateText1_KeyPress(KeyAsciiIfKeyAscii13IfText1.Text=pwdThen=口令正確，歡迎進入Command1.Enabled=口令錯請重新輸入！"):Text1.Text""EndIfEndIfEnd程序．界面設計略，過程設計如下：DimAsInteger,AsrecPrivate出題"=TrueText1.Text"":False:=0EndPrivateCommand1_Click()Randomize:=*100)Text1.EnabledLabel1.Caption="":=EndPrivateCommand2_Click()EndEndPrivateText1_KeyPress(KeyAsciiIfKeyAscii13=Val(Text1.Text):=rec0Text1.SelLength=Len(Text1.Text):Text1.SetFocusIf>Label1.Caption="差重新開":Ifm>ThenLabel1.Caption=Str(m)&"大了！"<numLabel1.Caption=Str(m)&"小了！"If<Label1.Caption="！猜對了。"Label1.Caption="行！猜對了。"EndIfEndIfEndIfEndIfEnd8

程序．界面設計如圖示，過程設計如下：PrivateCommand1(0).EnabledFalse:Command1(1).Enabled=Command1(2).EnabledFalse:Label1.Caption""EndPrivateAsSelectIndexClipboard.Clear:="":=請選擇要粘貼的位置"Command1(0).EnabledFalse:Command1(1).Enabled=Command1(2).EnabledClipboard.Clear:Label1.Caption="請擇要粘貼的位置":=FalseCommand1(1).EnabledFalse:Command1(2).Enabled=True=Label1.Caption="粘完成！"EndEndPrivateText1_MouseUp(ButtonInteger,ShiftInteger,_XYAsDimnAsIfLabel1.Caption="選了&&"字請選擇下一步操作！"Command1(0).EnabledTrue:Command1(1).EnabledLabel1.Caption=""EndIfEnd程序．界面設計如圖示，過程設計如下：PrivateLabel1.Caption="當日期：Text1.Text=Date="顯示日期":=顯示時"=True:出"EndPrivateAsSelectIndexLabel1.Caption="當日期：":=DateLabel1.Caption="當時間：":=Time9

EndEndPrivateCommand1_Click()EndEnd程序．過程設計如下：PrivateLabel1.Caption="當日期：Text1.Text=Date="顯示日期":=顯示時"=True:出"Combo1.AddItem年-月日:Combo1.AddItem月日年"Combo1.AddItem日-月年:="-月-日"EndPrivateCombo1_Click()DimnAsStringSelectCombo1.ListIndex="yyyy-mm-dd"="mm-dd-yyyy"="dd-mm-yyyy"EndText1.TextEndPrivateAsSelectIndex="當前日期：":Text1.Text=Date="當前時間：":Text1.Text=TimeEndEndPrivateCommand1_Click()EndEnd程序8.界設計如圖示，過程設計如下：PrivateList1.AddItemList1.AddItem"apple"List1.AddItem"student":"computer"EndPrivateCommand1_Click()List1.AddItemText1.Text:Text1.SetFocus==Len(Text1.Text)EndPrivateCommand3_Click()List1.ClearEndPrivateCommand4_Click()10

EndEndPrivateCommand2_Click()IfThenList1.ListIndexEnd．界面設計如圖所，過程設計如下：Private="八進制:=十六進制"="二進制EndPrivatetran(kAsLong,nAsAsDimxAsyAsString*k1AsLongtran="":k1=Abs(k)Whilek1>x=Ifx>=10y=Chr(Asc("A")+x-yCStr(x)tran=y+trank1=k1nLoopIfk<tran="-"EndPrivateAsDimkAsnk=Val(Text1.Text)SelectIndexLabel2.Caption="八制:n=8Label2.Caption="十進制"=16Label2.Caption="二制:n=2EndText2.TextEnd10界面設計如圖所示，過程設計如下：Private=Width/2-Label1.Width/=HScroll1.Min=1:==10:HScroll1.LargeChangeHScroll1.Value=500EndPrivateHScroll1.Value11

EndPrivateHScroll1_Scroll()HScroll1_ChangeEndPrivateTimer1_Timer()Label1.FontSize=Label1.FontSize+2=Width/2-Label1.Width/If>=72Timer1.Enabled=End第6章圖控件和圖形方法一、判斷題．2．．4．．6．×．．．．二、選擇題．C．BC4A5A67A．C9C．．A12．13B．C．三、填空題．Circle(ScaleLeft+ScaleWidth//．LoadPicture3．AutoSize、、、4．選中、屬性．形狀、矩形．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")．圖片框、其他控件．緹、SclaeMode．色10顏色、圓弧起點處轉角、圓弧終點處轉角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序1.轉一條紅色直線，其軌跡形成一個圓程序2.在體上隨機的位置、用隨機的顏色、半徑繪制1000個空心的圓。程序3.在片框內(nèi)繪制多個黃色邊框矩形，填充樣式實心、透明間替變換。五、程序填空題）Combo1.ListIndex（2）（3Combo2.AddItem）Callpic

（）

（3）1（4六、程序設計題程序．界面設計略，過程設計如下：PrivatePicture1.ScaleMode3EndPrivateCommand1_Click()DimAsSingle,AsSingle,AsSingle,Asx1=InputBox("x1="):y1=x2=InputBox("x2="):y2=Picture1.Line(x1,End程序．界面設計略，過程設計如下：PrivateDimrSingle,xoyoAsSingleIf<Then

（）12

r=/r=Form1.ScaleWidth/3EndIfxo=Form1.ScaleLeft+Form1.ScaleWidth/yo=Form1.ScaleTop/Form1.FillColor=2:=yo),r,vbYellowEnd程序．界面設計略，過程設計如下：PrivateDimiFori=ToList1.AddItemi:iForm1.ScaleMode=1EndPrivateList1_Click()=List1.TextForm1.ScaleWidth/2,_+Form1.ScaleHeight/End第7章對框與菜單程序設計一、判斷題．2．．√．．6．8√．．二、選擇題D2A3BDA8B9D10B三、填空題．窗體控制菜單、下拉式菜單、快捷菜單．．打開文件、另存為、顏色、字體、打印對話框4工程、部件．CommonDialog1.Action、CommonDialog1.ShowColor．提示信息、對話框類型、對話框標題

．Click．工具

9代碼窗口Click．相同、正四、程序閱讀題程序1.顯提示信息為5、題為na輸出結、有一個確定按鈕的消息框。程序2.顯提示信息為您擇第1項、標題“一項、有一“確按鈕的消息框。五、程序填空題）Int(Rnd*100)

（2）Str(i)（2Date

（）For（CommonDialog1.Color（4）m1六、程序設計題程序．界面設計略，過程設計如下：PrivateCommand1_Click()List1.AddItemCommonDialog1.FileName13

End程序．界面設計略，過程設計如下：PrivateCommand1_Click()CommonDialog1.ShowSaveList1.AddItemCommonDialog1.FileNameEnd程序．界面設計如圖、示，過程設計如下：PrivateShape1.Shape1EndPrivateRec_Click()Shape1.Shape0EndPrivateShape1.Shape2EndPrivateCircle_Click()Shape1.Shape3EndPrivateShape1.Shape4EndPrivateShape1.Shape5EndPrivateShp_Click()Shape1.FillStyle=2EndPrivateShape1.FillStyle=3EndPrivateXiex_Click()Shape1.FillStyle=4EndPrivateShape1.FillStyle=6EndPrivateXJ_Click()Shape1.FillStyle=7EndPrivateCommonDialog1.ShowColorEnd14

PrivateExit_Click()EndEnd第8章文件一、判斷題．2．3．4．5．6．7√8．．10．．×12．．14．15×二、選擇題．A2．．4B5．A6．C．8．．10．．D．．三、填空題．2．3．4．EOF．LineInput四、程序閱讀題程序1.y=11程序2.1程序程序4.

y=a=224y=a=337y=10NO.11程序1

窗體25161文件：116程序6.1窗體上顯示內(nèi)容20222文件中內(nèi)容46101233144555五、程序填空題）DimAs（）"C:\windows\calc.exe"（3）Output（）End）As#2（）0）OpenOutput（2）=0（）Ifflag六、程序設計題程序．界面設計如圖10-10所，過程設計如下：DimfnPrivateDir1.PathDrive1.DriveEndPrivate=Dir1.PathEndPrivateFile1_Click()If="\"Thenfn+File1.FileNamefn+"\"+EndIfEndPrivateCommand1_Click()

（3As"c:\a1.dat"（）Printcoun15

DimyesnoAs=MsgBox("確認要刪除嗎？",vbYesNo,刪除文件")Ifyesno=vbYesKillfnEnd程序．建立4個本框控件依次輸入姓名、出生年月、外語、計算機成績，確”按追加該記錄到磁盤文件d:\student.dat過程設計如下：PrivateCommand1_Click()DimbAsDate,AsByte,AsOpenForAs#1Text2.Text:m=Text3.Text:e=Text4.Text#1,Text1.Text"":"":"":=""CloseEnd程序．界面設計如圖10-11所，過程設計如下：PrivateDimssOpenAs#1文不存在則先建立該文件CloseOpenForInput#1將文件中所有記錄在列表框中示W(wǎng)hileEOF(1)Input#1,List1.AddItemClose在中表項之前刪、修改按鈕不用Command2.Enabled==FalseEndPrivateList1_Click()選中表項后可刪除或修，不可追加。Command1.Enabled==TrueCommand3.Enabled=True:Text1.Text=List1.TextEndPrivateCommand1_Click()'追加記錄IfTrim(Text1.Text)<>""ThenList1.AddItemText1.Text""EndPrivateCommand2_Click()'修改記錄List1.AddItemList1.ListIndexCommand1.Enabled=True:Command2.EnabledCommand3.Enabled=Text1.Text=""修改后，不可刪除、修改EndPrivateCommand3_Click()'刪除記錄'刪除后，不“刪除、修”Command1.Enabled=True:Command2.Enabled16

Command3.Enabled=Text1.Text=""EndPrivateCommand4_Click()'保存文件，將列表框中所有表項輸?shù)轿募﨑imiOpenForOutputAsFori=ToList1.ListCount-Print#1,List1.List(i):NextiCloseEndPrivateCommand5_Click()'退出之前先保存文件End第9章數(shù)庫與數(shù)據(jù)訪問技術一、判斷題1.√√3.×4.√××8.√10.×11.12.13.√14.√15.√16.×17.×18.×19.20.21.√22.×二、選擇題1.A5.C7.C9.D12.D13.A14.B15.B16.C三、程序設計題程序1.（1數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關屬性設置如下Data1：Connect("Access")、學籍.、RecordSource("學生)"Text1DataSource("Data1")DataField("號")Text2DataSource("Data1")DataField("名")：DataSource("Data1")DataField("性")Text3DataSource("Data1")DataField("生日期Text4DataSource("Data1")DataField("學金"Text5DataSource("Data1")DataField("歷")：DataSource("Data1")、照")Adodc1：=Microsoft.Jet.OLEDB.4.0;DataSource=E:\GYH\VB\籍PersistSecurityInfo=、RecordSource("select*from成")DataGrid1（2主要事件過程代碼ExplicitPrivateCaption="學籍信息編輯瀏"Label1.Caption=學號:":Label2.Caption="姓名"Label3.Caption=出生年:":="獎金:"Label5.Caption=簡歷:":照片:"Check1.Caption"性選中表示男否為女)"Label7.Caption=成績信息查詢顯示":=FalseEnd17

PrivateData1_Reposition()Adodc1.RecordSource="select成課程號,程成績學課程成績"&"where學.號=成學號"&成績課程號課課程號and"&"成績學號='"&學")&"'"&"orderby成課程號"Label7.Caption=Trim(Data1.Recordset("姓"))&"成績信息查詢顯示"Adodc1.RefreshEnd程序2.（1數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關屬性設置如下：Adodc1：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0;_DataSource=E:\GYH\VB\籍PersistSecurityInfo=、RecordSource("select*from學)DataGrid1（2主要事件過程代碼ExplicitPrivateDimiCaption="學籍信息查詢?yōu)g":Label1.Caption=選擇查詢方式：Combo1.Text="全部都顯示Label2.Caption=全部表文件數(shù)據(jù)瀏覽表格":Label3.Visible=FalseText1.Visible==""Fori=To2Combo1.AddItem全都顯示學號查詢按姓名查",5*i+1,5)NextiEndPrivateCombo1_Click()SelectCombo1.ListIndexText1.Visible=Label3.VisibleAdodc1.RecordSource="select*from學生Label2.Caption="全表文件數(shù)據(jù)瀏覽格：Adodc1.RefreshLabel3.Caption="輸查詢條(號):"=True:Label3.Caption="輸查詢條(名):"=True:EndEndPrivateInteger,ShiftIf=ThenIfCombo1.ListIndex=1ThenAdodc1.Recordset.Find"號'"&Text1.Text&"'"18

IfAdodc1.Recordset.EOFThenAdodc1.RecordSource="select*from學"Label2.Caption="全表文件數(shù)據(jù)瀏覽格："MsgBox查無此人!Adodc1.RecordSource="select*from學"&"where_學號=&&"'"Label2.Caption="學"+Text1.Text+的據(jù)瀏覽表格："EndIfAdodc1.Recordset.Find"名'"&Text1.Text&"'"IfAdodc1.Recordset.EOFThenAdodc1.RecordSource="select*from學"Label2.Caption="全表文件數(shù)據(jù)瀏覽格："MsgBox查無此人!Adodc1.RecordSource="select*from學"&_"where姓='"&&"'"EndIfEndIfAdodc1.RefreshEndIfEnd程序3.（1數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關屬性設置如下：Adodc1(xs)：DataSource=E:\GYH\VB\籍PersistSecurity、學生")Adodc2(kc)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0;_DataSource=E:\GYH\VB\籍PersistSecurity、課程")：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0;_DataSource=E:\GYH\VB\籍PersistSecurityCommandType("1-adCmdText")（"select成.學號學生.名成績課程號課課程名成績成績from學生課程成績where成課程號=課程.程號_成績.學號=學生.號"DataGrid1DataList1、("姓"學"DataList2RowSource("kc")ListField("課名")BoundColumn("程號"（2主要事件過程代碼ExplicitDimpAs19

PrivateDimiFori=To4=秀良好中等及格差",2*i+1,2)"":Text1(i).BackColor=Text1(i).Locked=TrueNexticjcx.RecordSource="select成學號學生.名成課程號課課程名"_&"成績.績from學,課程成績"&_"where成.程號課課程號and成績學號=生學"Label2.Caption=成績信息列表"Label3.Caption=選擇學生姓:":="選擇課程名:"xs.Visible=kc.Visible=False:cjcx.Visible=Caption="學籍信息查詢"=0EndPrivateCallcjdctjEndPrivateCallcjdctjEndPrivatecjdctj()DimAsInteger,dcaseAsiByteIfcjcx.RecordSource="select成學號學生姓名成績課程號"_&"課程.程名,成績.績from學生,程成績"&"where成.號'"&DataList1.BoundText&"'"_&成績課程號課程課號and"_&"成績.號學生.學號)order成績課號"="單位：門"Label2.Caption=Trim(DataList1.Text)&成信息列表"cjcx.RecordSource="select成學號學生姓名成績課程號"_&"課程.程名,成績.績from學生,程成績"&"where成.課程='"&&"'"&成績課程號課程課號and"_&"成績.號學生.學號)order成績學"="單位：人"Label2.Caption=Trim(DataList2.Text)&成信息列表"EndIfcjcx.RefreshIfcjcx.Recordset.EOFThenWhilecjcx.Recordset.EOFIfcjcx.Recordset("成績"<6020

=0Els=成")10)EndIfSelect4,5:cjdcjs(0)=+1cjdcjs(1)=cjdcjs(1)+1cjdcjs(2)=cjdcjs(2)+1cjdcjs(3)=cjdcjs(3)+1cjdcjs(4)=cjdcjs(4)+1EndFori=ToText1(i).Text=cjdcjs(i):iEnd程序4.（1數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關屬性設置如下：Adodc1：=Microsoft.Jet.OLEDB.4.0;DataSource=E:\GYH\VB\籍PersistSecurityInfo=、學生")LockType("4-adBatchOptimistic)Adodc2：=Microsoft.Jet.OLEDB.4.0;DataSource=E:\GYH\VB\籍PersistSecurity、課程")Adodc3：=Microsoft.Jet.OLEDB.4.0;DataSource=E:\GYH\VB\籍PersistSecurityInfo=、成績")：于顯示編"學"，但是本字段不設置數(shù)據(jù)綁定屬性入修后的"學號"數(shù)據(jù)通過代碼方式寫入數(shù)據(jù)源中。Text2、DataField("姓名：DataField("性")Text3、DataField("出生日期)Text4、DataField("獎學金"：于顯示編"課"，但是本字段不設置數(shù)據(jù)綁定屬性，輸入修改后課號數(shù)據(jù)通過代碼方式寫入數(shù)據(jù)源中。Text6、DataField("課程名"Text7、DataField("學時數(shù)"Text8、DataField("學分數(shù)"Text9、DataField("開課學期)：DataSource("Adodc2")、DataField("考考查標志")：用于顯示編輯成績表中"學號"，但是本字段不設置數(shù)據(jù)綁定屬性，輸入或修改后的"學號"數(shù)據(jù)通過代碼式寫入數(shù)據(jù)源中。21

：用于顯示編輯成績表中"課程號"，但是本字段不設置數(shù)據(jù)綁定屬性，輸入或修后的"課程號"據(jù)通過代碼方式寫入數(shù)據(jù)源中。：DataSource("Adodc3")、DataField("成")（2主要事件過程代碼ExplicitDimvltAsBoolean,rnariantPrivateDimiFori=To7=追更新刪除表首前翻后翻表尾返",*i+NextiCommand1(3).EnabledFalse:Command1(4).Enabled=Label1.Caption="號":Label2.Caption="姓名：Label3.Caption="生年月"="獎學金："Check1.Caption"性別（選中為男，否則為女"Label5.Caption="程號"="課程名："Label7.Caption="時數(shù)"="學分數(shù)："Label9.Caption="課學期":Label10.Caption=考試考查標志："Label11.Caption="學號：":Label12.Caption="課號："Label13.Caption="成"Label14.Caption="追加、刪除或修改操作完成之后必須更新按鈕"Caption="籍信息瀏覽編"學號"):Text5.Text=Adodc2.Recordset("程號"Text11.Text=Adodc3.Recordset("學"):課程")vlt=TrueEndPrivateAsDimAsString,kchAsString,answerAsOnErrorSelectIndexSelect學號")課程號"="0000"學號")Adodc3.Recordset("課程號")="0000"EndSelectAdodc1.Recordset.UpdateBatchAdodc2.Recordset.UpdateBatch22

Adodc3.Recordset.UpdateBatchEndanswer=MsgBox("真的確定要刪除當記錄嗎",+"刪除確")If=1ThenSelectxh=Adodc1.Recordset("學"Adodc3.Recordset.MoveFirstAdodc3.Recordset.Find"號'"&xh&"'"IfAdodc3.Recordset.MoveNextExitDoEndIfLoopAdodc1.Recordset.DeletekchAdodc2.Recordset("課號"):Adodc3.Recordset.Find"程號='"&&"'"IfAdodc3.Recordset.MoveNextExitDoEndIfLoopAdodc2.Recordset.DeleteAdodc3.Recordset.MoveNextEndEndIfSelectAdodc1.Recordset.MoveFirstAdodc2.Recordset.MoveFirstAdodc3.Recordset.MoveFirstEndCommand1(3).EnabledFalse:Command1(4).Enabled=Command1(5).EnabledTrue:Command1(6).EnabledSelect23

IfAnd>1Adodc1.Recordset.MovePreviousCommand1(3).EnabledFalse:Command1(4).Enabled=EndIfIfAnd>1Adodc2.Recordset.MovePreviousCommand1(3).EnabledFalse:Command1(4).Enabled=EndIfIfAnd>1Adodc3.Recordset.MovePreviousCommand1(3).EnabledFalse:Command1(4).Enabled=EndIfEndCommand1(5).EnabledTrue:Command1(6).EnabledSelectIfAnd_Adodc1.Recordset.Bookmark<Command1(5).EnabledFalse:Command1(6).Enabled=EndIfIfAnd_Adodc2.Recordset.Bookmark<Command1(5).EnabledFalse:Command1(6).Enabled=EndIfIfAnd_Adodc3.Recordset.Bookmark<Command1(5).EnabledFalse:Command1(6).Enabled=EndIfEnd24

Command1(3).EnabledTrue:Command1(4).EnabledSelectEndCommand1(6).EnabledFalse:Command