【正文】 39。 39。 39。 39。 39。 39。 39。 39。Text12：用于顯示編輯成績表中的課程號，但是本字段不設(shè)置數(shù)據(jù)綁定屬性，輸入或修改后的課程號數(shù)據(jù)通過代碼方式寫入數(shù)據(jù)源中。 _Data Source = E:\GYH\VB\。 _Data Source = E:\GYH\VB\。 _amp。 =39。 and (= and _amp。 amp。 學生,課程,成績 amp。 Persist Security Info=False)CommandType(2adCmdTable)、RecordSource(課程)Adodc3(cjcx)：ConnectionString(Provider=。 End If End If End IfEnd Sub程序3. （1）數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下：Adodc1(xs)：ConnectionString(Provider=。 _where 姓名=39。 amp。 amp。 amp。 成績信息查詢顯示End Sub程序2. （1）數(shù)據(jù)訪問控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下：Adodc1：ConnectionString(Provider=。 (學號) amp。 where = and amp。保存文件，將列表框中所有表項輸出到文件 Dim i As Integer Open d:\ For Output As 1 For i = 0 To 1: Print 1, (i): Next i Close 1End SubPrivate Sub Command5_Click() 39。修改記錄 , = True: = False = False: = 39。在選中表項之前“刪除”、“修改”按鈕不可用 = False: = FalseEnd SubPrivate Sub List1_Click() 39。五、程序填空題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． 12． 13．√ 14． 15．二、選擇題1．A 2．C 3．B 4．B 5．A 6．C 7．C 8．B9．C 10．B 11．D 12．B 13．B三、填空題1．ChDir 2．FileLen 3．Change 4．EOF 5．Line Input四、程序閱讀題程序1. y= 1 a= 1 程序2. NO. 1 3 程序3. y= 3 a= 2 NO. 2 4 窗體：36 25 16 9 4 1 y= 6 a= 3 NO. 3 7 文件：1 4 9 16 25 36 y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1 窗體上顯示內(nèi)容：20 2 2 1 2 文件中內(nèi)容：4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5五、程序填空題1．（1）Dim n As Integer （2）C:\windows\ （3）Output （4）End2．（1）For Output As 2 （2）0 （3） As c:\3．（1）Open e:\ For Output As 1 （2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun六、程序設(shè)計題程序1．界面設(shè)計如圖1010所示，過程設(shè)計如下：Dim fn As StringPrivate Sub Drive1_Change() = End SubPrivate Sub Dir1_Change() = End SubPrivate Sub File1_Click() If Right(, 1) = \ Then fn = + Else fn = + \ + End IfEnd SubPrivate Sub Command1_Click() Dim yesno As Byte yesno = MsgBox(確認要刪除嗎？, vbYesNo, 刪除文件) If yesno = vbYes Then Kill fn End Sub程序2．建立4個文本框控件依次輸入姓名、出生年月、外語、計算機成績，按“確認”按鈕追加該記錄到磁盤文件d:\。 個字,請選擇下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = True Else = End IfEnd Sub程序6．界面設(shè)計如圖104所示，過程設(shè)計如下：Private Sub Form_Load() = 當前日期：: = Date Option1(0).Caption = 顯示日期: Option1(1).Caption = 顯示時間 Option1(0).Value = True: = 退出End SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 = 當前日期：: = Date Case 1 = 當前時間：: = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序7．過程設(shè)計如下：Private Sub Form_Load() = 當前日期：: = Date Option1(0).Caption = 顯示日期: Option1(1).Caption = 顯示時間 Option1(0).Value = True: = 退出 年月日: 月日年 日月年: = 年月日End SubPrivate Sub Combo1_Click() Dim n As String Select Case Case 0: n = yyyymmdd Case 1: n = mmddyyyy Case 2: n = ddmmyyyy End Select = Format(Date, n)End SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0: = 當前日期：: = Date Case 1: = 當前時間：: = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序8. 界面設(shè)計如圖105所示，過程設(shè)計如下：Private Sub Form_Load() happy: apple student: puterEnd SubPrivate Sub Command1_Click() : = 0: = Len()End SubPrivate Sub Command3_Click() End SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Command2_Click() If 1 Then End Sub9．界面設(shè)計如圖106所示，過程設(shè)計如下：Private Sub Form_Load() Option1(0).Caption = 八進制: Option1(1).Caption = 十六進制 Option1(2).Caption = 二進制End SubPrivate Function tran(k As Long, n As Integer) As String Dim x As Integer, y As String * 1, k1 As Long tran = : k1 = Abs(k) Do While k1 0 x = k1 Mod n If x = 10 Then y = Chr(Asc(A) + x 10) Else y = CStr(x) tran = y + tran k1 = k1 \ n Loop If k 0 Then tran = + tranEnd FunctionPrivate Sub Option1_Click(Index As Integer) Dim k As Long, n As Integer k = Val() Select Case Index Case 0 = 八進制: n = 8 Case 1 = 十六進制: n = 16 Case 2 = 二進制: n = 2 End Select = tran(k, n)End Sub10．界面設(shè)計如圖107所示，過程設(shè)計如下：Private Sub Form_Load() = Width / 2 / 2 = True = 1: = 1000 = 10: = 100 = 500: = 500End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer() = + 2 = Width / 2 / 2 If = 72 Then = FalseEnd Sub第6章 圖形控件和圖形方法一、判斷題1．√ 2． 3．√ 4． 5．√ 6． 7． 8． 9．√ 10．√二、選擇題1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B11．A 12．B