1、精選優質文檔-傾情為你奉上1第1小題【知識點播】文本框控件的MultiLine屬性設置文本框是否能以多行顯示文本，值為True表示允許，值為False表示不允許；ScrollBars屬性設置文本框是否有水平或垂直滾動條，它的值為：0表示沒有滾動條（默認值），1表示只有水平滾動條、2表示只有垂直滾動條，3表示有水平和垂直滾動條，設置0以外的值時MultiLine屬性值必須為True。 【審題分析】本題只需按要求畫出控件并設置其相應屬性即可。【操作步驟】步驟1：新建一個"標準EXE"工程，在窗體Form1中畫兩個文本框，并分別設置它們的相關屬性，其屬性及值如表97-1所示。表9

2、7-1步驟2：按要求將文件保存至考生文件夾中。第2小題【審題分析】要在程序運行時，移動滾動條上的滑塊就能改變文本框的高度，只需在滾動條的Change事件過程中編寫利用滾動條的Value屬性值來決定文本框Height屬性值的語句即可，同時將文本框Width屬性值設置為其Height屬性值的1.5倍。【操作步驟】步驟1：新建一個"標準EXE"工程，在窗體Form1中畫一個文本框和一個水平滾動條，在屬性設置窗口中設置其相關屬性，其屬性及值如表97-2所示。表97-2步驟2：雙擊窗體Form1上的水平滾動條，打開代碼編輯窗口，在其Change事件過程中輸入以下代碼：參考代碼：Pri

3、vate Sub Hsb1_Change() Txt1.Height = Hsb1.Value Txt1.Width = Txt1.Height * 1.5End Sub步驟3：按要求將文件保存至考生文件夾中。【主要考點】水平滾動條控件、Change事件過程。2第1小題【審題分析】在本題源碼“修改”按鈕的單擊事件過程中，通過語句“txtData = Cbo1.Text”將組合框中當前選擇內容顯示到文本框中，同時通過設置“確定”按鈕的Enabled屬性值為True使其可用；在“確定”按鈕的單擊事件過程中，通過語句“Cbo1.List(ListIndex) = txtData”把修改后的文本框內容

4、替換組合框中該列表項的原有內容，并清空文本框，使“確定”按鈕不可用；在“添加”按鈕的單擊事件過程中，用組合框的AddItem方法將文本框中的內容添加為組合框的一個項目。為使“確定”按鈕初始狀態時不可用，需在設計時將其Enabled屬性值設置為False。【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符“'”，將問號“？”改為正確的內容。參考代碼：cmdConfirm.Enabled = TruecboData.List(ListIndex) = txtDatacboData.AddItem Txt1步驟2：按要求將文件保存至考生文件

5、夾中。【主要考點】組合框控件。第2小題【審題分析】本題利用計時器來控制紅、黃、綠燈間的循環切換。在“開始”按鈕的單擊事件過程中，將根據兩個水平滾動條的Value屬性值，來分別設定紅燈和綠燈亮的時間數（用變量red和green記錄）。在每次觸發的計時器Timer事件時，首先判斷當前紅燈是否亮（即PicR是否顯示），若紅燈亮則將設定的紅燈時間red減1，并再次判斷red的值是否為0，若為0則紅燈滅黃燈亮（即PicR不顯示，PicY顯示）；如果當前是黃燈亮（即PicY顯示），則黃燈滅（即PicY不顯示），此時若red為0，則綠燈亮（即PicG顯示）且重新設定red，否則紅燈亮（即PicR顯示）且重新

6、設定green；如果當前是綠燈亮（即PicG顯示），則將設定的綠燈時間green減1，并再次判斷green的值是否為0，若為0則綠燈滅黃燈亮（即PicG不顯示，PicY顯示）。【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj4.vbp，在代碼編輯窗口，去掉程序中的注釋符“'”，將問號“？”改為正確的內容。參考代碼：red = Hsb1.ValueTmr1.Enabled = TruePicR.Visible = Falsegreen = green-1步驟2：按要求將文件保存至考生文件夾中。【主要考點】閱讀理解程序能力。3【審題分析】本題可利用一個嵌套的For循環來完成計算工作

7、：在外循環（循環變量的取值為120）體中，先初始設置記錄每行數據之和的變量Sum的初值為0，接著通過內循環（循環變量的取值為15）體完成對每行數據的累加工作。內循環結束后，用表達式Avg = Sum / 5計算出該行的平均值。如果是第一次執行外循環的循環體，則將當前Avg的值記錄在變量Max中，否則僅在其他行Avg值大于Max的值時，才將其記錄在變量Max中。嵌套For循環結束時，變量Max的值即為每行平均數中的最大值，將其顯示在文本框txtMax中。【操作步驟】步驟1：打開考生文件中的本題工程文件vbsj5.vbp，在窗體Form1中畫一個標簽和一個文本框，其屬性及值如表97-3所示。表97-3步驟2：打開代碼編輯窗口，在指定位置編寫以下代碼：參考代碼：For i = 1 To 20 Sum = 0 For j = 1 To 5 Sum = Sum + a(i, j) Next Avg = Sum / 5 If i = 1 Then Max = Avg ElseIf Max < Avg Then Max = Avg End IfNexttxtMa