【正文】 ：Adodc1：ConnectionString(Provider = 。Text6：DataSource(Adodc2)、DataField(課程名)Text7：DataSource(Adodc2)、DataField(學(xué)時數(shù))Text8：DataSource(Adodc2)、DataField(學(xué)分數(shù))Text9：DataSource(Adodc2)、DataField(開課學(xué)期)Text10：DataSource(Adodc2)、DataField(考試考查標(biāo)志)Text11：用于顯示編輯成績表中的學(xué)號，但是本字段不設(shè)置數(shù)據(jù)綁定屬性，輸入或修改后的學(xué)號數(shù)據(jù)通過代碼方式寫入數(shù)據(jù)源中。 kch amp。 xh amp。 kch amp。 amp。 If Not Then (學(xué)號) = : SendKeys {tab}: vlt = True Else MsgBox 學(xué)號不存在，重新輸入！, , 輸入驗證！ vlt = False: = 0: = Len() End If End IfEnd SubPrivate Sub Text11_Validate(Cancel As Boolean)If vlt = True Then Cancel = False Else MsgBox 學(xué)號不存在，重新輸入！, , 輸入驗證！Cancel = TrueEnd IfEnd SubPrivate Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)Dim kch As StringIf KeyCode = vbKeyReturn Then 課程號=39。 If Then = rn: kch = (課程號) (課程號) = : Do 課程號=39。 If Then = rn: xh = (學(xué)號) (學(xué)號) = Do 學(xué)號=39。 If Not Then : Else Exit Do End If Loop : Case 1 kch = (課程號): Do 課程號=39。 Persist Security Info = False)CommandType(2adCmdTable)、RecordSource(成績)LockType(4adBatchOptimistic)Text1：用于顯示編輯學(xué)號，但是本字段不設(shè)置數(shù)據(jù)綁定屬性，輸入或修改后的學(xué)號數(shù)據(jù)通過代碼方式寫入數(shù)據(jù)源中。 and (= and _amp。 =) order by = 單位：門 = Trim() amp。 _where = and =: = 成績信息列表 = 選擇學(xué)生姓名: : = 選擇課程名: = False: = False: = FalseCaption = 學(xué)籍信息查詢: p = 0End SubPrivate Sub DataList1_Click()p = 0: Call cjdctjEnd SubPrivate Sub DataList2_Click()p = 1: Call cjdctjEnd SubPrivate Sub cjdctj()Dim cjdcjs(5) As Integer, dcase As Byte, i As ByteIf p = 0 Then = select , _amp。 _Data Source = E:\GYH\VB\。 amp。 39。 39。退出之前先保存文件 Call Command4_Click: EndEnd Sub第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.二、選擇題 三、程序設(shè)計題程序1. （1）數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下Data1：Connect(Access)、DatabaseName(d:\)、RecordSource(學(xué)生)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 = 。選中表項后可“刪除”或“修改”，不可“追加”。程序3. 在圖片框內(nèi)繪制多個黃色邊框矩形，填充樣式在“實心”、“透明”間交替變換。、Alt+Y 4．Enabled 5．MaxLength6． 7．MultiLine 8．Visible 9．Alignment 10．AutoSize11．ForeColor 12．0或1 13．True 14．1 15．AddItem16．1 17． 18．文本框、列表框19．下拉式組合框、簡單組合框、下拉式列表框 20．Scroll 21．Value22．Change 23．定時器不起作用 24．Timer 25．65535四、程序閱讀題程序1. 116 程序2. 8程序3. 23451 程序4. 小，你好！ 程序5. 您好34512 小李，你好！ 歡迎使用Visual Basic!程序6. 李子 程序7. y = 6 程序8. n = 1蘋果 y = 14 n = 3 橘子 n = 5 葡萄 柚子 香蕉五、程序填空題1．（1）a(i) = Mid(str1, i, 1) 或 a(i) = Mid(, i, 1) （2）p = j （3）a(i) = a(p) （4） = True2．（1）1 To 2*i–1 （2） = True （3） = False3．（1） = False （2）p = 2 （3）Print i （4）Val() 2 或 Val() = 1 （5）KeyAscii = 134．（1） （2） I （3）i = i + 15．（1） = True （2）x \ 3600 （3）(x Mod 3600) \ 60 或 (x 3600 * h) \ 60 （4）x = x + 1 6．（1） （2） = 六、程序設(shè)計題程序1. 界面設(shè)計略，過程設(shè)計如下：Private Sub Command1_Click() If = 顯示 Then Print 歡迎使用Visual Basic！: = 清除 Else : = 顯示 End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load(): = 顯示: = 退出End Sub程序2．界面設(shè)計略，過程設(shè)計如下：Private Sub Form_Load() = 1: = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) = CStr(KeyAscii)End Sub程序3．界面設(shè)計略，過程設(shè)計如下：Const pwd As String = 123456 39。 i * j。用 . Width = 39。表101 實例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標(biāo)簽控件1Name(Label1)Caption(我的第一個VB程序)標(biāo)簽控件2Name(Label2)Caption(請輸入你的姓名)FontUnderLine(True)FontItalic(True)命令按鈕1Name(Command1)Caption(確定(amp。字體變大 = + 3 : Print 歡迎使用VBEnd SubPrivate Sub Command2_Click() 39。第3章 結(jié)構(gòu)化程序設(shè)計與數(shù)組一、判斷題1．√ 2． 3．√ 4． 5．√ 6． 7． 8．√ 9． 10．√二、選擇題1．A 2．D 3．C 4．C 5．D 6．B三、填空題1．If xy Then t=y: y=x: x=t 2．IS3．For i = 0 to 9: B(i) = InputBox(B( amp。 n = InputBox(請輸入n，0n10) For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i For i = 3 To n For j = 2 To i 1 a(i, j) = a(i 1, j 1) + a(i 1, j) Next j, i For i = 1 To n Print Tab(30 2 * i)。 小了！ Else If rec 5 Then = 好！猜對了。五、程序填空題1．（1）Int(Rnd*100) （2）Str(i) （3）Exit For 2．（1）False （2）Date （3） （4）m1六、程序設(shè)計題程序1．界面設(shè)計略，過程設(shè)計如下：Private Sub Command1_Click() End Sub程序2．界面設(shè)計略，過程設(shè)計如下：Private Sub Command1_Click() End Sub程序3．界面設(shè)計如圖10表102所示，過程設(shè)計如下：Private Sub Sqr_Click() = 1End SubPrivate Sub Rec_Click() = 0End SubPrivate Sub Oval_Click() = 2End SubPrivate Sub Circle_Click() = 3End SubPrivate Sub Rrec_Click() = 4End SubPrivate Sub RSqr_Click() = 5End SubPrivate Sub Shp_Click() = 2End SubPrivate Sub Shzh_Click() = 3End SubPrivate Sub Xiex_Click() = 4End SubPrivate Sub ShPJ_Click() = 6End SubPrivate Sub XJ_Click() = 7End SubPrivate Sub FillColor_Click() = End SubPrivate Sub Exit_Click() EndEnd Sub第8章 文 件一、判斷題1． 2．√ 3． 4．√ 5．√ 6． 7．√ 8．9．√ 10．√ 11．