1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2010秋江蘇二級VB上機考試試題1

            2010秋江蘇省高校計算機等級考試二級VB上機考試試題1

            考試說明:

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

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

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

            :改錯題(14)

            [題目]

            本程序的功能是,找出10—100之間的所有只有奇數真因子的整數,所謂數據n的真因子是指除1n之外的因子

            Option Explicit

            Option Base 1

            Private Sub Cmd1_Click()

              Dim fac() as integer, n as integer

              Dim I as integer, sn as string, flag as Boolean

              flag=False

              For n=10  to  100

            Call  jsyz(n, fac, flag)

            if flag then

              sn=n & “:”

              for i=1 to Ubound(fac)

                 sn= sn & fac(i) & “,”

              next i

              list1.AddItem Left(sn,len(sn)-1)

            End if

             Next n

            End Sub

            Private Sub jsyz(n as integer,fa() as integer, flag as Boolean)

              Dim I as integer, k as integer, n as integer

              For i=2 To n-1

            If n mod i=0 then

              If I mod 2<>0 then

                 k=k+1

                 Redim fa(k)

                 fa(k)=i

              else

                Exit Sub

              End if

               End if

             next i

             if k<>0 then flag=true

            End Sub

             

            [要求]

            【要求】

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

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

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

            :編程題(26)

            [題目]

              編寫程序,隨機生成一個元素值為10—40之間整數的45列數組;找出該二維數組的最大元素與最小元素,并將最大元素與最小元素的值以及相應的行號和列號輸出到圖片框中

            (注意:數組最大元素與最小元素都可能有多個)

            【編程要求】

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

            界面元素大小適中,且均可見;

              2.運行程序,按運行按鈕,則生成隨機數組并顯示在圖片框pic1,并在圖片框pic2中輸出數組最大元素值和最小元素值及相應的數組元素的行號和列號;清除按鈕,將兩個圖片框清空,焦點置于運行按鈕,結束按鈕.結束程序運行

              3.程序中應定義一個通用過程maxmin,用于求二維數組最大元素值和最小元素值。

                【要求】

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

             

             

            答案:

            改錯題:

            flag=False      位置錯,調整到for n=10 to 100語句后

            Dim I as integer, k as integer, n as integer    刪去n as integer

            Redim fa(k)                           改為Redim Preserve  fa(k)

             

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩