2014年9月全國計算機二級VB上機真題第2套

下載該套環境

一、基本操作

（1）在名稱為Form1，標題為"滾動條屬性設置"的窗體上畫1個名稱為VScroll1的垂直滾動條，設置屬性，使得滾動塊在最上面時，其位置值為10；滾動塊在最下面時，其位置值為30；窗體剛顯示時，滾動塊處在中間位置，如圖所示。

注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

（2）在名稱為Form1的窗體上，畫1個名稱為Label1的標簽，其標題為"等級考試"，顯示為宋體10號字，且能根據標題內容自動調整標簽的大小，并有凹陷效果，如圖2所示。再畫1個名稱為Timer1的計時器控件，通過屬性窗口設置有關屬性，使其不可用，時間間隔為1秒。

要求：編寫適當的事件過程，使得程序運行時，單擊Label1標簽，則每隔1秒，Label1中所顯示的內容在原有基礎上增大1個字號；單擊窗體，Label1中的內容停止增大。

注意：要求程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

二、簡單應用

（1）考生文件夾下有一個工程文件sjt3.vbp，其窗體上有1個名稱為Text1的控件數組；一個標題為"排序"的命令按鈕。程序運行時，在文本框數組中輸入8個整數，如圖1所示；然后單擊"排序"按鈕，則8個整數按降序排序，如圖2所示。在給出的窗體文件中已經有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把？改為正確的內容，以實現上述程序功能。

注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。

（2）在考生文件夾下有工程文件sjt4.vbp。其窗體界面如圖所示，可以實現以下功能："添加項目"按鈕可以把在組合框編輯區中輸入的新項目添加到組合框列表中，但不能添加重復項目；"刪除項目"按鈕從列表中刪除選中的項目；"添加愛好"按鈕把組合框編輯區中的內容追加到下面的文本框原有內容之后；"清除愛好"按鈕清除該文本框內容。在給出的窗體文件中已經有了全部控件，但程序不完整。請將事件過程中的注釋符去掉，把？改為正確的內容，以實現上述程序功能。

注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。

三、綜合應用

在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有2個標題分別是"讀數據"和"統計"的命令按鈕，1個名稱為Text1的文本框，2個標簽控件，如圖所示。

程序功能如下：1）單擊"讀數據"按鈕，則將考生文件夾下in5.dat文件的內容（該文件中含有不超過800個英文單詞，單詞之間用1個空格隔開）顯示在Text1文本框中；2）單擊"統計"按鈕，則自動統計Text1中所有5字母單詞的個數，并顯示在右下角的Label1標簽中。"讀數據"按鈕的Click事件過程已經給出，"統計"按鈕的Click事件過程不完整，函數GetWords的功能是從字符串s中分離出每個單詞，依次放入數組words的數組元素中，返回值為單詞的總數目。

要求：1）請將程序中的注釋符去掉，把？改為正確的內容；2）補全"統計"按鈕Click事件過程中的代碼，以實現上述程序功能。

注意：考生不得修改窗體文件中已經存在的控件和程序，在結束程序運行之前，必須進行"統計"，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。

（1）【解題思路】垂直滾動條的最大刻度值和最小刻度值分別由Max和Min屬性設置, 垂直滾動條位置值由Value屬性設置。

【操作步驟】

步驟1：新建一個窗體，按照題目要求添加一個垂直滾動條控件，并按表在屬性窗口中設置相應屬性。

控件垂直滾動條窗體
屬性 Max Min Value Caption
設置值 30 10 20 滾動條屬性設置
步驟2：調試并運行程序，關閉程序后按題目要求存盤。

（2）【解題思路】Label標簽字體由Font屬性設置，內容由Caption屬性設置，自動調整屬性由AutoSize設置，凹陷效果由BorderStyle設置，計時器控件不可用由Enabled屬性設置，時間間隔屬性由Interval屬性設置。
【操作步驟】

步驟1：新建一個窗體，按照題目要求添加Label控件和Timer控件，并按表在屬性窗口中設置相應屬性。

控件 Label控件 Timer控件
屬性 Caption Font AutoSize BorderStyle Enabled Interval
設置值等級考試宋體，10號 true 1 false 1000
步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

參考答案

Private Sub Form_Click()

Timer1.Enabled = False ＇設置計時器控件的Enabled屬性使其不可用

End Sub
Private Sub Label1_Click()

Timer1.Enabled = True ＇單擊Label1時使控件可用

End Sub
Private Sub Timer1_Timer()

Label1.Font.Size = Label1.Font.Size + 1 ＇字號增大1個

End Sub

步驟3：調試并運行程序，關閉程序后按題目要求存盤。

二、簡單應用

（1）【解題思路】此題的排序方法是交換排序法，交換排序法的思想是兩兩比較待排序記錄的關鍵字，發現兩個記錄的次序相反時即進行交換，直到沒有反序的記錄為止。

【操作步驟】

步驟1：打開本題項目工程。

步驟2：打開代碼編輯窗口，去掉程序中的注釋符"＇",將問號改為正確的內容。

參考答案（陰影部分是需考生填入的內容）

Private Sub Command1_Click()

        For i = 0 To 6
            k = i
             For j = i + 1 To 7
                If Val(Text1(j).Text) > Val(Text1(k).Text) Then
                    k = j
                End If
            Next j
            j = Text1(i).Text
            Text1(i).Text = Text1(k).Text
            Text1(k).Text = j
        Next i

End Sub

步驟3：調試并運行程序，關閉程序后按題目要求存盤。

（2）【解題思路】組合框控件的增加項是AddItem過程，刪除項目是RemoveItem過程。當前選擇項屬性是ListIndex屬性。"添加項目"中命令中處理AddItem過程，"刪除項目"中處理RemoveItem過程，"添加愛好"，"清除愛好"處理文本框中Text屬性。

【操作步驟】

步驟1：打開本題工程文件。

步驟2：打開代碼編輯窗口，去掉程序中的注釋符"＇",將問號改為正確的內容。

參考答案（陰影部分是需考生填入的內容）

Private Sub Command1_Click()

        For k = 0 To Combo1.ListCount - 1
             If Combo1.Text = Combo1.List(k) Then
                Exit For
            End If
        Next k
        If k >= Combo1.ListCount Then
             Combo1.AddItem (Combo1.Text)
        Else
            MsgBox ("此項目已存在！")
        End If

End Sub

Private Sub Command2_Click()

        If Combo1.ListIndex >= 0 Then
             Combo1.RemoveItem (Combo1.ListIndex)
        End If

End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text & " " & Combo1.Text

End Sub

Private Sub Command4_Click()

Text1.Text = ""

End Sub

步驟3：調試并運行程序，關閉程序后按題目要求存盤。

三、綜合應用

【解題思路】從文件中讀取一串文本到文本框中，將文本框中的內容劃分到數組中，遍歷數組中的內容，如果字符串長度等于5，長度為5的單詞個數增加1.

【操作步驟】

步驟1：打開本題工程文件。

步驟2：打開代碼編輯窗口，去掉程序中的注釋符"＇",將問號改為正確的內容，并在指定位置編寫代碼。

參考答案（陰影部分是需考生填入的內容）

Private Function GetWords(s As String, words() As String) As Integer

        Dim m%, ch$
        ch = ""
        For k = 1 To Len(s)
            c = Mid(s, k, 1)
            If c <> " " Then
                ch = ch + c
            Else
                m = m + 1
                words(m) = ch
                ch = ""
            End If
        Next k
         GetWords = m

End Function

Private Sub Command2_Click()

        Dim ch(800) As String, n As Integer
        If Len(s) = 0 Then
            MsgBox "請先使用"讀數據"功能！"
        Else
             m = GetWords(Text1.Text, ch)
             n = 0
             Dim value
             For k = 1 To m
             If Len(ch(k)) = 5 Then
             n = n + 1
             End If
             Next k
             Label1.Caption = n
        End If

End Sub ＇統計Text1中所有5字母單詞的個數，并顯示在Label1標簽中

步驟3：調試并運行程序，關閉程序后按題目要求存盤。

亚洲欧美日韩国产一区二区三区_全亚洲免费一级黄片_国产一区二区三区不卡视频手机版_国产污三级网站在线观看