<samp id="uu9tx"></samp>
        <samp id="uu9tx"><tr id="uu9tx"><nav id="uu9tx"></nav></tr></samp>
        <delect id="uu9tx"><legend id="uu9tx"><meter id="uu9tx"></meter></legend></delect>
                <samp id="uu9tx"><tr id="uu9tx"><meter id="uu9tx"></meter></tr></samp><nav id="uu9tx"></nav>
                <samp id="uu9tx"></samp>
                  <samp id="uu9tx"><tr id="uu9tx"><meter id="uu9tx"></meter></tr></samp>
                  江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
                  江蘇計算機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盤的根目錄下。

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