VB程序設計期末復習

1、VB 程序設計程序設計 期末復習期末復習 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u復習范圍復習范圍u第第2章章 l常用數據類型常用數據類型nInteger、Single、DoublenStringl算術運算符算術運算符nModl內部函數內部函數nLeft、Right、Mid、Int、Rnd、ValnPrint 語句語句nInputBox 語句語句nMsgBox 語句語句復習范圍復習范圍 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第3章章l條件語句條件語句nIf The

2、n l循環(huán)循環(huán)語句語句nForNextnDo While|UntilLoopu第第4章章l一維數組定義、輸入、輸出一維數組定義、輸入、輸出l簡單二維數組定義、輸入、輸出簡單二維數組定義、輸入、輸出u第第5章章l函數的編寫與調用函數的編寫與調用l子過程的編寫與調用子過程的編寫與調用復習范圍復習范圍 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第6章章l列表框、組合框列表框、組合框u第第7章章l利用利用Scale方法設置坐標系方法設置坐標系lLine方法畫線方法畫線lCircle方法方法畫園畫園u第第9章章 文件的讀寫操作文件的讀寫操作

3、l重點題目（區(qū)分多次單擊后重點題目（區(qū)分多次單擊后Output、Append）復習范圍復習范圍 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u復習內容復習內容u第第2章章 程序設計基礎程序設計基礎l內部函數內部函數nPrint 、InputBox 和和MsgBox 語句語句5函數名含義實例結果Int(N)取不大于N的整數Int(9.99)9Val(C)字符串C轉換為數值Val(12)+820Rnd 產生0,1)隨機數Rnd 0-0.99999)Left(C,N)取字符串C左邊N個字符Left(abcde,3)abcRight(C,N)取

4、字符串右邊N個字符Right(abcdef,3)defMid(C,N1,N2)字符串C,N1位置向右取N2個字符Mid(abcdef,2,3)bcdLen(C)字符串C的長度Len(abcd中國)6復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第3章結構化程序設計章結構化程序設計l單行單行If語句語句If Then Else l多行多行If語句語句If ThenElseIf ThenElseIf Then Else End If6復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計

5、復習程序設計復習注意事項注意事項lFor 循環(huán)循環(huán)For 循環(huán)變量初值循環(huán)變量初值 To 終值終值 Step 步長步長 循環(huán)體循環(huán)體Next 循環(huán)變量循環(huán)變量n循環(huán)體中常用算法循環(huán)體中常用算法For i=1 To nn = n + 1 計數器計數器s = s + i 累加累加p = p* i 階乘階乘 p!，設初值，設初值p=1f = - f (-1)i +1, -1，改變符號，改變符號Next ilDo循環(huán)語句循環(huán)語句 Do While|Until 條件條件循環(huán)體循環(huán)體Loop 7復習內容復習內容Do 循環(huán)體循環(huán)體Loop While|Until 條件條件 考試題型樣例考試題型樣例復習復習內

6、容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第4章章 數組數組l維數組維數組Dim 數組名數組名(下界下界 To 上界上界) As 數據類型數據類型l二維數組二維數組Dim 數組名數組名(下標下標1,下標下標2) As 數據類型數據類型l數組輸入數組輸入n輸入框輸入框函數函數輸入輸入For i=1 To 10 a (i)=InputBox()Next in使用隨機數初始化數組使用隨機數初始化數組For i=1 To 10a(i) = Rnd*x + yNext i復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習

7、注意事項注意事項l數組輸出數組輸出n一維數組循環(huán)輸出一維數組循環(huán)輸出 For i = 1 To 10Print a(i)Next in二維數組循環(huán)輸出二維數組循環(huán)輸出For i=1 to mFor j=1 to n Print a(i, j)Next jNext ia(1,1)a(1,2)a(1,3)a(1,4)a(2,1) a(2,2)a(2,3)a(2,4)a(3,1) a(3,2)a(3,3)a(3,4)a(4,1) a(4,2)a(4,3)a(4,4)算法算法i = ji ji + j= 5復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序

8、設計復習注意事項注意事項u第第5章函數章函數與過程與過程l定義函數定義函數Function 函數名函數名(形參形參)As 類型類型函數名函數名=表達式表達式 至少使用一次至少使用一次End Functionl調用函數調用函數變量變量=函數名函數名(實參列表實參列表) 至少使用一次至少使用一次l說明說明n形參是數組，給數組名加圓括號，不需要維數形參是數組，給數組名加圓括號，不需要維數n實參是數組，只要給出數組名實參是數組，只要給出數組名復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【編程、教材編程、教材P88】編制函數編

9、制函數過程過程y，計算，計算n個個數的數的平均值平均值l編制一個編制一個Command1_Click事件過程，隨機產事件過程，隨機產生生10個個2位位整數，通過調用整數，通過調用y函數，在窗體輸出函數，在窗體輸出和和/最大最大/最小最小/平均值平均值n【解解】定義定義函數函數n調用調用Function y(x() As Integer, n As Integer) As Double For i = 1 To n s = s + x(i) Next i y = s/nEnd FunctionPrivate Sub Command1_Click() Dim x(1 To 10) As Integ

10、er, n As Integer n = 10 For i = 1 To n x(i) = Int(Rnd*90)+10 Next i Print y(x(), n)End Sub考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l定義子過程，定義子過程，格式格式Sub (形參列表形參列表)過程體過程體End SublSub過程的調用過程的調用，格式格式過程名過程名 實參列表實參列表 或或Call 過程名過程名(實參列表實參列表)n說明說明實參只能是變量、常量，不能是表達式實參只能是變量、常量，不能是表達式、不能是控

11、件名不能是控件名Sub過程體中不得為過程體中不得為Sub過程名賦值過程名賦值形參前加形參前加ByVal按按值單向值單向傳遞傳遞形參前加形參前加ByRef或省略或省略按地址按地址雙向雙向傳遞傳遞，復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀程序閱讀程序5】單擊單擊Command1后，輸出后，輸出 。 Dim z As IntegerSub a() Dim x As Integer, y As Integer x = x + 2: y = y+2: z = x + y + z Print x; y; zEnd Su

12、bPrivate Sub command1_Click()Dim x As Integer, y As Integerx = 2: y = 4: z = x + y + zCall aPrint x; y; zEnd Sub2 10 2 4 10 x = 2 y=2 z=10 x = 2 y=4 z=6x = 2 y=4 z=10考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第6章章 常用控件常用控件l列表框、組合框：列表框、組合框：都一維字符數組都一維字符數組n常用屬性常用屬性Text：選定的文本：選定的文

13、本 也可用也可用List1.List(i)，i=0,ListCount-1ListIndex：選項的序號：選項的序號(從從0開始開始)ListCount：項目數量：項目數量 n常用方法常用方法添加項目添加項目對象對象.AddItem 項目字符串項目字符串 ,索引值索引值刪除列表中指定項目刪除列表中指定項目 對象對象.RemoveItem 索引值索引值 Clear：清除列表中所有項目：清除列表中所有項目 對象對象. Clear n常用事件：常用事件：Click、DblClick復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項

14、l【例例】在左邊列表框（在左邊列表框（List1）產生）產生5個隨機二位個隨機二位整數，單擊整數，單擊“”按鈕，查找左邊列表框中的最按鈕，查找左邊列表框中的最小值，并添加到右邊組合框中小值，并添加到右邊組合框中Private Sub Form_Load() Dim i As Integer Randomize For i = 1 To 5 List1.AddItem Int(Rnd*90)+10 Next iEnd SubPrivate Sub Command1_Click() Dim i As Integer, Min As Integer Min = List1.List(0) For i

15、 =1 To List1.ListCount-1 If List1.List(i) Min Then Min = List1.List(i) Next i Combo1.AddItem MinEnd Sub復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第7章章 圖形控件和圖形方法圖形控件和圖形方法lScale方法設置坐標系方法設置坐標系n對象對象.Scale(x1, y1)-(x2, y2)lFillStyle：填充樣式：填充樣式n對象對象. FillStyle= 0 / 1：實心填充：實心填充 / 透明透明lFil

16、lColor：填充顏色：填充顏色n對象對象. FillColor=顏色值顏色值 RGB(r,g,b) r,g,b都為都為0-255的值的值 QBColor(Color) Color為為0-15的值的值 vbRed、vbGreen、.8等種顏色值等種顏色值lDrawWidth：線寬度：線寬度n對象對象. Drawwidth=1 大于大于1的值的值復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項lLine方法：用于畫直線或矩形：方法：用于畫直線或矩形：對象對象. Line (x1,y1)-(x2,y2) ,顏色顏色,BFn其中

17、：其中：(x1,y1)為線段起點坐標或矩形左上角坐標為線段起點坐標或矩形左上角坐標(x2,y2)為線段終點坐標或矩形右下角坐標為線段終點坐標或矩形右下角坐標B表示畫矩形表示畫矩形F表示填充矩形表示填充矩形(x1,y1)(x2,y2)復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項lCircle方法：畫圓和橢圓、圓弧和扇形方法：畫圓和橢圓、圓弧和扇形n對象對象.Circle (x,y),半徑半徑,顏色顏色,起始角起始角,終終止角止角,長短軸比率長短軸比率 n說明說明x,y為圓心坐標為圓心坐標橢圓通過長短軸比率控制橢圓通過長短

18、軸比率控制默認值為默認值為1，畫圓，畫圓小于小于1橢圓長軸在橢圓長軸在x軸軸大于大于1橢圓長軸在橢圓長軸在y軸軸復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項lPset方法方法n用于在指定位置用于在指定位置(x, y)處處畫顏色點畫顏色點，點點的大小的大小由由DrawWidth設定設定，格式：，格式：Pset(x, y), 顏色顏色 n與循環(huán)結構配合，繪制各種曲線與循環(huán)結構配合，繪制各種曲線n【例例】用用Pset方法繪制參數方程為方法繪制參數方程為x = rCos4aCosa，y = rCos4aSina在在0 2之間的

19、之間的彩色彩色8葉玫瑰圖形葉玫瑰圖形復習內容復習內容Scale (-100, 100)-(100, -100) r = 100 For a = 0 To 6.28 Step 0.001 x = r * Cos(4 * a) * Cos(a) y = r * Cos(4 * a) * Sin(a) PSet (x, y), QBColor(Rnd * 15) Next a 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【例例】程序運行時程序運行時在窗體上繪制坐標系，左上在窗體上繪制坐標系，左上角角(-200,-200)，右下角右下角(20

20、0,200)，按按“畫圓畫圓”按按鈕后，在窗體中畫出鈕后，在窗體中畫出半徑半徑100填充蘭色填充蘭色的的圓圓、3像素像素紅色園邊線紅色園邊線Private Sub Form_Load() Scale (-200, -200) (200, 200) Line (-200, 0) (200, 0) Line (0, -200) (0, 200)End SubPrivate Sub Command1_Click() FillStyle = 0 FillColor = RGB(0, 0,255) DrawWidth = 3 Circle (0, 0), 100, vbRed End Sub復習內容復習

21、內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第9章文件章文件l文件的讀寫操作文件的讀寫操作l打開文件打開文件nOpen For Mode As #文件號文件號nMode選項（必選）選項（必選）Input：只讀方式打開文件：只讀方式打開文件Output：只寫方式打開文件：只寫方式打開文件Append：文件尾追加數據方式打開文件：文件尾追加數據方式打開文件l關閉文件：關閉文件：nClose #文件號文件號l寫寫順序文件順序文件nPrint #語句：語句：Print #文件號文件號,表達式列表表達式列表nWrite #語句語句Wri

22、te #文件號文件號,表達式列表表達式列表 l【例例】復習內容復習內容 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u考試題型考試題型l閱讀程序閱讀程序(6小題，小題，24分分)n寫出運行結果寫出運行結果)l閱讀填空閱讀填空(4小題，小題，45分分) n選擇一個正確的答案選擇一個正確的答案(4選選1)，必須將相應的，必須將相應的代碼填充到下劃線處，不得只填代碼填充到下劃線處，不得只填A/B/C/D，否則不予計分否則不予計分l改錯填空改錯填空(3小題，小題，16分分)n提示：提示：/*錯誤錯誤N*/的下一行的下一行l(wèi)程序設計程序設計(2小

23、題，小題，15分分)nIf、Select Casen函數調用函數調用 考試考試題型題型 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u考試題型樣例考試題型樣例u1閱讀程序：寫出運行結果閱讀程序：寫出運行結果(6小題，小題，24分分)l【閱讀程序閱讀程序1】單擊單擊Command1按鈕后，若在輸入框分別輸入按鈕后，若在輸入框分別輸入40和和50后，輸出后，輸出 ?？荚囶}型樣列考試題型樣列Private Sub Command1_Click() x=InputBox(請輸入請輸入x值值) y=InputBox(請輸入請輸入y值值) Prin

24、t x+yEnd Sub4050 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀程序閱讀程序2】單擊窗體后，輸出單擊窗體后，輸出 ?？荚囶}型樣列考試題型樣列Private Sub Form_Click()Dim a As String,b As Stringa=Mid(xyz123,4,3)b=Right(xyz123,3)Print a; ; b; Len(a+b)End Sub123 123 6 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀程序閱讀程序3】單擊單

25、擊Command1后，輸出后，輸出 。考試題型樣列考試題型樣列Private Sub Command1_Click()s=1: i=0Do While i 5 s = s + i i = i + 1Loop Print sEnd Subi = 0 s=1 i = 1 s=2i = 2 s=4 i = 3 s=7 i = 4 s=1111 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀程序閱讀程序4】單擊單擊Command1后，輸出后，輸出 。Private Sub Command1_Click()Dim a(5) As Integ

26、er,k As Integer a(1)=1For i=2 To 5 a(i)=a(i-1)+2: Print a(i);k=k+a(i)Next iPrint k=; k End Subi = 2 a(2)=3 i = 3 a(3)=5 i = 4 a(4)=7 i = 5 a(5)=9k=24 3 5 7 9 k=24考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀程序閱讀程序5】單擊單擊Command1后，輸出后，輸出 。 Dim z As IntegerSub a() Dim x As Intege

27、r, y As Integer x = x + 2: y = y+2: z = x + y + z Print x; y; zEnd SubPrivate Sub command1_Click()Dim x As Integer, y As Integerx = 2: y = 4: z = x + y + zCall aPrint x; y; zEnd Sub2 2 10 2 4 10 x = 2 y=2 z=10 x = 2 y=4 z=6x = 2 y=4 z=10考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事

28、項l【閱讀程序閱讀程序6】單擊單擊按鈕兩次按鈕兩次后，文件中的數據為后，文件中的數據為 。若將改為若將改為Append后，單擊后，單擊按鈕一次按鈕一次后，文件后，文件中的數據為中的數據為 。Private Sub Command1_Click() Dim i As Integer Open c:a1.dat For Output As #1 For i = 1 To 15 If i Mod 5=0 Then Print #1, i; Next i Close #1 End Sub5 10 155 10 155 10 15 5 10 15考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習

29、內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u2選擇選擇1個正確的答案，將相應代碼填充到下劃個正確的答案，將相應代碼填充到下劃線處，不得只填線處，不得只填A/B/C/D，否則不予計分，否則不予計分l【閱讀填空閱讀填空1】輸出輸出1-40之間的素數，每行之間的素數，每行5個個，統(tǒng)計這些素數之和，統(tǒng)計這些素數之和Private Sub Command1_Click() P3-22Dim i As Integer, j As Integer, c As Integer For i = 1 To 40 For j = 2 To Sqr(i) If (1) Then Exit

30、For Next j If j Sqr(i) Then (2) : Print i; Sum= (3) If c Mod 5 = 0 Then (4) End If Next i Print Print SumEnd Sub1. j Mod i=0 i Mod j =0 j i = 0 i j = 0 2. i=i+1 i=i-1 c=c+1 c=c-13. Sum+c Sum+i Sum-c Sum+i+j4. Print c Print c; Print Print :考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注

31、意事項l【閱讀填空閱讀填空2】輸入一個大于輸入一個大于2的整數，判斷是否的整數，判斷是否可分解為兩個大于可分解為兩個大于1的整數乘積。如輸入的整數乘積。如輸入8，則可，則可輸出輸出“2*4=8”, 輸入輸入7，則輸出，則輸出“不可分解不可分解” Private Sub Command1_Click() Dim m As Integer, i As IntegerDo m=InputBox(m=) Loop (5) For i =2 To m - 1 If m Mod i = 0 Then Print i; *; m / i; =; m (6) Next i If (7) Then Print

32、不可分解不可分解End Sub5. Until m2 While m2 Until m2 6. Exit Do i=i+1 m=m/i Exit for7. i m i = m i ”按鈕，查按鈕，查找左邊列表框中的最小值，并添加到右邊列表找左邊列表框中的最小值，并添加到右邊列表框中框中考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項Private Sub Form_Load() Dim I As Integer Randomize For i = 1 To 5 List1.AddItem (8) Next iEn

33、d SubPrivate Sub Command1_Click() Dim i As Integer, Min As Integer Min = （9） For i = （10） If List1.List(i) Min List1.List(i) =Min List1.List(i) Min Min = List1.List(i) (12) List1.AddItem List2.AddItem List2.AddItem List1.AddItem List2.AddItem List1.List(i) List2.AddItem Min考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復

34、習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【閱讀填空閱讀填空4】程序運行時初始界面如左下圖所程序運行時初始界面如左下圖所示，按示，按“畫圓畫圓”按鈕后，在窗體中畫出如右下按鈕后，在窗體中畫出如右下圖所示圖形，其中圓填充蘭色，園邊線為紅色圖所示圖形，其中圓填充蘭色，園邊線為紅色Private Sub Form_Load() （13） (-100, -100) (100, 100) Line (-100, 0) (100, 0) Line (0, -100) (0, 100)End SubPrivate Sub Command1_Click() Dim x As

35、 Single, y As Single FillStyle = 0 DrawWidth = 3 (14) Circle (15) End Sub(13) ScaleMode Scale Line PSet(14) FillColor = RGB(255, 0, 0) FillColor = RGB(0,255, 0) FillColor = RGB(0, 0,255) FillColor = RGB(255, 255, 255)(15) (0, 0), 50, Red (0, 0), 50, vbRed (0, 0), 50, Blue (0, 0), 50, vbBlue考試題型樣列考試題

36、型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u改錯填空改錯填空* 錯誤錯誤N *下一行錯誤下一行錯誤l【試題試題1】輸出數字組成的倒三角，如下所示輸出數字組成的倒三角，如下所示Private Sub Form_Click() *錯誤錯誤1* For i = 8 To 1 Print Tab(8 - i + 1); For j = 1 To 2 * i - 1 *錯誤錯誤2* Print iNext jPrint Next iEnd SubTrim(i);Step -1考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容

37、內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【改錯填空改錯填空2】在文本框在文本框Text1中，輸入如中，輸入如“abcd”按回車鍵后，在文本框按回車鍵后，在文本框Text2中顯中顯示逆序示逆序“dcba”Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As String, c As String, d As String 提示：提示：/*錯誤錯誤1*/的下一行的下一行 If KeyAscii = Enter Then n = Len(Text1.Text) For i = n To 1 Step -1 提示：

38、提示：/*錯誤錯誤2*/的下一行的下一行 c = Mid(Text1.Text, i) d = d & c 提示：提示：/*錯誤錯誤3*/的下一行的下一行 d = Text2.Text Next iEnd SubMid(Text1.Text, i, 1)If KeyAscii = 13 ThenText2.Text=d考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【改錯填空改錯填空3】單擊按鈕，產生單擊按鈕，產生1個兩位隨機個兩位隨機數的兩維數組，并輸出主對角線的和數的兩維數組，并輸出主對角線的和Pri

39、vate Sub Command1_Click() *錯誤錯誤4* Dim a(1 To 4) As Integer For i = 1 To 4 For j = 1 To 4 *錯誤錯誤5* a(i, j) = Int(Rnd*90) Next j *錯誤錯誤6* s=s+a(i) Next i Print s=; sEnd Suba(i, j) = Int(Rad*90)+10Dim a(1 To 4, 1 To 4) As Integers=s+a(i,i)a(1,1)a(1,2)a(1,3)a(1,4)a(2,1) a(2,2)a(2,3)a(2,4)a(3,1) a(3,2)a(3,

40、3)a(3,4)a(4,1) a(4,2)a(4,3)a(4,4)考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u4. 程序設計題程序設計題l【編程編程1】Inputox輸入輸入x值，值，Msgbox輸出輸出y值值x-5 x5x2 1=x=5 Y x1/2 0 x10 x=0Private Sub Command1_Click() Dim x As Single, y As Single x = Intupbox(x=) if x5 Then y=x-5 ElseIf x=1 Then y=x*x ElseIf

41、x0 Then y=sqr(x) Else y=0 End If Msgbox y= & yEnd SubPrivate Sub Command1_Click() Dim x As Single, y As Single x = Intupbox(x=) Select Case x Case Is5 y = x-5 Case Is=1 y = x * x Case Is 0 y = sqr(x) Case Else y = 0 End Select Msgbox y= & yEnd Sub考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內容內容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【編程編程2】編制函數編制函數過程過程y，計算，計算n個數的個數的和和/平平均值均值/最大最大/最小最小l編制一個編制一個Command1_Click事件過程，隨機產事件過程，隨機產生生10個個2位位整數，通過調用整數，通過調用y函數，在窗體輸出函數