<source id="v77gz"></source>
    <u id="v77gz"><p id="v77gz"></p></u>

      <samp id="v77gz"></samp>

      <var id="v77gz"><td id="v77gz"><ins id="v77gz"></ins></td></var>

      <video id="v77gz"></video>
      <source id="v77gz"></source>
    1. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2014年9月全國計算機二級VB上機真題第2套

      97

      下載該套環境

      一、基本操作

      (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:調試并運行程序,關閉程序后按題目要求存盤。

       

       

       

      中文在线字幕第一页_中文字幕高跟丝袜作品番号_亚洲中文无无码第_日本亚洲欧美国产日韩a??y_在线观看亚洲av无码专区