<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. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2011春江蘇省計算機二級VB上機真題2

          2011()江蘇省高校計算機等級VB上機試卷(02)

          (本試卷完成時間為70分鐘)

      【考試須知】

          1.改錯題的界面不作要求,主要用來調試程序,若題目中有參考界面,則僅作參考。

          2.考試結束后,文件必須存放在指定位置,否則適當扣分;考試盤中若無指定文件,則不予評分。

          3.程序代碼應縮行書寫(呈鋸齒形)。

      一、改錯題(14)

      【題目】

          本程序的功能是:找出使用公式m^2-m+41(m=1100)生成的一個數據序列中的所有

      非素數,分別輸出這些非素數的全部真因子。所謂數n的真因子是指除1n之外的因子。

      程序界面參見下圖。

        Option Explicit

        Private Sub Command1_Click()

          Dim m As Integer,p As Long

          Dim st1 As String

          st1=""

          For m=1 To 100

            p=m*m-m+41

            If Not prime(p) Then

               Call fac(p,st1)   

               List1.AddItem "" & m & "" & p & ":" & st1

            End If

          Next m

        End Sub

       Private Function prime(n As Long) As Boolean

         Dim k As Integer

         For k=2 To Sqr(n)

           If n Mod k=0 Then Exit For

         Next k

         prime=True

       End Function

       Private Sub fac(n As L0ng,st As String)

          Dim i As Integer

          For i=2 To n\2

            If n Mod i=0 Then

              st=st & i & ","

            End If

          Next i

          st=Right(st,Len(st)1)

       End Sub

      【要求】

          1.新建工程,輸入上述代碼,改正程序中的錯誤。

          2.改錯時,不得增加或刪除語句,但可適當調整語句位置。

          3.將窗體文件和工程文件分別命名為F1P1,并保存到T盤的根目錄下。

      二、編程題(26)

      【題目】

          編寫程序,在一個數組中找出比第一個數組元素的值大的所有數組元素中值最小的元素。如果第一個數組元素值本身為最大數,則輸出""。

      【編程要求】

          1.程序界面參見下圖,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。

          2.運行程序,"處理"按鈕,則生成由10個兩位隨機數組成的數組并顯示在文本框Text1,找出比第一個數組元素a(1)大的最小元素輸出在文本框Text2,若沒有比a(1)大的數組元素,則在Text2中輸出"";"清除"按鈕,將所有文本框清空,焦點置于"處理"按鈕上;"結束"按鈕,結束程序運行。

          3.程序中應定義一個通用過程,用于求一維數組中比a(1)大的最小元素。

      【算法提示】

          先找出所有比數組原第一個元素大的元素存入一新數組,再找出其中的最小元素即可。

      【要求】

          將窗體文件和工程文件分別命名為F2P2,并保存到T盤的根目錄下。

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