【文章內(nèi)容簡介】 Case Index Case 0 = 八進(jìn)制: n = 8 Case 1 = 十六進(jìn)制: n = 16 Case 2 = 二進(jìn)制: 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 13．B 14．C 15．C三、填空題1． Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．選中、屬性5．形狀、矩形 6．=LodePicture(C:\Windows\)7．圖片框、其他控件 8．緹、SclaeMode 9．顏色10．顏色、圓弧起點(diǎn)處轉(zhuǎn)角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序1. 轉(zhuǎn)動一條紅色直線，其軌跡形成一個圓程序2. 在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個空心的圓。程序3. 在圖片框內(nèi)繪制多個黃色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換。五、程序填空題1．（1） （2） （3） Str(i)2．（1）Call pic （2）False （3）n = n + 1（4）LoadPicture(c:\windows\) （4）LoadPicture(fn)六、程序設(shè)計題程序1．界面設(shè)計略，過程設(shè)計如下：Private Sub Form_Load() = 3End SubPrivate 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=) (x1, y1)(x2, y2), , BEnd Sub程序2．界面設(shè)計略，過程設(shè)計如下：Private Sub Form_click() Dim r As Single, xo As Single, yo As Single If Then r = / 3 Else r = / 3 End If xo = + / 2 yo = + / 2 = 0: = vbBlue = 2: = 6 (xo, yo), r, vbYellowEnd Sub程序3．界面設(shè)計略，過程設(shè)計如下：Private Sub Form_Load() Dim i As Integer For i = 1 To 7: i: Next i = 1End SubPrivate Sub List1_Click() : = ( + / 2, _ + / 2), 50End Sub第7章 對話框與菜單程序設(shè)計一、判斷題1．√ 2．√ 3．√ 4． 5． 6． 7．√ 8．√ 9．√ 10．√二、選擇題1．D 2．A 3．C 4．C 5．B 6．D 7．A 8．B 9．D 10．B三、填空題1．窗體控制菜單、下拉式菜單、快捷菜單 2．ShowFont3．打開文件、另存為、顏色、字體、打印對話框 4．工程、部件5． =6．提示信息、對話框類型、對話框標(biāo)題 7．Click8．工具 9．代碼窗口、Click 10．相同、正四、程序閱讀題程序1. 顯示提示信息為“5”、標(biāo)題為“na的輸出結(jié)果”、有一個“確定”按鈕的消息框。程序2. 顯示提示信息為“您選擇了第1項(xiàng)”、標(biāo)題為“第一項(xiàng)”、有一個“確定”按鈕的消息框。五、程序填空題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三、填空題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(確認(rèn)要刪除嗎？, vbYesNo, 刪除文件) If yesno = vbYes Then Kill fn End Sub程序2．建立4個文本框控件依次輸入姓名、出生年月、外語、計算機(jī)成績，按“確認(rèn)”按鈕追加該記錄到磁盤文件d:\。過程設(shè)計如下：Private Sub Command1_Click() Dim b As Date, m As Byte, e As Byte Open d:\ For Append As 1 b = : m = : e = Write 1, , b, m, e = : = : = : = Close 1End Sub程序3．界面設(shè)計如圖1011所示，過程設(shè)計如下：Private Sub Form_Load() Dim ss As String Open e:\ For Append As 1 39。如文件不存在則先建立該文件 Close 1 Open d:\ For Input As 1 39。將文件中所有記錄在列表框中顯示 While Not EOF(1) Line Input 1, ss: ss Wend Close 1 39。在選中表項(xiàng)之前“刪除”、“修改”按鈕不可用 = False: = FalseEnd SubPrivate Sub List1_Click() 39。選中表項(xiàng)后可“刪除”或“修改”，不可“追加”。 = False: = True = True: = End SubPrivate Sub Command1_Click() 39。追加記錄 If Trim() Then = End SubPrivate Sub Command2_Click() 39。修改記錄 , = True: = False = False: = 39。修改后，不可“刪除”、“修改”End SubPrivate Sub Command3_Click() 39。刪除記錄 39。刪除后，不可“刪除”、“修改” = True: = False = False: = End SubPrivate Sub Command4_Click() 39。保存文件，將列表框中所有表項(xiàng)輸出到文件 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。退出之