【正文】 ea, )) 39。1用additem來(lái)添加列表項(xiàng)，用removeitem刪除已有的列表項(xiàng)，用clear刪除所有列表項(xiàng)。1text、mandbutton可以獲得焦點(diǎn)。forecolor和backcolor屬性首先選擇系統(tǒng)中的選項(xiàng)，然后在調(diào)色板中設(shè)置相應(yīng)的顏色；font屬性設(shè)置好以后，在窗體上放置的任何控件都會(huì)繼承窗體的font屬性。S1 輸入待判斷自然數(shù)： a；S2 i=1；S3 判斷i是否小于a1，若不是轉(zhuǎn)S5S4 判斷a除以i的余數(shù)是否為0,如果是則保留因子i，否則i=i+1轉(zhuǎn)S3；S5 輸出所有因子。標(biāo)準(zhǔn)工具欄中通常情況下有：添加標(biāo)準(zhǔn)exe工程、添加窗體、菜單編輯器、打開工程、保存工程、剪切、復(fù)制、粘貼、查找、撤消、重復(fù)、啟動(dòng)、中斷、結(jié)束、工程資源管理器、屬性窗口、窗體布局窗口、對(duì)象瀏覽器、工具箱、數(shù)據(jù)視圖窗口、可視化元件管理器等按鈕組成。 答：VB是一個(gè)包括界面設(shè)計(jì)、程序編碼、調(diào)試、編譯并創(chuàng)建可執(zhí)行程序的集成開發(fā)環(huán)境。課后答案網(wǎng)，用心為你服務(wù)！ 第一章 B A B 答：屬性：紅色、充滿氫氣；事件：松手、針刺；方法：飛走、爆破。事件發(fā)生的順序決定了代碼執(zhí)行的順序，因此每次執(zhí)行應(yīng)用程序時(shí)，程序代碼并不是按照程序編寫的順序來(lái)執(zhí)行的。 答：工具欄可自行定義。S1 輸入待判斷自然數(shù)： N；S2 將N轉(zhuǎn)換成字符S，計(jì)算S的長(zhǎng)度K；S3 i=1；S4 判斷i是否小于K1，若不是轉(zhuǎn)S6；S5 判斷S中的第i位和第Ki+1位是否相等,如果是則i=i+1轉(zhuǎn)S4，如果不是則轉(zhuǎn)S6；S6 判斷i是否是中間位數(shù)，若是輸出“是回文數(shù)”，否則輸出“不是回文數(shù)”。ABDE改變窗口的工作狀態(tài)會(huì)引發(fā)Activate事件，改變窗口大小會(huì)引發(fā)resize事件。Optionbox的Value可以取true－選中和false－未選中，checkbox的Value可以取0－未選中，1－選中，2－變灰，表示暫時(shí)不能訪問。若把一個(gè)控件的Visible屬性設(shè)為false則在程序運(yùn)行時(shí)看不到該控件。6. 合法變量名有：A、C、D （VB中合法變量名只能由字母、數(shù)字和下劃線構(gòu)成，并且只能以字母開頭）7. 見教材P468. (1) a/(b+c/d) (2) (sqr(x^2+1)+x)^(1/3) (3) (2*y)/((a*x+b*y)*(a*xb*y)) (4) 1+1/(1+1/m)(5) (d/3)^(2*x)/2 (6) log(y+cos(x)^2)(7) fabs((exp(x)+sin(x)^3)/(x+y))(8)log((exp(x*y)+fabs(tan(z)^1+cos(x)^3))/(x+yz))9. (1)(2) (A+B)/(AB) (3)(4) A*B*C/((D+1)*Y) (5)(6) (X*Y)^510. A x+y10 and xy0B x*y0 and x=fix(x) and y=fix(y)C A=0 XOR B=0D C1+C2+C3=255 and C190 and C290 and C38011. T F F F F12. BCDE （A會(huì)發(fā)生溢出的錯(cuò)誤）13. (1) 3548 (2) 3548 (3) 3548 (4) 3548(5) 83 (6) 83 (7) 3548 (8) 354814. 以2為底的X的對(duì)數(shù)：log(x)/log(2)15. C16. z=Inputbox(輸入一個(gè)數(shù)：，程序示例，)17. Msgbox ，48，程序示例18. Option ExplicitConst PI As Single = Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, area As Single a = Val() b = Val() c = Val() * PI / 180 39。 Left(ch, Len(ch)) Print ch Next iEnd SubPrivate Sub Command3_Click() Dim p As Integer, i As Integer p = 1 For i = 1 To 5 p = p + (2 * i 1) / (2 * i + 1) If p = 20 Then Exit For 39。 n1 amp。 n3 amp。r2一定要初始化為1，否則積為0 For i = 1 To 10 k = InputBox(請(qǐng)輸入第 amp。 s End If Next i = s2End Sub8.Option ExplicitPrivate Sub Command1_Click() Text1 = Text2 = End SubPrivate Sub Command2_Click() Dim n As Integer, r As String, s As String n = Val() Do r = n Mod 2 s = r amp。 b amp。62Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, t As Integer Dim a(15) As Integer Randomize For i = 1 To 15 a(i) = Int(100 * Rnd) Text1 = Text1 amp。 Str(a(i)) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer, max As Integer Dim n As Integer, w As Integer, p As Integer For i = 1 To 20 n = 0: p = i For j = 1 To 4 If i 20 Then p = p 20 n = n + a(p) Next j If n max Then max = n w = i End If Next i Text2 = max w amp。 Str(s) Next jEnd SubPrivate Sub Command3_Click() For i = 1 To 4 s = 0 For j = 1 To 5 s = s + a(i, j) Next j Text2 = Text2 amp。 Str(a(i, j)) Next j Text1 = Text1 amp。 Str(a(i, j)) Next j Text1 = Text1 amp。 i。 For j = 1 To i If i = 1 Or i = j Then a(i, j) = 1 Else a(i, j) = a(i 1, j 1) + a(i 1, j) End If Print Left(a(i, j) amp。 vbCrLf If max b(i) Then max = b(i): m = i ElseIf min b(i) Then min = b(i): n = i End If Next i = max行和： amp。 vbCrLf amp。 n amp。 Str(a(i, j)) Next j Text1 = Text1 amp。 Str(a(i, j)) Next j Text1 = Text1 amp。 n。 a(n, i)。 ,。 i。 a(i, n)。 ,。 maxEnd SubPrivate Sub Command2_Click() Text1 = End SubPrivate Sub Command3_Click() EndEnd Sub614Option ExplicitPrivate Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim k As Integer i = 3: j = 2: a(i, j) = 1: k = 1 Do Until k 9 k = k + 1 If i + 1 3 And j + 1 = 3 Then i = 1: j = j + 1 ElseIf i + 1 = 3 And j + 1 3 Then i = i + 1: j = 1 ElseIf i + 1 3 And j + 1 3 Then i = i 1 ElseIf i + 1 = 3 And j + 1 = 3 And a(i + 1, j + 1) 0 Then i = i 1 Else i = i + 1: j = j + 1 End If a(i, j) = k Loop For i = 1 To 3 For j = 1 To 3 a(i, j)。 Str(a(i, j)) Next j Text1 = Text1 amp。 i。 a(i, n) n = n 1 If n 1 Then n = f Next iEnd SubPrivate Sub Command2_Click() Text1 = End SubPrivate Sub Command3_Click() EndEnd Sub第七章 1．在過程中聲明的局部變量其生命期只到本次過程執(zhí)行結(jié)束就終止了，但是在過程中聲明的靜態(tài)變量其生命期是只有當(dāng)包含此過程的窗體被終止的時(shí)候才終止。 Chr(13) amp。 Next iEnd Sub9. Dim a(19) As IntegerPrivate Sub Command1_Click() a(0) = Int(100 * Rnd) + 1For i = 1 To 19 a(i) = Int(100 * Rnd) + 1 For j = 0 To i 1 If a(i) = a(j) Then i = i 1 Exit For End If Next j If j = i Then Print a(i)。 + amp。 = amp。 Next i Call insertion(a) For i = 1 To 10 a(i)。依次取數(shù)，記錄取數(shù)的序列，并返回最后取到的數(shù)值 m = 1 ct = 1 Do If aa(2, num) = 1 Then bb(m) = aa(1, num) m = m + 1 If m 25 Then Exit Do aa(2, num) = 0 t = 0 End If ct = ct + 1 Do While ct t num = num + 1 If num 25 Then num = num Mod 25 t = aa(2, num) + t Loop Loop XXX = bb(25)End Function20.Option ExplicitDim