VB程序設計期末復習

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

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

3、l重點題目（區(qū)分多次單擊后重點題目（區(qū)分多次單擊后Output、Append）復習范圍復習范圍 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u復習內(nèi)容復習內(nèi)容u第第2章章 程序設計基礎程序設計基礎l內(nèi)部函數(shù)內(nèi)部函數(shù)nPrint 、InputBox 和和MsgBox 語句語句5函數(shù)名含義實例結(jié)果Int(N)取不大于N的整數(shù)Int(9.99)9Val(C)字符串C轉(zhuǎn)換為數(shù)值Val(12)+820Rnd 產(chǎn)生0,1)隨機數(shù)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復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第3章結(jié)構(gòu)化程序設計章結(jié)構(gòu)化程序設計l單行單行If語句語句If Then Else l多行多行If語句語句If ThenElseIf ThenElseIf Then Else End If6復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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 計數(shù)器計數(shù)器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復習內(nèi)容復習內(nèi)容Do 循環(huán)體循環(huán)體Loop While|Until 條件條件 考試題型樣例考試題型樣例復習復習內(nèi)

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

7、注意事項注意事項l數(shù)組輸出數(shù)組輸出n一維數(shù)組循環(huán)輸出一維數(shù)組循環(huán)輸出 For i = 1 To 10Print a(i)Next in二維數(shù)組循環(huán)輸出二維數(shù)組循環(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復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序

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

9、制函數(shù)過程過程y，計算，計算n個個數(shù)的數(shù)的平均值平均值l編制一個編制一個Command1_Click事件過程，隨機產(chǎn)事件過程，隨機產(chǎn)生生10個個2位位整數(shù)，通過調(diào)用整數(shù)，通過調(diào)用y函數(shù)，在窗體輸出函數(shù)，在窗體輸出和和/最大最大/最小最小/平均值平均值n【解解】定義定義函數(shù)函數(shù)n調(diào)用調(diào)用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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l定義子過程，定義子過程，格式格式Sub (形參列表形參列表)過程體過程體End SublSub過程的調(diào)用過程的調(diào)用，格式格式過程名過程名 實參列表實參列表 或或Call 過程名過程名(實參列表實參列表)n說明說明實參只能是變量、常量，不能是表達式實參只能是變量、常量，不能是表達式、不能是控

11、件名不能是控件名Sub過程體中不得為過程體中不得為Sub過程名賦值過程名賦值形參前加形參前加ByVal按按值單向值單向傳遞傳遞形參前加形參前加ByRef或省略或省略按地址按地址雙向雙向傳遞傳遞，復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u第第6章章 常用控件常用控件l列表框、組合框：列表框、組合框：都一維字符數(shù)組都一維字符數(shù)組n常用屬性常用屬性Text：選定的文本：選定的文

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

14、l【例例】在左邊列表框（在左邊列表框（List1）產(chǎn)生）產(chǎn)生5個隨機二位個隨機二位整數(shù)，單擊整數(shù)，單擊“”按鈕，查找左邊列表框中的最按鈕，查找左邊列表框中的最小值，并添加到右邊組合框中小值，并添加到右邊組合框中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復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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的值的值復習內(nèi)容復習內(nèi)容 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項lLine方法：用于畫直線或矩形：方法：用于畫直線或矩形：對象對象. Line (x1,y1)-(x2,y2) ,顏色顏色,BFn其中

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

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

19、之間的彩色彩色8葉玫瑰圖形葉玫瑰圖形復習內(nèi)容復習內(nèi)容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 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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復習內(nèi)容復習

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

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

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

24、t x+yEnd Sub4050 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事

28、項l【閱讀程序閱讀程序6】單擊單擊按鈕兩次按鈕兩次后，文件中的數(shù)據(jù)為后，文件中的數(shù)據(jù)為 。若將改為若將改為Append后，單擊后，單擊按鈕一次按鈕一次后，文件后，文件中的數(shù)據(jù)為中的數(shù)據(jù)為 。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、內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u2選擇選擇1個正確的答案，將相應代碼填充到下劃個正確的答案，將相應代碼填充到下劃線處，不得只填線處，不得只填A/B/C/D，否則不予計分，否則不予計分l【閱讀填空閱讀填空1】輸出輸出1-40之間的素數(shù)，每行之間的素數(shù)，每行5個個，統(tǒng)計這些素數(shù)之和，統(tǒng)計這些素數(shù)之和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 :考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注

31、意事項l【閱讀填空閱讀填空2】輸入一個大于輸入一個大于2的整數(shù)，判斷是否的整數(shù)，判斷是否可分解為兩個大于可分解為兩個大于1的整數(shù)乘積。如輸入的整數(shù)乘積。如輸入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 ”按鈕，查按鈕，查找左邊列表框中的最小值，并添加到右邊列表找左邊列表框中的最小值，并添加到右邊列表框中框中考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nè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、習復習內(nèi)容內(nèi)容 復習復習范圍范圍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、型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項u改錯填空改錯填空* 錯誤錯誤N *下一行錯誤下一行錯誤l【試題試題1】輸出數(shù)字組成的倒三角，如下所示輸出數(shù)字組成的倒三角，如下所示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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容

37、內(nèi)容 復習復習范圍范圍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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【改錯填空改錯填空3】單擊按鈕，產(chǎn)生單擊按鈕，產(chǎn)生1個兩位隨機個兩位隨機數(shù)的兩維數(shù)組，并輸出主對角線的和數(shù)的兩維數(shù)組，并輸出主對角線的和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)考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍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考試題型樣列考試題型樣列 考試題型樣例考試題型樣例復習復習內(nèi)容內(nèi)容 復習復習范圍范圍VB程序設計復習程序設計復習注意事項注意事項l【編程編程2】編制函數(shù)編制函數(shù)過程過程y，計算，計算n個數(shù)的個數(shù)的和和/平平均值均值/最大最大/最小最小l編制一個編制一個Command1_Click事件過程，隨機產(chǎn)事件過程，隨機產(chǎn)生生10個個2位位整數(shù)，通過調(diào)用整數(shù)，通過調(diào)用y函數(shù)，在窗體輸出函數(shù)