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

       

          江蘇省高等學校非計算機專業學生   

          計算機基礎知識和應用能力等級考試上機試卷(2009)

          二級Visual Basic語言(試卷代號VB02)

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

      【考試須知】

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

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

        予評分;

      3.程序代碼書寫應呈鋸齒形。

      一、改錯題(14)

      【題目】下面程序的功能是:找出100以內的所有因子(包括1和本身)之和為一個完全平

      方數的正整數,并按圖中所示格式將結果顯示在列表框中。

       

      Option Explicit

      Oution Base 1

      Private Sub Commandl_Click()

        Dim i As Integer,J As Integer,

        Dim F() As Integer,sum As Integer

        Dim S As String

        For i=3 To 100

          If Fac(i,F,sum) Then

            sum=0

            S=i & ":"

            For J=1 To  UBound(F)

              S=S & F(J) & "+"   

            Next J 

            List1.AddItem S & F(J) & "=" & sum & "=" & Sqr(sum) & "^2"

          EndIf

          Next i

      End Sub

      Private Function Fac(K As Integer,A()As Integer,sum As Integer) As Boolean

          Dim N As Integer,J As Integer

          For N=1 To K

            If K Mod N=0 Then

              J=J+1

              ReDim A(J)

              A(J)=N

              sum=sum+N

            End If

          Next N

          If sum=Int(Sqr(sum))^2 Then Fac=True

      End Function

      【要求】

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

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

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

      二、編程題(26)

      【題目】編寫程序,隨機生成1510-100之間的整數,找出其中所有的素數,以及最大的

      素數。

      【編程要求】

      1程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界

        面兀素大小適中,且均可見:

      2運行程序,按“執行"按鈕,生成15個隨機數存放到數組中,并顯示在文本框1中:

        找出其中的素數輸出到列表框;再找出最大的素數在文本框2中顯示:按"清除"按鈕,

        將文本框和列表框清空;按“退出"按鈕,結束程序運行;

      3程序中應定義一個名為prime的通用過程,用于驗證一個數是否為素數;

      【要求】

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

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