【正文】 Private Sub Command3_Click() End SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Command2_Click() If 1 Then End Sub9．界面設(shè)計(jì)如圖106所示，過(guò)程設(shè)計(jì)如下：Private Sub Form_Load() Option1(0).Caption = 八進(jìn)制: Option1(1).Caption = 十六進(jìn)制 Option1(2).Caption = 二進(jìn)制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 = 八進(jìn)制: n = 8 Case 1 = 十六進(jìn)制: n = 16 Case 2 = 二進(jìn)制: n = 2 End Select = tran(k, n)End Sub10．界面設(shè)計(jì)如圖107所示，過(guò)程設(shè)計(jì)如下：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)角、橢圓縱軸與橫軸長(zhǎng)度之比四、程序閱讀題程序1. 轉(zhuǎn)動(dòng)一條紅色直線，其軌跡形成一個(gè)圓程序2. 在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個(gè)空心的圓。在選中表項(xiàng)之前“刪除”、“修改”按鈕不可用 = False: = FalseEnd SubPrivate Sub List1_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。 (學(xué)號(hào)) amp。 amp。 amp。 End If End If End IfEnd Sub程序3. （1）數(shù)據(jù)訪問(wèn)控件以及數(shù)據(jù)綁定控件的相關(guān)屬性設(shè)置如下：Adodc1(xs)：ConnectionString(Provider=。 學(xué)生,課程,成績(jī) amp。 and (= and _amp。 _amp。 _Data Source = E:\GYH\VB\。 39。 39。 39。 39。 amp。 amp。 amp。 amp。Text2：DataSource(Adodc1)、DataField(姓名)Check1：DataSource(Adodc1)、DataField(性別)Text3：DataSource(Adodc1)、DataField(出生日期)Text4：DataSource(Adodc1)、DataField(獎(jiǎng)學(xué)金)Text5：用于顯示編輯課程號(hào)，但是本字段不設(shè)置數(shù)據(jù)綁定屬性，輸入或修改后的課程號(hào)數(shù)據(jù)通過(guò)代碼方式寫入數(shù)據(jù)源中。 =) order by = 單位：人 = Trim() amp。 成績(jī)信息列表Else = select , _amp。 , from 學(xué)生,課程,成績(jī) _amp。 Persist Security Info=False)CommandType(2adCmdTable)、RecordSource(學(xué)生)Adodc2(kc)：ConnectionString(Provider=。 39。 If Then = select * from 學(xué)生 = 全部表文件數(shù)據(jù)瀏覽表格： : MsgBox 查無(wú)此人! Else = select * from 學(xué)生 amp。 amp。 _Data Source = E:\GYH\VB\。 = False: = True = True: = End SubPrivate Sub Command1_Click() 39。五、程序填空題1．（1） （2） （3） Str(i)2．（1）Call pic （2）False （3）n = n + 1（4）LoadPicture(c:\windows\) （4）LoadPicture(fn)六、程序設(shè)計(jì)題程序1．界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：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è)計(jì)略，過(guò)程設(shè)計(jì)如下：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è)計(jì)略，過(guò)程設(shè)計(jì)如下：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章 對(duì)話框與菜單程序設(shè)計(jì)一、判斷題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．打開(kāi)文件、另存為、顏色、字體、打印對(duì)話框 4．工程、部件5． =6．提示信息、對(duì)話框類型、對(duì)話框標(biāo)題 7．Click8．工具 9．代碼窗口、Click 10．相同、正四、程序閱讀題程序1. 顯示提示信息為“5”、標(biāo)題為“na的輸出結(jié)果”、有一個(gè)“確定”按鈕的消息框。預(yù)設(shè)密碼為123456Private Sub Command1_Click() Cls: Print 歡迎進(jìn)入！End SubPrivate Sub Form_Load() = 進(jìn)入: = Falsew = : = *End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If = pwd Then m = MsgBox(口令正確，歡迎進(jìn)入！): = True Else m = MsgBox(口令錯(cuò)誤,請(qǐng)重新輸入！): = End If End IfEnd Sub程序4．界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Dim num As Integer, m As Integer, rec As IntegerPrivate Sub Form_Load() = 出題: = True = : = False: rec = 0End SubPrivate Sub Command1_Click() Randomize: num = Int(Rnd * 100) + 1: = True = : = FalseEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then m = Val(): rec = rec + 1: = 0 = Len(): If rec 10 Then = 差！重新開(kāi)始: Call Form_Load Else If m num Then = Str(m) amp。 Next j Print Next iEnd Sub程序4．界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox(請(qǐng)輸入x的值：) n = InputBox(請(qǐng)輸入n的值：) t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub程序5．界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Private Sub Form_Click() Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1 While t = i = i + 1: t = t / i: e = e + t Wend Print eEnd Sub程序6．界面設(shè)計(jì)略，過(guò)程設(shè)計(jì)如下：Option Base 1Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k 39。用 . Width = 39。表101 實(shí)例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標(biāo)簽控件1Name(Label1)