【正文】 d() Const N = 4 39。 常量N決定二維數(shù)組大小 Dim a(N, N) As Integer Dim i, j, Temp As Integer Show 39。 數(shù)組初始化 For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To N a(i, j) = i * 10 + j Next j Next i39。 輸出原始數(shù)組 Print 轉(zhuǎn)置前的數(shù)組： For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To N Print a(i, j)。 Next j Print Next i 39。 數(shù)組轉(zhuǎn)置 For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To i 39。 交換 Temp = a(i, j) a(i, j) = a(j, i) a(j, i) = Temp Next j Next i 39。 輸出轉(zhuǎn)置后的數(shù)組 Print 轉(zhuǎn)置后的數(shù)組： For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To N Print a(i, j)。 Next j Print Next iEnd Sub 參考代碼如下：Private Sub Form_Click()Dim a(10) As Integer, i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10 a(i) = Int(Rnd * 101) sum = sum + a(i)Next iave = sum / 10Print sum, aveEnd Sub 參考代碼如下：Private Sub Form_Load() Dim i, j, k, Flower As Integer Show For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 Flower = i * 100 + j * 10 + k If Flower = i ^ 3 + j ^ 3 + k ^ 3 Then Print Flower 。 是水仙花數(shù) Next k Next j Next iEnd Sub 程序參考代碼如下：Private Sub Command1_Click() Dim m, i, y As Integer m = Val() If m = 2 Then = 輸入數(shù)據(jù)有錯(cuò) Else k = Sqr(m) + 1 For i = 2 To k y = m Mod i If y = 0 Then Exit For Next i If y = 0 Then = m amp。 不是素?cái)?shù) Else = m amp。 是素?cái)?shù) End If End IfEnd Sub 程序參考代碼如下：Option Base 1Private Sub Form_Load() Const N = 5 39。 常數(shù) N 確定數(shù)組的大小 Dim a(N, N) As Integer Dim i, j, row, line, min As Integer Show For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To N 39。 For循環(huán) j從1變化到N a(i, j) = Int(100 * Rnd) + 1 39。 產(chǎn)生N*N個(gè)1~100間的隨機(jī)數(shù) Next j Next i 39。 輸出二維數(shù)組 Print 數(shù)組內(nèi)容是： For i = 1 To N For j = 1 To N Print a(i, j)。 Next j Print 39。 輸完一行元素后輸出一個(gè)換行 Next i 39。 設(shè)定初始值 min = a(1, 1): row = 1: line = 1 39。 尋找最小數(shù) For i = 1 To N For j = 1 To N If a(i, j) min Then min = a(i, j) row = i line = j End If Next j Next i 39。 輸出結(jié)果 Print 最小值是：。 min Print 在第。 row。 行第。 line。 列End Sub 1參考代碼如下：Private Sub Command1_Click() Dim a, b, c, delt, realpart, imagpart As Single a = Val(): b = Val(): c = Val(): delt = b * b 4 * a * c If a = 0 Then = 是一元一次方程: If b0 then = x1= amp。 c / b Else If c=0 then = 有無窮根 Else = 無根 End if End if Else39。 下面嵌套塊If語句 If delt = 0 Then = 有兩個(gè)相等的實(shí)根: = x1= amp。 b / 2 / a = x2= amp。 b / 2 / b ElseIf delt 0 Then = 有兩個(gè)不等的實(shí)根: = x1= amp。 (b + Sqr(delt)) / (2 * a) = x2= amp。 (b Sqr(delt)) / (2 * a) Else = 有兩個(gè)共軛復(fù)根: realpart = b / (2 * a) imagpart = Sqr(delt) / (2 * a) = x1= amp。 realpart amp。 + amp。 imagpart amp。 i = x2= amp。 realpart amp。 amp。 imagpart amp。 i End If 39。 此行End If部分與內(nèi)層的塊If語句對(duì)應(yīng) End If 39。 此行End If部分與外層的塊If語句對(duì)應(yīng)End Sub 1參考代碼如下：Private Sub Command1_Click() Dim n, i, t As Long n = Val() i = 1: t = 1 If n 0 Then = error ElseIf n = 0 Then = 0!=1 Else Do While i = n t = t * i i = i + 1 Loop = n amp。 != amp。 t End IfEnd Sub 1參考代碼如下：Private Sub Form_Load() Dim Prev, Last, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i = 第20項(xiàng)為 amp。 NewOne = 前20項(xiàng)的和為 amp。 sumEnd Sub第四章 常用控件與窗體一、填空題 AddItem 窗體、控件 StartUpPostion sorted、ture texttabindex、0 chr(10) timer interval scroll和change事件 1mousepointer 1selected、text、removeitem 2*ix,2*i1 1change、value、scrol、value 1List 1Checked 1keypress 1組合框 1 1 1Click（或鼠標(biāo)單擊）二、選擇題 C B A C A A C A C B 1C 1C 1A 1D 1A 1A 1D 1D 1D A 2C 2B三、簡(jiǎn)答題 單選按鈕用來顯示一個(gè)可以打開或關(guān)閉 選項(xiàng)，而且在同一組中的單選按鈕控件，用戶只能選擇其中的一項(xiàng)。 主要是用鼠標(biāo)拖動(dòng)滑塊時(shí)對(duì)Value屬性的影響不同。 快捷鍵是執(zhí)行某一個(gè)菜單項(xiàng)的鍵盤命令，常用形式Ctrl+字母，訪問鍵是打開一個(gè)菜單的鍵盤命令，常用形式Alt+字母。 Scroll事件 =False Interval屬性 單選按鈕用于只能選擇一個(gè)的情況下，復(fù)選框（即檢查框）用于可以選擇多個(gè)的情況下 為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加amp。，設(shè)置快捷鍵需要在菜單編輯器中選擇 菜單的形式有兩種：下拉式菜單和彈出式菜單 在KeyPress事件中，若想取消用戶剛輸入的字符，只要將該事件的參數(shù)設(shè)置為0即可 1框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面 1250 1在一個(gè)窗體的程序代碼中可以訪問另一個(gè)窗體上控件的屬性，在訪問時(shí)只要寫上窗體名稱即可 1先建立框架，然后再在其中建立控件 1下拉式組合框、簡(jiǎn)單組合框、下拉式列表框四、讀程序題 輸出結(jié)果為：4985 結(jié)果如下：14五、編程題 參考代碼如下：Private Sub Form_Load() = 1000End SubPrivate Sub Timer1_Timer() = TimeEnd Sub 參考代碼如下：Private Sub Command1_Click() Dim Char As String * 1 Char = Trim() = amp。 Spc(5) amp。 Char amp。 _ Spc(10) amp。 Str(Asc(Char)) amp。 chr(13)amp。chr(10) = 0 = Len()End Sub 具體代碼略。 具體代碼略。 具體代碼略。