VisualBasic程序設(shè)計(jì)基礎(chǔ)課后習(xí)題參考答案

1、第1章VisualBasic6.0程序設(shè)計(jì)概述10、ACtiVate、Deactivate1.V2.V3.X說明：同類控件（如兩個標(biāo)簽）相互重疊，設(shè)計(jì)時可以設(shè)置“置前”、“置后”屬性4.V5.X6.V13.X14,15.X二、選擇題1.C2.B3.D4.C7.X8.V9.V10.X11.V12.V16.V17.V18.V19.V20.V5.B6.A7.D8.A9.B10A11.C12.D3 .控件、屏幕（Screen ）6 .屬性、< 對象名 >.< 屬性名 >=< 表達(dá)式>（自動執(zhí)行的先后順序也按此排列）三填空題1.對象、事件4.對象7.網(wǎng)格9.Load或

2、Initialize2.屬性、方法、事件5.Left、Top8.Form1或Resize或Activate四、程序設(shè)計(jì)題程序1?界面設(shè)計(jì)參看圖10-1、10-2以及表10-1表10-1實(shí)例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標(biāo)簽控件1Name(Label1)Caption（"我的第一個VB程序”）標(biāo)簽控件2Name(Label2)Caption（"請輸入你的姓名”）FontUnderLine(True)FontItalic(True)命令按鈕1Name(Command1)Caption("確定(&O)")命令按鈕2Name(Co

3、mmand2)Caption("結(jié)束(&X)")過程設(shè)計(jì)如下:PrivatesubForm_Click()Command2.Enabled=FalseEenSubPrivateSubCommand1_Click()Label2.Visible=FalseLabel1.Caption = Text1.Text + "歡迎使用"+ Label1.CaptionText1.Visible=FalseCommand1.Enabled=False:Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()En

4、dEndSub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：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:Pri

5、nt"歡迎使用VB"EndSubPrivateSubCommand4_Click()'字體不加粗Form1.FontBold=FalseForm1.Cls:Print"歡迎使用VB"EndSub運(yùn)行時，不得連續(xù)、過多次單擊“字體變小”按鈕，因?yàn)楫?dāng)FontSize屬性值小于0會產(chǎn)生適時錯誤。程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下(窗體Height值的計(jì)量包括標(biāo)題、邊框，而ScaleHeight值僅與窗體有效繪圖區(qū)域的高度有關(guān))：PrivateSubForm_Load()Text1.Text="VisualBasic程序設(shè)計(jì)"EndSub

6、PrivateSubForm_Resize()Text1.Top=0:Text1.Left=0Text1.Width=Form1.ScaleWidth/2'用Form1.ScaleWidth效果優(yōu)于用Form1.WidthText1.Height=Form1.ScaleHeight/2'用Form1.ScaleHeight優(yōu)于用Form1.HeightCommand1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub第2章程序設(shè)計(jì)基礎(chǔ)、判斷題1V2X二

7、、選擇題1B2D三、填空題1String243"aaa9(xMod10)*10+x105V6X7V8V9V10X5C6B7A8D9.C414556637188False1010+Int(Rnd*90)11a*bModc10A12. Log(x)+Sin(3.141593/6)13. ConstPI=3.141592614.日期15.Int(x)+1四、程序設(shè)計(jì)題程序1.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：方法一、用文本框控件輸入圓的半徑PrivateSubCommand1_Click()DimxAsSinglex=Text1.TextLabel1.Caption=x*x*3.141593End

8、Sub方法二、用InputBox函數(shù)輸入圓的半徑PrivateSubCommand1_Click()DimxAsSingle若要求計(jì)算結(jié)果具有15位有效位數(shù)，聲明x為Double類型x=InputBox("r=","輸入圓的半徑")Label1.Caption=x*x*3.141593EndSub程序2.略。第3章結(jié)構(gòu)化程序設(shè)計(jì)與數(shù)組、判斷題1.V2.X10 . V3.V4.X5.V6.X7.X8.V9.X二、選擇題a(i)=a(j)(4) a(i) Mod 2 = 1三、填空題3. 程序2.202.IS4. Dim5.String四、程序閱讀題（寫出下

9、列程序的運(yùn)行結(jié)果）程序程序程序3.24711164.491625WWWWWWW聊程序5.-程序6.:wwwwwwwww45WWWWWWWWWWw五、程序填空題1. (1)q*i(2)s+p*i/q(3)Nexti2. (1)r=0(2)mModn3. (1)i+j-1(2)7-i(3)Print4. (1)10+Int(Rnd*90)(2)i+1To30(3)Ifx>yThent=y:y=x:x=tFori=0to9:B(i)=InputBox("B("&i&")="):Nexti六、程序設(shè)計(jì)題程序1?界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Pr

10、ivateSubForm_Click()DimxAsInteger,yAsInteger,zAsInteger)2DimmaxAsInteger,middAsInteger,min)AsIntegerx=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;mi

11、nEndSub程序2?界面設(shè)計(jì)略，過程設(shè)計(jì)如下:PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox("請輸入x的值：")Ifx>3Theny=x+3ElseIfx>=1Theny=x*xElseIfx>0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1To9PrintTab(j-1)*4);i*j;NextjPrintNex

12、tiEndSub程序4界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Click()DimxAsSingle,sAsSingle,tAsSingleDimiAsInteger,nAsIntegerx=InputBox("請輸入x的值：")n=InputBox("請輸入n的值：")t=x/2:s=tFori=3Tont=t*x/is=s+tNextiPrintsEndSub程序5界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Click()DimeAsSingle,tAsSingle,iAsIntegere=2:t=1:i=1Whilet&

13、gt;=0.0001i=i+1:t=t/i:e=e+tWendPrinteEndSub程序6.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：OptionBase1PrivateSubForm_Click()K的語句執(zhí)行DimnAsInteger,a(9,9)AsInteger,iAsInteger,jAsIntegerOnErrorGoTok'下列代碼中若出現(xiàn)錯誤，轉(zhuǎn)到標(biāo)號為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

14、,j)Nextj,iFori=1TonPrintTab(30-2*i);Forj=1ToiPrintSpace(4-Len(Trim(Str(a(i,j);Trim(Str(a(i,j);NextjPrintNextiExitSub一、判斷題1X2V3X4X5.V6.X7.Xk:MsgBox"輸入n值小于1或大于10,數(shù)組下標(biāo)超界。"EndSub第4章函數(shù)與過程二、填空題1按地址傳送2b()AsLong364按值傳遞5按地址傳遞6PublicxAsSingle7StaticxAsInteger8Form2.y三、程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）程序 3. 1 1 2程序

15、1.s=2程序2.111121133114641四、程序填空題4)Call pp(i)3)f = s1 .(1ByeVal(2)kModik=ki2 .(1a()AaDouble(2)n-1(3)a(j)<a(k)3 .(1a()AsDouble,nAsInteger(2)t=t*x五、程序設(shè)計(jì)題程序1.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateFunctionfsum(x()AsDouble,nAsInteger)AsDoubleDimiAsIntegerFori=1Tonfsum=fsum+x(i)Nextifsum=fsum/nEndFunction程序2.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：

16、PrivateSubff(a()AsSingle,nAsInteger)DimiAsInteger,xAsSingleFori=1Ton2x=a(n-i+1):a(n-i+1)=a(i):a(i)=xNextiEndSub程序3.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubfind(x()AsSingle,mAsbyte,nAsByte,_xmaxAsSingle,kiAsByte,kjAsBytexmax=x(1,1):ki=1:kj=1Fori=1TomForj=1TonIfAbs(x(i,j)>Abs(xmax)Thenxmax=x(i,j):ki=i:kj=jNextj,iEn

17、dSub第5章常用控件、判斷題1.x2.x3. X4.V5 . X6. V10.V 11.x12 .X13. V14.V15. x19.V 20.x21 .V22. X23.V24. x二、選擇題1. C2. D3. B4. B5. B6. C11. D 12. C13 . B14 . B15 . A16 .D 17三、填空題1 .上、下、左、左2提、無關(guān)3. &、<Alt>+<Y>7.76. Text1.SetFocus*MultiLine8.Visible16. x8. B18. BEnabled8.9.179. B20. A5. MaxLengthAlig

18、nment10. AutoSize11. ForeColor1213 . True14AddItem16.1 17 .List1.Clear8.文本框、列表框19 .下拉式組合框、簡單組合框、下拉式列表框20.ScrollValue22. Change23. 定時器不起作用24.Timer65535四、程序閱讀題程序2. 8程序1.116程序3.23451程序4.小，你好!程序5.您好34512小李，你好!歡迎使用VisualBasic!程序6.李子程序7.y=6程序8.n=1蘋果y=14n=3橘子n=5葡萄柚子香蕉五、程序填空題4)Command2.Enabled = True3)Comma

19、nd2.Enabled = False3)Print i(5) KeyAscii = 131 .(1)a(i)=Mid(str1,i,1)或a(i)=Mid(Text1.Text,i,1)(2)p=j(3)a(i)=a(p)2 .(1)1To2*i(2)Command2.Enabled=True3 .(1)Text2.Enabled=False(2)p=2(4)Val(Text1.Text)<2或Val(Text1.Text)<=14 .(1)List1.ListCount(2)Listl.RemoveltemI(3)i5 .(1)Timerl.Enabled=True(2)x36

20、00(3)(xMod3600)60或(x-3600*h)60(4)x=x+16. (1)Label1.Left(2)Label1.Left=-Label1.Width六、程序設(shè)計(jì)題程序1.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubCommand1_Click()IfCommand1.Caption="顯示"ThenPrint"歡迎使用VisualBasic!":Command1.Caption="清除"ElseForm1.Cls:Command1.Caption="顯示"EndIfEndSubPrivateSu

21、bCommand2_Click()EndEndSubPrivateSubForm_Load()退出"Form1.Cls:Command1.Caption="顯示":Command2.Caption="EndSub程序2.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Load()Text1.MaxLength=1:Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)Label1.Caption=CStr(KeyAscii)EndSub程序3.界面設(shè)計(jì)略，過

22、程設(shè)計(jì)如下：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)IfKe

23、yAscii=13ThenIfText1.Text=pwdThenm=MsgBox("口令正確，歡迎進(jìn)入！"):Command1.Enabled=TrueElsem=MsgBox("口令錯誤,請重新輸入！"):Text1.Text=""EndIfEndIfEndSub程序4界面設(shè)計(jì)略，過程設(shè)計(jì)如下：DimnumAsInteger,mAsInteger,recAsIntegerPrivateSubForm_Load()Command1.Caption="出題":Command1.Enabled=TrueText1.T

24、ext="":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:

25、Text1.SelStart=0Text1.SelLength=Len(Text1.Text):Text1.SetFocusIfrec>10ThenLabel1.Caption="差！重新開始":CallForm_LoadElseIfm>numThen大了！"Label1.Caption=Str(m)&"ElseIfm<numThenLabel1.Caption=Str(m)&"Else小了！ "好！猜對了。 "還行！猜對了。 "End IfEnd IfEnd IfEnd SubI

26、frec<5ThenLabel1.Caption="ElseLabel1.Caption="EndIfCallForm_Load程序5界面設(shè)計(jì)如圖10-3所示，過程設(shè)計(jì)如下：PrivateSubForm_Load()Command1(0).Enabled=False:Command1(1).Enabled=FalseCommand1(2).Enabled=False:Label1.Caption=""EndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Clipboard

27、.Clear:Clipboard.SetTextText1.SelTextText1.SelText="":Label1.Caption="請選擇要粘貼的位置！Command1(0).Enabled=False:Command1(1).Enabled=FalseCommand1(2).Enabled=TrueCase1= FalseClipboard.Clear:Clipboard.SetTextText1.SelTextLabel1.Caption="請選擇要粘貼的位置！":Command1(0).EnabledCommand1(1).Ena

28、bled=False:Command1(2).Enabled=TrueCaseElseText1.SelText=Clipboard.GetText():Form_LoadLabel1.Caption="粘貼完成！"EndSelectEndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimnAsIntegern=Text1.SelLengthIfn>0ThenLabel1.Caption="選擇了"&n&"個字

29、,請選擇下一步操作！"Command1(0).Enabled=True:Command1(1).Enabled=TrueElseLabel1.Caption=""EndIfEndSub程序6界面設(shè)計(jì)如圖10-4所示，過程設(shè)計(jì)如下：PrivateSubForm_Load()Label1.Caption="當(dāng)前日期：":Text1.Text=DateOption1(0).Caption="顯示日期":Option1(1).Caption="顯示時間"Option1(0).Value=True:Command1

30、.Caption="退出"EndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0Label1.Caption="當(dāng)前日期：":Text1.Text=DateCase1Label1.Caption="當(dāng)前時間：":Text1.Text=TimeEndSelectEndSubPrivateSubCommand1_Click()EndEndSub程序7過程設(shè)計(jì)如下：PrivateSubForm_Load()Label1.Caption="當(dāng)前日期：&quo

31、t;:Text1.Text=DateOption1(0).Caption="顯示日期"顯示時間 "退出 "月-日- 年"年-月 - 日 "Option1(1).Caption="Option1(0).Value=True:Command1.Caption="Combo1.AddItem"年-月-日":Combo1.AddItem"Combo1.AddItem"日-月-年":Combo1.Text="EndSubPrivateSubCombo1_Click(

32、)DimnAsStringSelectCaseCombo1.ListIndexCase0:n="yyyy-mm-dd"Case 1: n="mm-dd-yyyy"Case 2: n="dd-mm-yyyy"EndSelectText1.Text=Format(Date,n)EndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0:Label1.Caption="當(dāng)前日期：":Text1.Text=DateCase1:Label1.Captio

33、n="當(dāng)前時間：":Text1.Text=TimeEndSelectPrivateSubCommand1_Click()EndEndSub程序8.界面設(shè)計(jì)如圖10-5所示，過程設(shè)計(jì)如下：PrivateSubForm_Load()List1.AddItem"happy":List1.AddItem"apple"List1.AddItem"student":List1.AddItem"computer"EndSubPrivateSubCommand1_Click()List1.AddItemText

34、1.Text:Text1.SetFocusText1.SelStart=0:Text1.SelLength=Len(Text1.Text)EndSubPrivateSubCommand3_Click()List1.ClearEndSubPrivateSubCommand4_Click()EndEndSubPrivateSubCommand2_Click()IfList1.ListIndex<>-1ThenList1.RemoveItemList1.ListIndexEndSub9界面設(shè)計(jì)如圖10-6所示，過程設(shè)計(jì)如下：PrivateSubForm_Load()六進(jìn)制"Op

35、tion1(0).Caption="八進(jìn)制":Option1(1).Caption="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=k

36、1nLoopIfk<0Thentran="-"+tranEndFunctionPrivateSubOption1_Click(IndexAsInteger)DimkAsLong,nAsIntegerk=Val(Text1.Text)SelectCaseIndexCase0Label2.Caption="八進(jìn)制":n=8Case 1Label2.Caption="十六進(jìn)制":n=16Case 2Label2.Caption="二進(jìn)制":n=2EndSelectText2.Text=tran(k,n)EndSub

37、10界面設(shè)計(jì)如圖10-7所示，過程設(shè)計(jì)如下：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.ValueEndSubPrivateSubHScrol

38、l1_Scroll()CallHScroll1_ChangeEndSubPrivateSubTimer1_Timer()Label1.FontSize=Label1.FontSize+2Label1.Left=Width/2-Label1.Width/2IfLabel1.FontSize>=72ThenTimer1.Enabled=False第6章圖形控件和圖形方法一、判斷題1.V2.X3.V4.X5.V6.X7.X8.x9.V10."、選擇題I .C2.B3.C4.A5.A6.C7.A8.C9.C10.II .A12.B13.B14.C15.C三、填空題False、1.Cir

39、cle(ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2),8002.LoadPicture3.AutoSize、Stretch、False4.選中、屬性5.形狀、矩形6.Picture1.Picture=LodePicture("C:WindowsCloud.bmp")7.圖片框、其他控件8.堤、SclaeMode9.顏色10.顏色、圓弧起點(diǎn)處轉(zhuǎn)角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序1.轉(zhuǎn)動一條紅色直線，其軌跡形成一個圓程序2.在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個空心的圓。程序3.在圖片框內(nèi)繪

40、制多個黃色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換五、程序填空題(3 ) Combo2.AddItem Str(i)(3)n = n + 1(4) LoadPicture(fn)1 .(1)Combo1.ListIndex(2)Shape1.BorderStyle2 .(1)Callpic(2)False(4) LoadPicture("c:windows1.bmp")六、程序設(shè)計(jì)題程序1.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Load()Picture1.ScaleMode=3EndSubPrivateSubCommand1_Click()Dim

41、x1AsSingle,y1AsSingle,x2AsSingle,y2AsSinglex1=InputBox("x1="):y1=InputBox("y1=")x2=InputBox("x2="):y2=InputBox("y2=")Picture1.Line(x1,y1)-(x2,y2),BEndSub程序2.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_click()DimrAsSingle,xoAsSingle,yoAsSingleIfForm1.ScaleHeight<Form1.Scale

42、WidthThenr=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è)計(jì)略，過程設(shè)計(jì)如下：PrivateSubForm_Load()DimiAsIntegerFori=1

43、To7: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è)計(jì)、判斷題1.V2.V3.V4.X5.X6.X7.V8V9V10V二、選擇題1.D2.A3C4C5B6D7A8B9D10B三、填空題1,窗體控制菜單、下拉式菜單、快捷菜單2Sho

44、wFont3.打開文件、另存為、顏色、字體、打印對話框4工程、部件5 .CommonDialogl.Action=3、CommonDialogl.ShowColor6 .提示信息、對話框類型、對話框標(biāo)題7Click8.工具9代碼窗口、Click10相同、正四、程序閱讀題程序1.顯示提示信息為“5”、標(biāo)題為“na的輸出結(jié)果”、有一個“確定”按鈕的消息框消息框程序2.顯示提示信息為“您選擇了第1項(xiàng)”、標(biāo)題為“第一項(xiàng)”、有一個“確定”按鈕的五、程序填空題1 .(1)Int(Rnd*100)(2)Str(i)(3)ExitFor（4）m12 .(1)False(2)Date(3)CommonDialo

45、g1.Color六、程序設(shè)計(jì)題程序1.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubCommand1_Click()CommonDialog1.ShowOpenList1.AddItemCommonDialog1.FileNameEndSub程序2.界面設(shè)計(jì)略，過程設(shè)計(jì)如下：PrivateSubCommand1_Click()CommonDialog1.ShowSaveList1.AddItemCommonDialog1.FileNameEndSub程序3.界面設(shè)計(jì)如圖10-9、表10-2所示，過程設(shè)計(jì)如下:PrivateSubSqr_Click()Shape1.Shape=1PrivateS

46、ubRec_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=3EndSubPrivat

47、eSubXiex_Click()Shape1.FillStyle=4EndSubPrivateSubShPJ_Click()Shape1.FillStyle=6EndSubPrivateSubXJ_Click()Shape1.FillStyle=7EndSubPrivateSubFillColor_Click()CommonDialog1.ShowColorShape1.FillColor=CommonDialog1.ColorEndSubPrivateSubExit_Click()EndEndSub4.V第8章文件1.X2.3.5.V9.V10.11.12.X13.V14.判斷題6.7.V1

48、.A2.3.4.B5.A9.C10.11.D12.B13.填空題三、6.7.8.BChDir2.FileLen3.ChangeEOF5.LineInput四、程序閱讀題程序1.y=1a=1程序2.NO.1程序3.y=3a=2NO.2窗體:362516y=6二、選擇題a=3NO.3文件:1625364.五、1.2.3.六、y=10a=4NO.411程序5.1程序6.窗體上顯示內(nèi)容:文件中內(nèi)容：4程序填空題(1)DimnAsInteger(1)ForOutputAs#22081012(1)Open"e:dataout.txt"t1Modt2=0程序設(shè)計(jì)題(2)"C:w

49、indowscalc.exe"(3)OutputEndForOutputAs#1(3)IfflagThen程序1.界面設(shè)計(jì)如圖10-10所示，過程設(shè)計(jì)如下:DimfnAsStringPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.Path(3)"temp.dat"As"c:a1.dat"(4)PrintcounEndSubPrivateSubFile1_Click()IfRight(File1.Path,1)=

50、""Thenfn=File1.Path+File1.FileNameElsefn=File1.Path+""+File1.FileNameEndIfEndSubPrivateSubCommand1_Click()DimyesnoAsByteyesno=MsgBox("確認(rèn)要刪除嗎？",vbYesNo,"刪除文件")Ifyesno=vbYesThenKillfnFile1.RefreshEndSub程序2建立4個文本框控件依次輸入姓名、出生年月、外語、計(jì)算機(jī)成績，按“確認(rèn)”按鈕追加該記錄到磁盤文件d:student.

51、dat。過程設(shè)計(jì)如下：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è)計(jì)如圖10-11所示，過程設(shè)計(jì)如下：P

52、rivateSubForm_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'在選中表項(xiàng)之前“刪除”、“修改”按鈕不可用Command2.Enabled=False:Command3.Enabled=FalseEndSubPrivate

53、SubList1_Click()'選中表項(xiàng)后可“刪除”或“修改”，不可“追加”。Command1.Enabled=False:Command2.Enabled=TrueCommand3.Enabled=True:Text1.Text=List1.TextEndSubPrivateSubCommand1_Click()'追加記錄IfTrim(Text1.Text)<>""ThenList1.AddItemText1.TextText1.Text=""EndSubPrivateSubCommand2_Click()'修改記

54、錄List1.AddItemText1.Text,List1.ListIndexList1.RemoveItemList1.ListIndexCommand1.Enabled=True:Command2.Enabled=FalseCommand3.Enabled=False:Text1.Text=""'修改后，不可“刪除”、“修改”EndSubPrivateSubCommand3_Click()'刪除記錄List1.RemoveItemList1.ListIndex'刪除后，不可“刪除”、“修改”Command1.Enabled=True:Comma

55、nd2.Enabled=FalseCommand3.Enabled=False:Text1.Text=""EndSubPrivateSubCommand4_Click()'保存文件，將列表框中所有表項(xiàng)輸出到文件DimiAsIntegerOpen"d:student.dat"ForOutputAs#1Fori=0ToList1.ListCount-1:Print#1,List1.List(i):NextiClose#1EndSub退出之前先保存文件PrivateSubCommand5_Click()CallCommand4_Click:EndEnd

56、Sub第9章數(shù)據(jù)庫與數(shù)據(jù)訪問技術(shù)、判斷題1.V2.V3.x4.V5.x6.x7.V8.V9.x10.x11.V12.V13.V14.V15.V16.x17.x18.x19.V20.V21.V22.x二、選擇題1.A2.D3.C4.B5.C6.A7.C8.D9.D10.C11.A12.D13.A14.B15.B16.C三、程序設(shè)計(jì)題程序1.(i)數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下DatalTextlText2ChecklText3Text4Text5Connect("Access")、:DataSource("Data1"):DataSourc

57、e("Data1"):DataSource("Data1"):DataSource("Data1"):DataSource("Data1"):DataSource("Data1")OLE1 : DataSource("Data1")、DataField("、DataField("、DataField("、DataField("、DataField("、DataField("、DataField("學(xué)籍.mdb")學(xué)號")姓名")性別”)出生日期)獎學(xué)金")簡歷")照片")RecordSource("學(xué)生)Adodcl:ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0;_Data Source =