&

亚洲国产福利在线一二三观看_精品国产伦一区二区三区欲臀_国产a∨视频精品视频护士_精品八戒人妻少妇av

2014年9月全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)真題第2套

下載該套環(huán)境

一、基本操作

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

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

（2）在名稱為Form1的窗體上，畫1個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，其標(biāo)題為"等級(jí)考試"，顯示為宋體10號(hào)字，且能根據(jù)標(biāo)題內(nèi)容自動(dòng)調(diào)整標(biāo)簽的大小，并有凹陷效果，如圖2所示。再畫1個(gè)名稱為Timer1的計(jì)時(shí)器控件，通過屬性窗口設(shè)置有關(guān)屬性，使其不可用，時(shí)間間隔為1秒。

要求：編寫適當(dāng)?shù)氖录^程，使得程序運(yùn)行時(shí)，單擊Label1標(biāo)簽，則每隔1秒，Label1中所顯示的內(nèi)容在原有基礎(chǔ)上增大1個(gè)字號(hào)；單擊窗體，Label1中的內(nèi)容停止增大。

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

二、簡(jiǎn)單應(yīng)用

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

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

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

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

三、綜合應(yīng)用

在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有2個(gè)標(biāo)題分別是"讀數(shù)據(jù)"和"統(tǒng)計(jì)"的命令按鈕，1個(gè)名稱為Text1的文本框，2個(gè)標(biāo)簽控件，如圖所示。

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

要求：1）請(qǐng)將程序中的注釋符去掉，把？改為正確的內(nèi)容；2）補(bǔ)全"統(tǒng)計(jì)"按鈕Click事件過程中的代碼，以實(shí)現(xiàn)上述程序功能。

注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行"統(tǒng)計(jì)"，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績(jī)。最后，程序按原文件名存盤。

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

【操作步驟】

步驟1：新建一個(gè)窗體，按照題目要求添加一個(gè)垂直滾動(dòng)條控件，并按表在屬性窗口中設(shè)置相應(yīng)屬性。

控件垂直滾動(dòng)條窗體
屬性 Max Min Value Caption
設(shè)置值 30 10 20 滾動(dòng)條屬性設(shè)置
步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

（2）【解題思路】Label標(biāo)簽字體由Font屬性設(shè)置，內(nèi)容由Caption屬性設(shè)置，自動(dòng)調(diào)整屬性由AutoSize設(shè)置，凹陷效果由BorderStyle設(shè)置，計(jì)時(shí)器控件不可用由Enabled屬性設(shè)置，時(shí)間間隔屬性由Interval屬性設(shè)置。
【操作步驟】

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

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

參考答案

Private Sub Form_Click()

Timer1.Enabled = False ＇設(shè)置計(jì)時(shí)器控件的Enabled屬性使其不可用

End Sub
Private Sub Label1_Click()

Timer1.Enabled = True ＇單擊Label1時(shí)使控件可用

End Sub
Private Sub Timer1_Timer()

Label1.Font.Size = Label1.Font.Size + 1 ＇字號(hào)增大1個(gè)

End Sub

步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

二、簡(jiǎn)單應(yīng)用

（1）【解題思路】此題的排序方法是交換排序法，交換排序法的思想是兩兩比較待排序記錄的關(guān)鍵字，發(fā)現(xiàn)兩個(gè)記錄的次序相反時(shí)即進(jìn)行交換，直到?jīng)]有反序的記錄為止。

【操作步驟】

步驟1：打開本題項(xiàng)目工程。

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

參考答案（陰影部分是需考生填入的內(nèi)容）

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：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

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

【操作步驟】

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

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

參考答案（陰影部分是需考生填入的內(nèi)容）

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 ("此項(xiàng)目已存在！")
        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：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

三、綜合應(yīng)用

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

【操作步驟】

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

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

參考答案（陰影部分是需考生填入的內(nèi)容）

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 "請(qǐng)先使用"讀數(shù)據(jù)"功能！"
        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 ＇統(tǒng)計(jì)Text1中所有5字母單詞的個(gè)數(shù)，并顯示在Label1標(biāo)簽中

步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。

_{<tfoot id="vl66v"></tfoot>}