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

       

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