VB習(xí)題集答案

1、目錄第 1 章 Visual Basic 程序設(shè)計(jì)概述 2第 2 章 VB 可視化編程基礎(chǔ) 4第 3 章 VB 語(yǔ)言基礎(chǔ) 5第 4 章 VB 控制結(jié)構(gòu) 5第 6 章 過(guò)程 10第 7 章 用戶界面設(shè)計(jì) 11第 8 章 數(shù)據(jù)文件 13第 9 章 圖形操作 16第 10 章 數(shù)據(jù)庫(kù)與數(shù)據(jù)訪問(wèn)技術(shù) 18、判斷題1.V3.X屬性。第1章Visual Basic程序設(shè)計(jì)概述4.75.X14.76 . 77 .X78 . 717.79 . 718 . 710 . X19 . 711 .20 .7712 . 713.X15,.X16.二、選擇題1.C2. B3.D4. C5.B6 . A7.D8. A9.B

2、10. A11.C12 . D三、填空題1 .對(duì)象、事件2.屬性、方法、事件3.控件、屏幕（Screen）4.對(duì)象5.Left、Top6.屬性、.=7.網(wǎng)格8.Form19.Load或 Initialize或Resize 或 Activate（自動(dòng)執(zhí)行的先后順序也按此排列）2.7說(shuō)明：同類控件（如兩個(gè)標(biāo)簽）相互重疊，設(shè)計(jì)時(shí)可以設(shè)置“置前”、“置后”10. Activate、Deactivate四、程序設(shè)計(jì)題程序1 界面設(shè)計(jì)參看圖10-1、10-2以及表10-1表10-1 實(shí)例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標(biāo)簽控件1Name(Label1)Caption（“我的第一個(gè)VB

3、程序）Name(Label2)Captio n（請(qǐng)輸入你的姓名）標(biāo)簽控件2FontUn derLi ne(True)Fon tItalic(True)命令按鈕1Name(Comma nd1)Caption(確定(&O)命令按鈕2Name(Comma nd2)Caption(“ 結(jié)束(&X)過(guò)程設(shè)計(jì)如下:Private sub Form_Click()Comma nd2.E nabled = FalseEen SubPrivate Sub Comma nd1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + :歡迎使用+ Lab

4、el1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序 2界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Command1_Click()字體變大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print 歡迎使用 VBEnd SubPrivate Sub Command2_Click()字體變小Form1.FontSize = Form1.Font

5、Size - 3Form1.Cls: Print 歡迎使用 VBEnd SubPrivate Sub Command3_Click()字體加粗Form1.FontBold = TrueForm1.Cls: Print 歡迎使用 VBEnd SubPrivate Sub Command4_Click()字體不加粗Form1.FontBold = FalseForm1.Cls: Print 歡迎使用 VBEnd Sub運(yùn)行時(shí)，不得連續(xù)、過(guò)多次單擊“字體變小”按鈕，因?yàn)楫?dāng) FontSize 屬性值小于 0 會(huì)產(chǎn)生 適時(shí)錯(cuò)誤。程序 3界面設(shè)計(jì)略， 過(guò)程設(shè)計(jì)如下 (窗體 Height 值的計(jì)量包括標(biāo)題、

6、 邊框， 而 ScaleHeight 值僅與窗體有效繪圖區(qū)域的高度有關(guān))：Private Sub Form_Load()Text1.Text = Visual Basic 程序設(shè)計(jì) End SubPrivate Sub Form_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

7、.Top = Form1.ScaleHeight - Command1.HeightCommand1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第 2 章 VB 可視化編程基礎(chǔ)、判斷題1.x2 .x3.x4.V5x6V7x8V9V10.V11.x12.x1314V15x16x17x18V19.V20.x21.V22x23V24x 25V二、選擇題1.C2.D3.B4.B5.B6.C 7.B8.B9.B10.A11.D12.C13.B14.B15.A16.D 17.B18.B19.B20.A21.C22.C23.D24.B25.D26.B 27

8、.A28.A29.A30.A31.B32.C33.B34.A35.D36.A 37.D38.B39.C40.B三、填空題1 上、下、左、左2 緹、無(wú)關(guān)3 & 、 +4 Enabled5 MaxLength6 Text1.SetFocus7 MultiLine8Visible9 Alignment10 AutoSize11 ForeColor120或 113 True14115 AddItem16 117 List1.Clear18文本框、列表框19下拉式組合框、簡(jiǎn)單組合框、下拉式列表框20 Scroll21Value22Change23定時(shí)器不起作用24 Timer25 6553526設(shè)計(jì)界面

9、，設(shè)置屬性，編寫代碼27字母，分類28F429可視30 固定，浮動(dòng)31工程，工程屬性，通用32Form1.Caption= ”歡迎使用 VB ”33Caption34文件，打開，打開35.Frm36 Alt_V 后按 X37F438 Ctrl_R39 MSDN40錯(cuò)誤觀點(diǎn)41 F142查看代碼，查看對(duì)象，切換文件夾43對(duì)象，過(guò)程44設(shè)計(jì)模式，運(yùn)行模式，中斷模式45窗口控制菜單，最小化按鈕，大化按鈕，關(guān)閉按鈕 四、程序閱讀題程序 1. 116程序 2. 8程序 3. 23451 34512程序 4. 小，你好！ 小李，你好！程序 5. 您好 歡迎使用 Visual Basic!程序 6. 李子

10、蘋果 橘子 葡萄 柚子 香蕉 程序 7. y = 6 y = 14程序 8. n = 1， n=3， n=5X第 3 章 VB 語(yǔ)言基礎(chǔ)一、判斷題7 V8 V9V 101 V 2X3X4 X5V6 X二、選擇題1 B 2D3A4 C5C 6 B7 A8 D9. C 1三、填空題1 String243aaa414556637 188 False9 (x Mod 10) *10 + x 101010 + Int( Rnd* 90 )11 a *b Mod c12Log(x)+Sin(3.141593/6)13Const PI=3.141592614日期15Int(x)+116.False17. 對(duì)

11、話框18.BorderStyle19.窗 體20.屬性，方法21.ForeColor22.E，name24. 事件25. 按字母序26.Unload27. MinButton28.frm29. 25530.代碼31.Caption32.工具箱窗體33.活動(dòng)控件34.Enabled=True( 或活動(dòng)控件 )35.右下角過(guò)程設(shè)計(jì)如下：A四、程序設(shè)計(jì)題 程序 1界面設(shè)計(jì)略， 方法一、用文本框控件輸入圓的半徑Private Sub Command1_Click()Dim x As Singlex = Text1.TextLabel1.Caption = x * x * 3.1

12、41593End Sub方法二、用 InputBox 函數(shù)輸入圓的半徑Private Sub Command1_Click()Dim x As Single若要求計(jì)算結(jié)果具有15 位有效位數(shù)，聲明 x 為 Double 類型x = InputBox(r=, 輸入圓的半徑 )Label1.Caption = x * x * 3.141593End Sub程序 2略。第 4 章 VB 控制結(jié)構(gòu)一、判斷題1.V 2.X 3. V 4.X 5.V 6. X 7.X 8. V 9. X 10.二、選擇題1 A 2 D 3 C 4 C 5 D 6 B 7.D8.A9.D10.B11.D12.C13.C14

13、.A15.D16.C17.B18.C19.B20.A21.D22.A23.B24.C25.C26.A27.C28.B29.A30.A31.B32.D33.C34.C35.A36.D37.B38.C39.D40.B41.C42.B43.C44.C45.A46.B三、填空題1. If xy Then t=y: y=x: x=t2.IS3. For i = 0 to 9: B(i) = InputBox(B( & i & )=): Next i4. Dim5 . String6. 8四、程序閱讀題(寫岀下列程序的運(yùn)行結(jié)果)71116程序1 0 5程序2 20程序3 2 4Fora二旦兇程序 4149

14、1625WWW:nwuwwww程序5程序6五、程序填空題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 + In t(R nd* 90)(2)i + 1 To 30(3) a(i)=a(j)(4) a(i) Mod 2 = 1六、程序設(shè)計(jì)題程序1界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Click()Dim x As In teger, y As In teger, z As In tegerDim max As In teger

15、, midd As In teger, min As In tegerx = InputBox(請(qǐng)輸入 x 的值：)y = InputBox(請(qǐng)輸入 y 的值：)z = InputBox(請(qǐng)輸入 z 的值：)If x y The n max = x Else max = yIf z max The n max = zIf x y The n min = x Else min = yIf z 3 Theny = x + 3ElseIf x = 1 Theny = x * xElseIf x 0 Theny = Sqr(x)Elsey = 0End IfPrint yEnd Sub程序 3界面設(shè)計(jì)

16、略，過(guò)程設(shè)計(jì)如下：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 jPrintNext iEnd Sub程序 4界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Click()Dim x As Single, s As Single, t As SingleDim i As Integer, n As Integerx = InputBox( 請(qǐng)輸入 x 的值： ) n = InputBox( 請(qǐng)輸入

17、n 的值： ) t = x / 2: s = tFor i = 3 To nt = t * x / is = s + tNext iPrint sEnd Sub 程序 5界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Click()Dim e As Single, t As Single, i As Integere = 2: t = 1: i = 1While t = 0.0001i = i + 1: t = t / i: e = e + tWendPrint eEnd Sub 程序 6界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Option Base 1Private Sub Form_Clic

18、k()Dim n As Integer, a(9, 9) As Integer, i As Integer, j As IntegerOn Error GoTo k下列代碼中若出現(xiàn)錯(cuò)誤，轉(zhuǎn)到標(biāo)號(hào)為K 的語(yǔ)句執(zhí)行。n = InputBox( 請(qǐng)輸入 n ， 0n10)For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next iFor i = 3 To nFor j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next j, iFor i = 1 To nPrint Tab(30 - 2 * i);For

19、 j = 1 To iPrint Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j);Next jPrintNext iExit Subk: MsgBox 輸入 n 值小于 1 或大于 10，數(shù)組下標(biāo)超界。 End Sub第 5 章 數(shù)組和自定義類型一、 判 斷題：1. X 2. X 3. X 4. X 5. V 6. V 7. X 8. X 9. X 10. V二、 填 空題：1.A2.D3.D4.C5.C6.A7.D8.C9.C10.B11.C12.D13.A14.D15.A16.B17.D18.C19.C20.A21.A22.A23.D24.

20、D25.C26.B27.D28.C29.A30.B三、程序填空題：1Text1.ForeColor=vbRedText1.ForeColor=vbGreenText1.ForeColor=vbBlue2.0 3.MultiSelect4.列表框，文本框 5.滾動(dòng)條6.ListCount-17.3 8. 4 2 45 “類型不匹配 ” 9. Preserve10. 011.0 Option Base 112. 1 2 3 4 end 13end14. 2815. UBond(a) a(i)=a(j);a(j)=t四、程序設(shè)計(jì)題： 程序 1.參考代碼 :程序 2. 參考代碼 程序 3. 參考代碼

21、程序 4. 參考代碼程序 5. 參考代碼 程序 6. 參考代碼程序 7. 參考代碼 程序 8. 參考代碼程序 9. 參考代碼程序 10. 參考代碼 程序 11. 參考代碼第6章過(guò)程1 413 612 3 4nl 11- -1 11一、判斷題1.x2.V3.x4.x5 . V6 . X7 .X8 . V二、選擇題：1. C2.A3.D4.D5.B6.C7.C8.C9.D10.D11.C12.B13.D14.D15.D16.C17.C18.B19.D20.C三、填空題1按地址傳送2 .b() As Long3. 64 .按值傳遞5 .按地址傳遞6. Public x As Single!7.Sta

22、tic x As Integer8 .Form2.y四、程序閱讀題（寫岀下列程序的運(yùn)行結(jié)果）1 .(1)ByeVal(2) k Mod i(3) k = k i2 .(1)a() Aa Double(2) n-1(3)a(j) Abs(xmax) Thenxmax = x(i, j): ki = i: kj = jNext j, iEnd Sub第 7 章 用戶界面設(shè)計(jì)1.V2.73 .74.X5.X二、選擇題1. D2 . A3. C4. C5 . B11.A12.A13.D14.C15.B20.C21.C22.B23.C24.B29.C30.C31.C32.B33.D三、填空題、判斷題1窗

23、體控制菜單、下拉式菜單、快捷菜單3打開文件、另存為、顏色、字體、打印對(duì)話框6 . X7787971076. D7A8B9D10B16.C17.A18.B19.D25.C26.C27.C28.A34.C35.C2 ShowFont4工程、部件5 CommonDialog1.Action =3 、 CommonDialog1.ShowColor6 提示信息、對(duì)話框類型、對(duì)話框標(biāo)題7 Click8 工具9 代碼窗口、 Click10 相同、正11.數(shù)據(jù)區(qū)、編輯區(qū)、菜單顯示區(qū)12.彈出式菜單、下拉式菜單13. 6 14. 內(nèi)縮符號(hào) 15.Checked16.熱鍵、訪問(wèn)鍵17.用控件數(shù)組的下標(biāo)18.用菜

24、單編輯器建立菜單用 PopupMenu 方法顯示彈出式菜單19.指定菜單位置定義特殊菜單的行為 20.PopupMenu Mypopupmenu 21. Click22. KeyAscii=42 23. Ascii 碼 24.下檔字符的 ASCII 碼25.Shift 、Ctrl、Alt26.Alt_Ctrl_Shift27.MouseMove28. Button=2 Flag=False29.Form1.MousePointer=9930.數(shù)據(jù)區(qū)、編輯區(qū)、菜單項(xiàng)顯示區(qū)31.彈出式菜單、下拉式菜單32. 633.熱鍵、快捷鍵34.用作控件數(shù)組下標(biāo)35. 用菜單編輯器建立菜單用 PopupMen

25、u 方法顯示彈出式菜單36. 指定菜單位置 定義特殊菜單的行為37. PopupMenu Mypopupmenu四、程序閱讀題程序 1. 顯示提示信息為“ 5”、標(biāo)題為“ na 的輸出結(jié)果”、有一個(gè)“確定”按鈕的消息框。 程序 2. 顯示提示信息為“您選擇了第 1 項(xiàng)”、標(biāo)題為“第一項(xiàng)”、有一個(gè)“確定”按鈕的消 息框。五、程序填空題1( 1) Int(Rnd*100)( 2) Str(i)(3)Exit For2( 1) False( 2) Date( 3) CommonDialog1.Color(4) m.7.8.六、程序設(shè)計(jì)題程序 1界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private

26、 Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序 2界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序 3界面設(shè)計(jì)如圖 10-9 、表 10-2 所示，過(guò)程設(shè)計(jì)如下：Private Sub Sqr_Click() Shape1.Shape = 1End SubPrivate Sub Rec_Click()

27、Shape1.Shape = 0End SubPrivate Sub Oval_Click()Shape1.Shape = 2End SubPrivate Sub Circle_Click()Shape1.Shape = 3End SubPrivate Sub Rrec_Click()Shape1.Shape = 4End SubPrivate Sub RSqr_Click()Shape1.Shape = 5End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click()Shape1.FillSt

28、yle = 3End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6End SubPrivate Sub XJ_Click()Shape1.FillStyle = 7 End Sub Private Sub FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.Color End SubPrivate Sub Exit_Click()EndEnd Sub第

29、 8 章 數(shù)據(jù)文件、判斷題1.x2 . V3x4V5V6x7V 8x9.V10.V11x12x13V14x15x、選擇題1. A2. C3B4B5A6C7C8B9. C10B11D12B13B14.C15.A16.D17.D18.B19.C20.C21.C22.D23.D24.C25.B26.D27.D28.D29.C30.C三、填空題1ChDir四、程序閱讀題2 FileLen3 Change4EOF5Line Input程序1. y= 1 a= 1程序 2.NO. 1 3程序3.y= 3 a= 2NO. 2 4窗體：3625 1694 1y= 6 a= 3NO. 3 7文件：14 9162

30、5 36y= 10 a= 4NO. 4 11程序4.程序 5.1程序 6.1窗體上顯示內(nèi)容：202212文件中內(nèi)容： 46 810 1233 312 344 4455 55 51231)1)1)2)2)2)C:windowscalc.exeDim n As IntegerFor Output As #2Open e:dataout.txt For Output As #1 t1 Mod t2 = 0(3)If flag Then3)3)4)EndOutputtemp.dat As c:a1.dat4) Print coun五、程序填空題六、程序設(shè)計(jì)題程序 1界面設(shè)計(jì)如圖 8-1 所示，過(guò)程設(shè)計(jì)

31、如下：Dim fn As StringPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) = Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + + File1.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim

32、 yesno As Byte)yesno = MsgBox( 確認(rèn)要?jiǎng)h除嗎？ , vbYesNo, 刪除文件 If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序 2建立 4 個(gè)文本框控件依次輸入姓名、出生年月、外語(yǔ)、計(jì)算機(jī)成績(jī)，按“確認(rèn)”按鈕 追加該記錄到磁盤文件 d:student.dat 。過(guò)程設(shè)計(jì)如下：Private Sub Command1_Click()Dim b As Date, m As Byte, e As ByteOpen d:student.dat For Append As #1b = Text2.Text: m = T

33、ext3.Text: e = Text4.TextWrite #1, Text1.Text, b, m, eText1.Text = : Text2.Text = : Text3.Text = : Text4.Text = Close #1End Sub程序 3界面設(shè)計(jì)如圖 10-3 所示，過(guò)程設(shè)計(jì)如下：Private Sub Form_Load()Dim ss As StringOpen e:student.txt For Append As #1如文件不存在則先建立該文件Close #1Open d:student.dat For Input As #1將文件中所有記錄在列表框中顯示W(wǎng)hi

34、le Not EOF(1)Line Input #1, ss: List1.AddItem ssWendClose #1在選中表項(xiàng)之前“刪除”、“修改”按鈕不可用Command2.Enabled = False: Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()選中表項(xiàng)后可“刪除”或“修改”，不可“追加”。Command1.Enabled = False: Command2.Enabled = TrueCommand3.Enabled = True: Text1.Text = List1.TextEnd SubPrivate Su

35、b Command1_Click() 追加記錄If Trim(Text1.Text) Then List1.AddItem Text1.TextText1.Text = End SubPrivate Sub Command2_Click() 修改記錄List1.AddItem Text1.Text, List1.ListIndexList1.RemoveItem List1.ListIndexCommand1.Enabled = True: Command2.Enabled = FalseCommand3.Enabled = False: Text1.Text = 修改后，不可“刪除”、“修改

36、”刪除記錄End SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndex刪除后，不可“刪除”、“修改”Command1.Enabled = True: Command2.Enabled = FalseCommand3.Enabled = False: Text1.Text = End SubPrivate Sub Command4_Click()保存文件，將列表框中所有表項(xiàng)輸出到文件Dim i As IntegerOpen d:student.dat For Output As #1For i = 0 To List1.L

37、istCount - 1: Print #1, List1.List(i): Next iClose #1End SubPrivate Sub Command5_Click()退出之前先保存文件Call Command4_Click: EndEnd Sub第 9 章 圖形操作、判斷題1. V2. X3 .V4.X5.V6.X7 .X8.X9.V10.V、選擇題1. C2. B3. C4. A5 . A6. C7. A8. C9 . C10 . B11. A12. B13 . B14 . C15 . C16.D17.C18. C19.D20.A21.C22.D23.B24.B25.A26.B27

38、.D28.A29.B30. C三、填空題1 Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800 2LoadPicture3 AutoSize 、 Stretch 、 False、 False4選中、屬性5形狀、矩形6 Picture1.Picture=LodePicture(C:WindowsCloud.bmp)7圖片框、其他控件8緹、 SclaeMode9顏色10顏色、圓弧起點(diǎn)處轉(zhuǎn)角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長(zhǎng)度之比四、程序閱讀題程序 1. 轉(zhuǎn)動(dòng)一條紅色直線，其軌跡形成一個(gè)圓程序 2. 在窗體上隨機(jī)的

39、位置、用隨機(jī)的顏色、半徑繪制 1000 個(gè)空心的圓。 程序 3. 在圖片框內(nèi)繪制多個(gè)黃色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換。五、程序填空題1(1)Combo1.ListIndex2( 1) Call pic2)Shape1.BorderStyle2)False3) Combo2.AddItem Str(i)( 3) n = n + 14)LoadPicture(fn)( 4 ) LoadPicture(c:windows1.bmp)六、程序設(shè)計(jì)題程序 1界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Load()Picture1.ScaleMode = 3End Su

40、bPrivate Sub Command1_Click()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(x1=): y1 = InputBox(y1=) x2 = InputBox(x2=): y2 = InputBox(y2=)Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub程序 2界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1

41、.ScaleHeight Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2yo = Form1.ScaleTop + Form1.ScaleHeight / 2 Form1.FillStyle = 0: Form1.FillColor = vbBlue Form1.DrawWidth = 2: Form1.ScaleMode = 6 Form1.Circle (xo, yo), r, vbYello

42、wEnd Sub程序 3界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Load()Dim i As IntegerFor i = 1 To 7: List1.AddItem i: Next iForm1.ScaleMode = 1End SubPrivate Sub List1_Click()Form1.Cls: Form1.ScaleMode = List1.TextForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub第

43、 10 章 數(shù)據(jù)庫(kù)與數(shù)據(jù)訪問(wèn)技術(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.（1）數(shù)據(jù)訪問(wèn)控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下Data1： Connect(Access) 、學(xué)籍 .mdb) 、 RecordSource( 學(xué)生 )Text1：DataSource(Data1) 、 DataField( 學(xué)

44、號(hào) )Text2：DataSource(Data1) 、 DataField( 姓名 ) Check1：DataSource(Data1) 、 DataField( 性別 )Text3 ：DataSource(Data1) 、DataField( 出生日期 )Text4：DataSource(Data1) 、 DataField( 獎(jiǎng)學(xué)金 )Text5：DataSource(Data1) 、 DataField( 簡(jiǎn)歷 )DataField( 照片 )OLE1 ： DataSource(Data1) 、Adodc1 ： ConnectionString(Provider = Microsoft

45、.Jet.OLEDB.4.0; _學(xué)籍 1b.mdb; Persist Security Info = False)CommandType(1-adCmdText) 、 RecordSource(select * from 成績(jī) )DataGrid1 ： DataSource(Adodc1)(2)主要事件過(guò)程代碼Option ExplicitPrivate Sub Form_Load()Caption = 學(xué)籍信息編輯瀏覽 Label1.Caption = 學(xué)號(hào) : : Label2.Caption = 姓名 : Label3.Caption = 出生年月 : : Label4.Caption

46、 = 獎(jiǎng)學(xué)金 :Label5.Caption = 簡(jiǎn)歷 : : Label6.Caption = 照片 :Check1.Caption = 性別 (選中表示男 , 否則為女 )Label7.Caption = 成績(jī)信息查詢顯示 : Adodc1.Visible = FalseEnd SubPrivate Sub Data1_Reposition()Adodc1.RecordSource = select 成績(jī) . 課程號(hào) ,課程名 ,成績(jī) from 學(xué)生 ,課程 ,成績(jī) & where 學(xué)生 .學(xué)號(hào) = 成績(jī) .學(xué)號(hào) and & 成績(jī) .課程號(hào) = 課程.課程號(hào) and & 成績(jī).學(xué)號(hào)= & Data1.Recordset（ 學(xué)號(hào)） & & order by 成績(jī).課程號(hào) Label7.Caption = Trim（Data1.Recordset（ 姓名 ） & 成績(jī)信息查詢顯示 Adodc1.RefreshEnd Sub程序 2.（1）數(shù)據(jù)訪問(wèn)控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下：Adodc1 ： ConnectionStri