《VisualBasic程序設(shè)計基礎(chǔ)》陳慶章課后習(xí)題參考答案及解析

..PAGE1PAGE1《VisualBasic程序設(shè)計基礎(chǔ)》教材習(xí)題參考答案第1章VisualBasic6.0程序設(shè)計概述一、判斷題1．√2．√3．4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、選擇題1.C2.B3．D4．C5．B6．A7．D8．A9．B10．A11．C12．D三、填空題1．對象、事件2．屬性、方法、事件3．控件、屏幕〔Screen4．對象5．Left、Top6．屬性、<對象名>.<屬性名>=<表達(dá)式>7．網(wǎng)格8．F orm19．Load或Initialize或Resize或Activate〔自動執(zhí)行的先后順序也按此排列10．Activate、Deactivate四、程序設(shè)計題程序1．界面設(shè)計參看圖10-1、10-2以及表10-1。表10-1實例2各控件的主要屬性設(shè)置控件屬性〔屬性值屬性〔屬性值標(biāo)簽控件1Name<Label1>Caption<"我的第一個VB程序">標(biāo)簽控件2Name<Label2>Caption<"請輸入你的姓名">FontUnderLine<True>FontItalic<True>命令按鈕1Name<Command1>Caption<"確定<&O>">命令按鈕2Name<Command2>Caption<"結(jié)束<&X>">過程設(shè)計如下：PrivatesubForm_Click<>Command2.Enabled=FalseEenSubPrivateSubCommand1_Click<>Label2.Visible=FalseLabel1.Caption=Text1.Text+":歡迎使用"+Label1.CaptionText1.Visible=FalseCommand1.Enabled=False:Command2.Enabled=TrueEndSubPrivateSubCommand2_Click<>EndEndSub程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubCommand1_Click<>'字體變大Form1.FontSize=Form1.FontSize+3Form1.Cls:Print"歡迎使用VB"EndSubPrivateSubCommand2_Click<>'字體變小Form1.FontSize=Form1.FontSize-3Form1.Cls:Print"歡迎使用VB"EndSubPrivateSubCommand3_Click<>'字體加粗Form1.FontBold=TrueForm1.Cls:Print"歡迎使用VB"EndSubPrivateSubCommand4_Click<>'字體不加粗Form1.FontBold=FalseForm1.Cls:Print"歡迎使用VB"EndSub運(yùn)行時,不得連續(xù)、過多次單擊"字體變小"按鈕,因為當(dāng)FontSize屬性值小于0會產(chǎn)生適時錯誤。程序3．界面設(shè)計略,過程設(shè)計如下〔窗體Height值的計量包括標(biāo)題、邊框,而ScaleHeight值僅與窗體有效繪圖區(qū)域的高度有關(guān)：PrivateSubForm_Load<>Text1.Text="VisualBasic程序設(shè)計"EndSubPrivateSubForm_Resize<>Text1.Top=0:Text1.Left=0Command1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub第2章程序設(shè)計基礎(chǔ)一、判斷題1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×二、選擇題1．B2．D3．A4．C5．C6．B7．A8．D9.C10．A三、填空題1．String2．43．"aaa"4．1455．66．37．188．False9．<xMod10>*10+x\1010．10+Int<Rnd*90>11．a(chǎn)*bModc12．Log<x>+Sin<3.141593/6>13．ConstPI=3.141592614．日期15．Int<x>+1四、程序設(shè)計題程序1．界面設(shè)計略,過程設(shè)計如下：方法一、用文本框控件輸入圓的半徑PrivateSubCommand1_Click<>DimxAsSinglex=Text1.TextLabel1.Caption=x*x*3.141593EndSub方法二、用InputBox函數(shù)輸入圓的半徑PrivateSubCommand1_Click<>DimxAsSingle'若要求計算結(jié)果具有15位有效位數(shù),聲明x為Double類型x=InputBox<"r=","輸入圓的半徑">Label1.Caption=x*x*3.141593EndSub程序2．略。第3章結(jié)構(gòu)化程序設(shè)計與數(shù)組一、判斷題1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√二、選擇題1．A2．D3．C4．C5．D6．B三、填空題1．Ifx>yThent=y:y=x:x=t2．IS3．Fori=0to9:B<i>=InputBox<"B<"&i&">=">:Nexti4．Dim5．String6．8四、程序閱讀題〔寫出下列程序的運(yùn)行結(jié)果程序1.05程序2.20程序3.2471116程序4.1491625程序5.程序6.五、程序填空題1．〔1q*i 〔2s+p*i/q 〔3Nexti2．〔1r=0 〔2mModn3．〔1i+j-1 〔27-i 〔3Print4．〔110+Int<Rnd*90>〔2i+1To30〔3a<i>=a<j>〔4a<i>Mod2=1六、程序設(shè)計題程序1．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Click<>DimxAsInteger,yAsInteger,zAsIntegerDimmaxAsInteger,middAsInteger,minAsIntegerx=InputBox<"請輸入x的值：">y=InputBox<"請輸入y的值：">z=InputBox<"請輸入z的值：">Ifx>yThenmax=xElsemax=yIfz>maxThenmax=zIfx<yThenmin=xElsemin=yIfz<minThenmin=zmidd=x+y+z-max-minPrintmax;midd;minEndSub程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Click<>DimxAsSingle,yAsSinglex=InputBox<"請輸入x的值：">Ifx>3Theny=x+3ElseIfx>=1Theny=x*xElseIfx>0Theny=Sqr<x>Elsey=0EndIfPrintyEndSub程序3．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Click<>DimiAsInteger,jAsIntegerFori=1To9Forj=1To9PrintTab<<j-1>*4>;i*j;NextjPrintNextiEndSub程序4．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Click<>DimxAsSingle,sAsSingle,tAsSingleDimiAsInteger,nAsIntegerx=InputBox<"請輸入x的值：">n=InputBox<"請輸入n的值：">t=x/2:s=tFori=3Tont=t*x/is=s+tNextiPrintsEndSub程序5．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Click<>DimeAsSingle,tAsSingle,iAsIntegere=2:t=1:i=1Whilet>=0.0001i=i+1:t=t/i:e=e+tWendPrinteEndSub程序6．界面設(shè)計略,過程設(shè)計如下：OptionBase1PrivateSubForm_Click<>DimnAsInteger,a<9,9>AsInteger,iAsInteger,jAsIntegerOnErrorGoTok'下列代碼中若出現(xiàn)錯誤,轉(zhuǎn)到標(biāo)號為K的語句執(zhí)行。n=InputBox<"請輸入n,0<n<10">Fori=1Ton:a<i,1>=1:a<i,i>=1:NextiFori=3TonForj=2Toi-1a<i,j>=a<i-1,j-1>+a<i-1,j>Nextj,iFori=1TonPrintTab<30-2*i>;Forj=1ToiPrintSpace<4-Len<Trim<Str<a<i,j>>>>>;Trim<Str<a<i,j>>>;NextjPrintNextiExitSubk:MsgBox"輸入n值小于1或大于10,數(shù)組下標(biāo)超界。"EndSub第4章函數(shù)與過程一、判斷題1．×2．√3．×4．×5．√6．×7．×8．√二、填空題1．按地址傳送2．b<>AsLong3．64．按值傳遞5．按地址傳遞6．PublicxAsSingle7．StaticxAsInteger8．Form2.y三、程序閱讀題〔寫出下列程序的運(yùn)行結(jié)果程序1.s=2程序2.1程序3.112112122223s=511s=9121133114641四、程序填空題1．〔1ByeVal 〔2kModi 〔3k=k\i 〔4Callpp<i>2．〔1a<>AaDouble 〔2n-1 〔3a<j><a<k>3．〔1a<>AsDouble,nAsInteger 〔2t=t*x 〔3f=s五、程序設(shè)計題程序1．界面設(shè)計略,過程設(shè)計如下：PrivateFunctionfsum<x<>AsDouble,nAsInteger>AsDoubleDimiAsIntegerFori=1Tonfsum=fsum+x<i>Nextifsum=fsum/nEndFunction程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubff<a<>AsSingle,nAsInteger>DimiAsInteger,xAsSingleFori=1Ton\2x=a<n-i+1>:a<n-i+1>=a<i>:a<i>=xNextiEndSub程序3．界面設(shè)計略,過程設(shè)計如下：PrivateSubfind<x<>AsSingle,mAsbyte,nAsByte,_xmaxAsSingle,kiAsByte,kjAsBytexmax=x<1,1>:ki=1:kj=1Fori=1TomForj=1TonNextj,iEndSub第5章常用控件一、判斷題1．×2．×3．×4．√5．×6．√7．×8．√9．√10．√11．×12．×13．√14．√15．×16．×17．×18．√19．√20．×21．√22．×23．√24．×25．√二、選擇題1．C2．D3．B4．B5．B6．C7．B8．B9．B10．A11．D12．C13．B14．B15．A16．D17．B18．B19．B20．A三、填空題1．上、下、左、左2．緹、無關(guān)3．&、<Alt>+<Y>4．Enabled5．MaxLength6．Text1.SetFocus7．MultiLine8．Visible9．Alignment10．AutoSize11．ForeColor12．0或113．True14．115．AddItem16．117．List1.Clear18．文本框、列表框19．下拉式組合框、簡單組合框、下拉式列表框20．Scroll21．Value22．Change23．定時器不起作用24．Timer25．65535四、程序閱讀題程序1.116程序2.8程序3.23451程序4.小,你好！程序5.您好34512小李,你好！歡迎使用VisualBasic!程序6.李子程序7. y=6程序8. n=1蘋果 y=14 n=3橘子 n=5葡萄柚子香蕉五、程序填空題1．〔1a<i>=Mid<str1,i,1>或a<i>=Mid<Text1.Text,i,1>〔2p=j〔3a<i>=a<p>〔4Command2.Enabled=True1To2*i–1〔2Command2.Enabled=True〔3Command2.Enabled=False3．〔1Text2.Enabled=False〔2p=2〔3Printi〔4Val<Text1.Text><2或Val<Text1.Text><=1〔5KeyAscii=13〔1List1.ListCount〔2List1.RemoveItemI〔3i=i+1〔1Timer1.Enabled=True〔2x\3600〔3<xMod3600>\60或<x-3600*h>\60〔4x=x+16．〔1Label1.Left〔2Label1.Left=-Label1.Width六、程序設(shè)計題程序1.界面設(shè)計略,過程設(shè)計如下：PrivateSubCommand1_Click<>IfCommand1.Caption="顯示"ThenPrint"歡迎使用VisualBasic！":Command1.Caption="清除"ElseForm1.Cls:Command1.Caption="顯示"EndIfEndSubPrivateSubCommand2_Click<>EndEndSubPrivateSubForm_Load<>Form1.Cls:Command1.Caption="顯示":Command2.Caption="退出"EndSub程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Load<>Text1.MaxLength=1:Text1.Text=""EndSubPrivateSubText1_KeyPress<KeyAsciiAsInteger>Label1.Caption=CStr<KeyAscii>EndSub程序3．界面設(shè)計略,過程設(shè)計如下：ConstpwdAsString="123456"'預(yù)設(shè)密碼為123456PrivateSubCommand1_Click<>Cls:Print"歡迎進(jìn)入！"EndSubPrivateSubForm_Load<>Command1.Caption="進(jìn)入":Command1.Enabled=FalsewText1.Text="":Text1.PasswordChar="*"EndSubPrivateSubText1_KeyPress<KeyAsciiAsInteger>IfKeyAscii=13ThenIfText1.Text=pwdThenm=MsgBox<"口令正確,歡迎進(jìn)入！">:Command1.Enabled=TrueElsem=MsgBox<"口令錯誤,請重新輸入！">:Text1.Text=""EndIfEndIfEndSub程序4．界面設(shè)計略,過程設(shè)計如下：DimnumAsInteger,mAsInteger,recAsIntegerPrivateSubForm_Load<>Command1.Caption="出題":Command1.Enabled=TrueText1.Text="":Text1.Enabled=False:rec=0EndSubPrivateSubCommand1_Click<>Randomize:num=Int<Rnd*100>+1:Text1.Enabled=TrueLabel1.Caption="":Command1.Enabled=FalseEndSubPrivateSubCommand2_Click<>EndEndSubPrivateSubText1_KeyPress<KeyAsciiAsInteger>IfKeyAscii=13Thenm=Val<Text1.Text>:rec=rec+1:Text1.SelStart=0Text1.SelLength=Len<Text1.Text>:Text1.SetFocusIfrec>10ThenLabel1.Caption="差！重新開始":CallForm_LoadElseIfm>numThenLabel1.Caption=Str<m>&"大了！"ElseIfm<numThenLabel1.Caption=Str<m>&"小了！"ElseIfrec<5ThenLabel1.Caption="好！猜對了。"ElseLabel1.Caption="還行！猜對了。"EndIfCallForm_LoadEndIfEndIfEndIfEndSub程序5．界面設(shè)計如圖10-3所示,過程設(shè)計如下：PrivateSubForm_Load<>Command1<0>.Enabled=False:Command1<1>.Enabled=FalseCommand1<2>.Enabled=False:Label1.Caption=""EndSubPrivateSubCommand1_Click<IndexAsInteger>SelectCaseIndexCase0Clipboard.Clear:Clipboard.SetTextText1.SelTextText1.SelText="":Label1.Caption="請選擇要粘貼的位置！"Command1<0>.Enabled=False:Command1<1>.Enabled=FalseCommand1<2>.Enabled=TrueCase1Clipboard.Clear:Clipboard.SetTextText1.SelTextLabel1.Caption="請選擇要粘貼的位置！":Command1<0>.Enabled=FalseCommand1<1>.Enabled=False:Command1<2>.Enabled=TrueCaseElseText1.SelText=Clipboard.GetText<>:Form_LoadLabel1.Caption="粘貼完成！"EndSelectEndSubPrivateSubText1_MouseUp<ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle>DimnAsIntegern=Text1.SelLengthIfn>0ThenLabel1.Caption="選擇了"&n&"個字,請選擇下一步操作！"Command1<0>.Enabled=True:Command1<1>.Enabled=TrueElseLabel1.Caption=""EndIfEndSub程序6．界面設(shè)計如圖10-4所示,過程設(shè)計如下：PrivateSubForm_Load<>Label1.Caption="當(dāng)前日期：":Text1.Text=DateOption1<0>.Caption="顯示日期":Option1<1>.Caption="顯示時間"Option1<0>.Value=True:Command1.Caption="退出"EndSubPrivateSubOption1_Click<IndexAsInteger>SelectCaseIndexCase0Label1.Caption="當(dāng)前日期：":Text1.Text=DateCase1Label1.Caption="當(dāng)前時間：":Text1.Text=TimeEndSelectEndSubPrivateSubCommand1_Click<>EndEndSub程序7．過程設(shè)計如下：PrivateSubForm_Load<>Label1.Caption="當(dāng)前日期：":Text1.Text=DateOption1<0>.Caption="顯示日期":Option1<1>.Caption="顯示時間"Option1<0>.Value=True:Command1.Caption="退出"Combo1.AddItem"年-月-日":Combo1.AddItem"月-日-年"Combo1.AddItem"日-月-年":Combo1.Text="年-月-日"EndSubPrivateSubCombo1_Click<>DimnAsStringSelectCaseCombo1.ListIndexCase0:n="yyyy-mm-dd"Case1:n="mm-dd-yyyy"Case2:n="dd-mm-yyyy"EndSelectText1.Text=Format<Date,n>EndSubPrivateSubOption1_Click<IndexAsInteger>SelectCaseIndexCase0:Label1.Caption="當(dāng)前日期：":Text1.Text=DateCase1:Label1.Caption="當(dāng)前時間：":Text1.Text=TimeEndSelectEndSubPrivateSubCommand1_Click<>EndEndSub程序8.界面設(shè)計如圖10-5所示,過程設(shè)計如下：PrivateSubForm_Load<>List1.AddItem"happy":List1.AddItem"apple"List1.AddItem"student":List1.AddItem"computer"EndSubPrivateSubCommand1_Click<>List1.AddItemText1.Text:Text1.SetFocusText1.SelStart=0:Text1.SelLength=Len<Text1.Text>EndSubPrivateSubCommand3_Click<>List1.ClearEndSubPrivateSubCommand4_Click<>EndEndSubPrivateSubCommand2_Click<>IfList1.ListIndex<>-1ThenList1.RemoveItemList1.ListIndexEndSub9．界面設(shè)計如圖10-6所示,過程設(shè)計如下：PrivateSubForm_Load<>Option1<0>.Caption="八進(jìn)制":Option1<1>.Caption="十六進(jìn)制"Option1<2>.Caption="二進(jìn)制"EndSubPrivateFunctiontran<kAsLong,nAsInteger>AsStringDimxAsInteger,yAsString*1,k1AsLongtran="":k1=Abs<k>DoWhilek1>0x=k1ModnIfx>=10Theny=Chr<Asc<"A">+x-10>Elsey=CStr<x>tran=y+trank1=k1\nLoopIfk<0Thentran="-"+tranEndFunctionPrivateSubOption1_Click<IndexAsInteger>DimkAsLong,nAsIntegerk=Val<Text1.Text>SelectCaseIndexCase0Label2.Caption="八進(jìn)制":n=8Case1Label2.Caption="十六進(jìn)制":n=16Case2Label2.Caption="二進(jìn)制":n=2EndSelectText2.Text=tran<k,n>EndSub10．界面設(shè)計如圖10-7所示,過程設(shè)計如下：PrivateSubForm_Load<>Label1.Left=Width/2-Label1.Width/2Label1.AutoSize=TrueHScroll1.Min=1:HScroll1.Max=1000HScroll1.SmallChange=10:HScroll1.LargeChange=100HScroll1.Value=500:Timer1.Interval=500EndSubPrivateSubHScroll1_Change<>Timer1.Interval=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll<>CallHScroll1_ChangeEndSubPrivateSubTimer1_Timer<>Label1.FontSize=Label1.FontSize+2Label1.Left=Width/2-Label1.Width/2IfLabel1.FontSize>=72ThenTimer1.Enabled=FalseEndSub第6章圖形控件和圖形方法一、判斷題1．√2．×3．√4．×5．√6．×7．×8．×9．√10．√二、選擇題1．C2．B3．C4．A5．A6．C7．A8．C9．C10．B11．A12．B13．B14．C15．C三、填空題1．Circle<ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2>,8002．LoadPicture3．AutoSize、Stretch、False、False4．選中、屬性5．形狀、矩形6．Picture1.Picture=LodePicture<"C:\Windows\Cloud.bmp">7．圖片框、其他控件8．緹、SclaeMode9．顏色10．顏色、圓弧起點處轉(zhuǎn)角、圓弧終點處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序1.轉(zhuǎn)動一條紅色直線,其軌跡形成一個圓程序2.在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個空心的圓。程序3.在圖片框內(nèi)繪制多個黃色邊框矩形,填充樣式在"實心"、"透明"間交替變換。五、程序填空題1．〔1Combo1.ListIndex〔2Shape1.BorderStyle〔3Combo2.AddItemStr<i>2．〔1Callpic〔2False 〔3n=n+1〔4LoadPicture<"c:\windows\1.bmp"> 〔4LoadPicture<fn>六、程序設(shè)計題程序1．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Load<>Picture1.ScaleMode=3EndSubPrivateSubCommand1_Click<>Dimx1AsSingle,y1AsSingle,x2AsSingle,y2AsSinglex1=InputBox<"x1=">:y1=InputBox<"y1=">x2=InputBox<"x2=">:y2=InputBox<"y2=">Picture1.Line<x1,y1>-<x2,y2>,,BEndSub程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_click<>DimrAsSingle,xoAsSingle,yoAsSingleIfForm1.ScaleHeight<Form1.ScaleWidthThenr=Form1.ScaleHeight/3Elser=Form1.ScaleWidth/3EndIfxo=Form1.ScaleLeft+Form1.ScaleWidth/2yo=Form1.ScaleTop+Form1.ScaleHeight/2Form1.FillStyle=0:Form1.FillColor=vbBlueForm1.DrawWidth=2:Form1.ScaleMode=6Form1.Circle<xo,yo>,r,vbYellowEndSub程序3．界面設(shè)計略,過程設(shè)計如下：PrivateSubForm_Load<>DimiAsIntegerFori=1To7:List1.AddItemi:NextiForm1.ScaleMode=1EndSubPrivateSubList1_Click<>Form1.Cls:Form1.ScaleMode=List1.TextForm1.Circle<Form1.ScaleLeft+Form1.ScaleWidth/2,_Form1.ScaleTop+Form1.ScaleHeight/2>,50EndSub第7章對話框與菜單程序設(shè)計一、判斷題1．√2．√3．√4．×5．×6．×7．√8．√9．√10．√二、選擇題1．D2．A3．C4．C5．B6．D7．A8．B9．D10．B三、填空題1．窗體控制菜單、下拉式菜單、快捷菜單2．ShowFont3．打開文件、另存為、顏色、字體、打印對話框4．工程、部件5．CommonDialog1.Action=3、CommonDialog1.ShowColor6．提示信息、對話框類型、對話框標(biāo)題7．Click8．工具9．代碼窗口、Click10．相同、正四、程序閱讀題程序1.顯示提示信息為"5"、標(biāo)題為"na的輸出結(jié)果"、有一個"確定"按鈕的消息框。程序2.顯示提示信息為"您選擇了第1項"、標(biāo)題為"第一項"、有一個"確定"按鈕的消息框。五、程序填空題1．〔1Int<Rnd*100> 〔2Str<i> 〔3ExitFor2．〔1False 〔2Date 〔3CommonDialog1.Color〔4m1六、程序設(shè)計題程序1．界面設(shè)計略,過程設(shè)計如下：PrivateSubCommand1_Click<>CommonDialog1.ShowOpenList1.AddItemCommonDialog1.FileNameEndSub程序2．界面設(shè)計略,過程設(shè)計如下：PrivateSubCommand1_Click<>CommonDialog1.ShowSaveList1.AddItemCommonDialog1.FileNameEndSub程序3．界面設(shè)計如圖10-9、表10-2所示,過程設(shè)計如下：PrivateSubSqr_Click<>Shape1.Shape=1EndSubPrivateSubRec_Click<>Shape1.Shape=0EndSubPrivateSubOval_Click<>Shape1.Shape=2EndSubPrivateSubCircle_Click<>Shape1.Shape=3EndSubPrivateSubRrec_Click<>Shape1.Shape=4EndSubPrivateSubRSqr_Click<>Shape1.Shape=5EndSubPrivateSubShp_Click<>Shape1.FillStyle=2EndSubPrivateSubShzh_Click<>Shape1.FillStyle=3EndSubPrivateSubXiex_Click<>Shape1.FillStyle=4EndSubPrivateSubShPJ_Click<>Shape1.FillStyle=6EndSubPrivateSubXJ_Click<>Shape1.FillStyle=7EndSubPrivateSubFillColor_Click<>CommonDialog1.ShowColorShape1.FillColor=CommonDialog1.ColorEndSubPrivateSubExit_Click<>EndEndSub第8章文件一、判斷題1．×2．√3．×4．√5．√6．×7．√8．×9．√10．√11．×12．×13．√14．×15．×二、選擇題1．A2．C3．B4．B5．A6．C7．C8．B9．C10．B11．D12．B13．B三、填空題1．ChDir2．FileLen3．Change4．EOF5．LineInput四、程序閱讀題程序1. y=1a=1程序2.NO.13程序3.y=3a=2NO.24窗體：362516941y=6a=3NO.37文件：149162536y=10a=4NO.411程序4.程序5.1程序6.1窗體上顯示內(nèi)容：202212文件中內(nèi)容：4681012333123444455555五、程序填空題1．〔1DimnAsInteger〔2"C:\windows\calc.exe"〔3Output〔4End2．〔1ForOutputAs#2〔20 〔3"temp.dat"As"c:\a1.dat"3．〔1Open"e:\dataout.txt"ForOutputAs#1〔2t1Modt2=0〔3IfflagThen 〔4Printcoun六、程序設(shè)計題程序1．界面設(shè)計如圖10-10所示,過程設(shè)計如下：DimfnAsStringPrivateSubDrive1_Change<>Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change<>File1.Path=Dir1.PathEndSubPrivateSubFile1_Click<>IfRight<File1.Path,1>="\"Thenfn=File1.Path+File1.FileNameElsefn=File1.Path+"\"+File1.FileNameEndIfEndSubPrivateSubCommand1_Click<>DimyesnoAsByteyesno=MsgBox<"確認(rèn)要刪除嗎？",vbYesNo,"刪除文件">Ifyesno=vbYesThenKillfnFile1.RefreshEndSub程序2．建立4個文本框控件依次輸入姓名、出生年月、外語、計算機(jī)成績,按"確認(rèn)"按鈕追加該記錄到磁盤文件d:\student.dat。過程設(shè)計如下：PrivateSubCommand1_Click<>DimbAsDate,mAsByte,eAsByteOpen"d:\student.dat"ForAppendAs#1b=Text2.Text:m=Text3.Text:e=Text4.TextWrite#1,Text1.Text,b,m,eText1.Text="":Text2.Text="":Text3.Text="":Text4.Text=""Close#1EndSub程序3．界面設(shè)計如圖10-11所示,過程設(shè)計如下：PrivateSubForm_Load<>DimssAsStringOpen"e:\student.txt"ForAppendAs#1 '如文件不存在則先建立該文件Close#1Open"d:\student.dat"ForInputAs#1'將文件中所有記錄在列表框中顯示W(wǎng)hileNotEOF<1>LineInput#1,ss:List1.AddItemssWendClose#1'在選中表項之前"刪除"、"修改"按鈕不可用Command2.Enabled=False:Command3.Enabled=FalseEndSubPrivateSubList1_Click<>'選中表項后可"刪除"或"修改",不可"追加"。Command1.Enabled=False:Command2.Enabled=TrueCommand3.Enabled=True:Text1.Text=List1.TextEndSubPrivateSubCommand1_Click<>'追加記錄IfTrim<Text1.Text><>""ThenList1.AddItemText1.TextText1.Text=""EndSubPrivateSubCommand2_Click<>'修改記錄List1.AddItemText1.Text,List1.ListIndexList1.RemoveItemList1.ListIndexCommand1.Enabled=True:Command2.Enabled=FalseEndSubPrivateSubCommand3_Click<>'刪除記錄List1.RemoveItemList1.ListIndex'刪除后,不可"刪除"、"修改"Command1.Enabled=True:Command2.Enabled=FalseCommand3.Enabled=False:Text1.Text=""EndSubPrivateSubCommand4_Click<>'保存文件,將列表框中所有表項輸出到文件DimiAsIntegerOpen"d:\student.dat"ForOutputAs#1Fori=0ToList1.ListCount-1:Print#1,List1.List<i>:NextiClose#1EndSubPrivateSubCommand5_Click<>'退出之前先保存文件CallCommand4_Click:EndEndSub第9章數(shù)據(jù)庫與數(shù)據(jù)訪問技術(shù)一、判斷題1.√2.√3.×4.√5.×6.×7.√8.√9.×10.×11.√12.√13.√14.√15.√16.×17.×18.×19.√20.√21.√22.×二、選擇題1.A2.D3.C4.B5.C6.A7.C8.D9.D10.C11.A12.D13.A14.B15.B16.C三、程序設(shè)計題程序1.〔1數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下Text1：DataSource<"Data1">、DataField<"學(xué)號">Text2：DataSource<"Data1">、DataField<"姓名">Check1：DataSource<"Data1">、DataField<"性別">Text3：DataSource<"Data1">、DataField<"出生日期>Text4：DataSource<"Data1">、DataField<"獎學(xué)金">Text5：DataSource<"Data1">、DataField<"簡歷">OLE1：DataSource<"Data1">、DataField<"照片">Adodc1：ConnectionString<"Provider=Microsoft.Jet.OLEDB.4.0;_DataSource=E:\GYH\VB\學(xué)籍1b.mdb;PersistSecurityInfo=False">CommandType<"1-adCmdText">、RecordSource<"select*from成績">DataGrid1：DataSource<"Adodc1">〔2主要事件過程代碼OptionExplicitPrivateSubForm_Load<>/r